diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-08-29 16:13:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-08-29 16:13:31 +0000 |
| commit | 74f8a3338490f7ce2fadac60d26a9024fc007f70 (patch) | |
| tree | fd6256ba250ce0971f5c04aefb366138f37a929d /lisp/mail | |
| parent | f7e85dcf23383000d40c1c997ecd5f3df83c9ac2 (diff) | |
| download | emacs-74f8a3338490f7ce2fadac60d26a9024fc007f70.tar.gz | |
(sendmail-sync-aliases, mail-setup):
Do nothing with mail-personal-alias-file if it is nil.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/sendmail.el | 14 |
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. |