From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 29 Aug 2003 16:13:31 +0000 (+0000)
Subject: (sendmail-sync-aliases, mail-setup):
X-Git-Tag: ttn-vms-21-2-B4~8957
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=74f8a3338490f7ce2fadac60d26a9024fc007f70;p=emacs.git

(sendmail-sync-aliases, mail-setup):
Do nothing with mail-personal-alias-file if it is nil.
---

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.