Commit f7e85dcf authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mail-abbrevs-sync-aliases): Do nothing if mail-personal-alias-file is nil.

parent f44a5d58
......@@ -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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment