diff options
author | Simon Josefsson <[email protected]> | 2002-05-09 10:18:09 +0000 |
---|---|---|
committer | Simon Josefsson <[email protected]> | 2002-05-09 10:18:09 +0000 |
commit | 1a8e727bc0b369c983dbf61a48a61c47d648e3af (patch) | |
tree | daf046f5e4c0b74fef0ed0a27c130fe25edfb195 /lisp | |
parent | eb1666e20cb972b060b8ca64a7106add0d99b5d8 (diff) |
(smtpmail-send-it): Use user-mail-address from
calling buffer.
(smtpmail-auth-credentials): Bump :version to 21.4 (21.3 will not
have the patch).
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 7 | ||||
-rw-r--r-- | lisp/mail/smtpmail.el | 7 |
2 files changed, 11 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 13128b488b..ba2aa93225 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2002-05-07 Simon Josefsson <[email protected]> + + * mail/smtpmail.el (smtpmail-send-it): Use user-mail-address from + calling buffer. + (smtpmail-auth-credentials): Bump :version to 21.4 (21.3 will not + have the patch). + 2002-05-09 Kim F. Storm <[email protected]> * wid-edit.el (checkbox): New check-mark image. diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index f71e7bca6b..59bbd7fbc8 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -167,7 +167,7 @@ looks like `user@realm'." (string :tag "Username") (choice (const :tag "Query when needed" nil) (string :tag "Password"))))) - :version "21.3" + :version "21.4" :group 'smtpmail) (defcustom smtpmail-starttls-credentials '(("" 25 "" "")) @@ -220,6 +220,7 @@ This is relative to `smtpmail-queue-dir'.") (case-fold-search nil) delimline (mailbuf (current-buffer)) + (mail-address user-mail-address) (smtpmail-code-conv-from (if enable-multibyte-characters (let ((sendmail-coding-system smtpmail-code-conv-from)) @@ -260,7 +261,7 @@ This is relative to `smtpmail-queue-dir'.") ;; they put one in themselves. (goto-char (point-min)) (if (not (re-search-forward "^From:" delimline t)) - (let* ((login user-mail-address) + (let* ((login mail-address) (fullname (user-full-name))) (cond ((eq mail-from-style 'angles) (insert "From: " fullname) @@ -685,7 +686,7 @@ This is relative to `smtpmail-queue-dir'.") ; (smtpmail-send-command process (format "MAIL FROM:%s@%s" (user-login-name) (smtpmail-fqdn))) (smtpmail-send-command process (format "MAIL FROM: <%s>%s%s" (or mail-envelope-from - user-mail-address) + mail-address) size-part body-part)) |