diff lisp/mail/mailabbrev.el @ 88123:375f2633d815

New directory
author Kenichi Handa <handa@m17n.org>
date Mon, 08 Sep 2003 11:56:09 +0000
parents 695cf19ef79e
children 68c22ea6027c
line wrap: on
line diff
--- a/lisp/mail/mailabbrev.el	Thu Sep 04 04:00:49 2003 +0000
+++ b/lisp/mail/mailabbrev.el	Mon Sep 08 11:56:09 2003 +0000
@@ -161,13 +161,12 @@
   "The modification time of your mail alias file when it was last examined.")
 
 (defun mail-abbrevs-sync-aliases ()
-  (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)))))))
+  (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 ()
@@ -626,5 +625,4 @@
 (if mail-abbrevs-mode
     (mail-abbrevs-enable))
 
-;;; arch-tag: 5aa2d901-73f8-4ad7-b73c-4802282ad2ff
 ;;; mailabbrev.el ends here