From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 27 Dec 2004 16:11:33 +0000 (+0000)
Subject: (rmail-resend): Let MAIL-ALIAS-FILE arg override mail-personal-alias-file.
X-Git-Tag: ttn-vms-21-2-B4~3132
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=75e6b97059b6e5b012b1084677070add5c5b0c19;p=emacs.git

(rmail-resend): Let MAIL-ALIAS-FILE arg override mail-personal-alias-file.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index a7524cc8246..b913a73ab7f 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -3435,6 +3435,8 @@ typically for purposes of moderating a list."
   (if (not from) (setq from user-mail-address))
   (let ((tembuf (generate-new-buffer " sendmail temp"))
 	(case-fold-search nil)
+	(mail-personal-alias-file
+	 (or mail-alias-file mail-personal-alias-file))
 	(mailbuf rmail-buffer))
     (unwind-protect
 	(with-current-buffer tembuf