(sendmail-sync-aliases, mail-setup):

Do nothing with mail-personal-alias-file if it is nil.

1 files changed, 8 insertions, 6 deletions

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index ab9c89a02f9..f7229408dbd 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -387,10 +387,11 @@ actually occur.")
 
 
 (defun sendmail-sync-aliases ()
-  (let ((modtime (nth 5 (file-attributes mail-personal-alias-file))))
-    (or (equal mail-alias-modtime modtime)
-        (setq mail-alias-modtime modtime
-              mail-aliases t))))
+  (when mail-personal-alias-file
+    (let ((modtime (nth 5 (file-attributes mail-personal-alias-file))))
+      (or (equal mail-alias-modtime modtime)
+          (setq mail-alias-modtime modtime
+                mail-aliases t)))))
 
 (defun mail-setup (to subject in-reply-to cc replybuffer actions)
   (or mail-default-reply-to
@@ -399,8 +400,9 @@ actually occur.")
   (if (eq mail-aliases t)
       (progn
         (setq mail-aliases nil)
-        (if (file-exists-p mail-personal-alias-file)
-            (build-mail-aliases))))
+        (when mail-personal-alias-file
+          (if (file-exists-p mail-personal-alias-file)
+              (build-mail-aliases)))))
   ;; Don't leave this around from a previous message.
   (kill-local-variable 'buffer-file-coding-system)
   ;; This doesn't work for enable-multibyte-characters.