diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-08-29 16:12:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-08-29 16:12:38 +0000 |
| commit | f7e85dcf23383000d40c1c997ecd5f3df83c9ac2 (patch) | |
| tree | 648f95d3e649319fa1717981d4cee6d8b5e4cf7d /lisp/mail/mailabbrev.el | |
| parent | f44a5d5870d188a4de8aab8c479ed0fdf8d572a3 (diff) | |
| download | emacs-f7e85dcf23383000d40c1c997ecd5f3df83c9ac2.tar.gz | |
(mail-abbrevs-sync-aliases): Do nothing if mail-personal-alias-file is nil.
Diffstat (limited to 'lisp/mail/mailabbrev.el')
| -rw-r--r-- | lisp/mail/mailabbrev.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index b2edf777861..743f909f5d6 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el @@ -161,12 +161,13 @@ no aliases, which is represented by this being a table with no entries.)") "The modification time of your mail alias file when it was last examined.") (defun mail-abbrevs-sync-aliases () - (if (file-exists-p mail-personal-alias-file) - (let ((modtime (nth 5 (file-attributes mail-personal-alias-file)))) - (if (not (equal mail-abbrev-modtime modtime)) - (progn - (setq mail-abbrev-modtime modtime) - (build-mail-abbrevs)))))) + (when mail-personal-alias-file + (if (file-exists-p mail-personal-alias-file) + (let ((modtime (nth 5 (file-attributes mail-personal-alias-file)))) + (if (not (equal mail-abbrev-modtime modtime)) + (progn + (setq mail-abbrev-modtime modtime) + (build-mail-abbrevs))))))) ;;;###autoload (defun mail-abbrevs-setup () |