[Emacs-diffs] Changes to emacs/lisp/mail/mailabbrev.el

[Richard M. Stallman]

Index: emacs/lisp/mail/mailabbrev.el
diff -c emacs/lisp/mail/mailabbrev.el:1.71 emacs/lisp/mail/mailabbrev.el:1.72
*** emacs/lisp/mail/mailabbrev.el:1.71  Sun Jan 12 15:48:49 2003
--- emacs/lisp/mail/mailabbrev.el       Fri Aug 29 12:12:38 2003
***************
*** 161,172 ****
    "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))))))
  
  ;;;###autoload
  (defun mail-abbrevs-setup ()
--- 161,173 ----
    "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)))))))
  
  ;;;###autoload
  (defun mail-abbrevs-setup ()