Mercurial > emacs
changeset 52372:02e7333fda5d
(sendmail-sync-aliases, mail-setup):
Do nothing with mail-personal-alias-file if it is nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 29 Aug 2003 16:13:31 +0000 |
| parents | d6c91e697cdc |
| children | ddaae63bd193 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 8 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Fri Aug 29 16:12:38 2003 +0000 +++ b/lisp/mail/sendmail.el Fri Aug 29 16:13:31 2003 +0000 @@ -387,10 +387,11 @@ (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 @@ (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.