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

1 files changed, 2 insertions, 0 deletions

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