From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 12 May 2002 17:01:59 +0000 (+0000)
Subject: (smtpmail-mail-address): New variable.
X-Git-Tag: ttn-vms-21-2-B4~15090
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=850ed7b3a74cedcc4dea43f92a934080de42ee92;p=emacs.git

(smtpmail-mail-address): New variable.
(smtpmail-send-it): Bind and use that instead of `mail-address'.
(smtpmail-via-smtp): Likewise.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0e1985fb8aa..a5353cfcf6f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2002-05-12  Richard M. Stallman  <rms@gnu.org>
 
+	* mail/smtpmail.el (smtpmail-mail-address): New variable.
+	(smtpmail-send-it): Bind and use that instead of `mail-address'.
+	(smtpmail-via-smtp): Likewise.
+
 	* ansi-color.el (ansi-color-get-face): Avoid add-to-list on local var.
 	(ansi-color-apply-sequence): Avoid duplicates in combined face list.
 
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 59bbd7fbc89..f43c5f17858 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -211,6 +211,9 @@ This is relative to `smtpmail-queue-dir'.")
 ;;;
 ;;;
 
+(defvar smtpmail-mail-address nil
+  "Value of `user-mail-address' in ambient buffer.")
+
 ;;;###autoload
 (defun smtpmail-send-it ()
   (let ((errbuf (if mail-interactive
@@ -220,7 +223,7 @@ This is relative to `smtpmail-queue-dir'.")
 	(case-fold-search nil)
 	delimline
 	(mailbuf (current-buffer))
-	(mail-address user-mail-address)
+	(smtpmail-mail-address user-mail-address)
 	(smtpmail-code-conv-from
 	 (if enable-multibyte-characters
 	     (let ((sendmail-coding-system smtpmail-code-conv-from))
@@ -261,7 +264,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 mail-address)
+		(let* ((login smtpmail-mail-address)
 		       (fullname (user-full-name)))
 		  (cond ((eq mail-from-style 'angles)
 			 (insert "From: " fullname)
@@ -686,7 +689,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
-							 mail-address)
+							 smtpmail-mail-address)
 						     size-part
 						     body-part))