diff options
| author | Richard M. Stallman | 2003-08-29 16:12:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-08-29 16:12:38 +0000 |
| commit | f7e85dcf23383000d40c1c997ecd5f3df83c9ac2 (patch) | |
| tree | 648f95d3e649319fa1717981d4cee6d8b5e4cf7d | |
| parent | f44a5d5870d188a4de8aab8c479ed0fdf8d572a3 (diff) | |
| download | emacs-f7e85dcf23383000d40c1c997ecd5f3df83c9ac2.tar.gz emacs-f7e85dcf23383000d40c1c997ecd5f3df83c9ac2.zip | |
(mail-abbrevs-sync-aliases): Do nothing if mail-personal-alias-file is nil.
| -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.)") | |||
| 161 | "The modification time of your mail alias file when it was last examined.") | 161 | "The modification time of your mail alias file when it was last examined.") |
| 162 | 162 | ||
| 163 | (defun mail-abbrevs-sync-aliases () | 163 | (defun mail-abbrevs-sync-aliases () |
| 164 | (if (file-exists-p mail-personal-alias-file) | 164 | (when mail-personal-alias-file |
| 165 | (let ((modtime (nth 5 (file-attributes mail-personal-alias-file)))) | 165 | (if (file-exists-p mail-personal-alias-file) |
| 166 | (if (not (equal mail-abbrev-modtime modtime)) | 166 | (let ((modtime (nth 5 (file-attributes mail-personal-alias-file)))) |
| 167 | (progn | 167 | (if (not (equal mail-abbrev-modtime modtime)) |
| 168 | (setq mail-abbrev-modtime modtime) | 168 | (progn |
| 169 | (build-mail-abbrevs)))))) | 169 | (setq mail-abbrev-modtime modtime) |
| 170 | (build-mail-abbrevs))))))) | ||
| 170 | 171 | ||
| 171 | ;;;###autoload | 172 | ;;;###autoload |
| 172 | (defun mail-abbrevs-setup () | 173 | (defun mail-abbrevs-setup () |