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