(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 a7524cc8246ccd30994dbb6bbd83e41d9cdaf205..b913a73ab7f5efb890d7aea8d9df4ee9de13d88a 100644 (file)
--- 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