# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1104163893 0
# Node ID a3caa12a673aa6ff7aad051689d80ca72de7961b
# Parent  7aa5e44f673fcc47ee8e61f3c525fb4b6e423ac0
(rmail-resend): Let MAIL-ALIAS-FILE arg override mail-personal-alias-file.

diff -r 7aa5e44f673f -r a3caa12a673a lisp/mail/rmail.el
--- 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