changeset 59118:a3caa12a673a

(rmail-resend): Let MAIL-ALIAS-FILE arg override mail-personal-alias-file.
author Richard M. Stallman <rms@gnu.org>
date Mon, 27 Dec 2004 16:11:33 +0000
parents 7aa5e44f673f
children 803b2fab7ec1
files lisp/mail/rmail.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Mon Dec 27 16:10:48 2004 +0000
+++ b/lisp/mail/rmail.el	Mon Dec 27 16:11:33 2004 +0000
@@ -3435,6 +3435,8 @@
   (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