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

[Miles Bader]

Index: emacs/lisp/mail/mailabbrev.el
diff -c emacs/lisp/mail/mailabbrev.el:1.68.2.1 
emacs/lisp/mail/mailabbrev.el:1.68.2.2
*** emacs/lisp/mail/mailabbrev.el:1.68.2.1      Fri Apr  4 01:20:27 2003
--- emacs/lisp/mail/mailabbrev.el       Tue Oct 14 19:39:25 2003
***************
*** 30,36 ****
  ;; This file ensures that, when the point is in a To:, CC:, BCC:, or From:
  ;; field, word-abbrevs are defined for each of your mail aliases.  These
  ;; aliases will be defined from your .mailrc file (or the file specified by
! ;; the MAILRC environment variable) if it exists.  Your mail aliases will
  ;; expand any time you type a word-delimiter at the end of an abbreviation.
  ;;
  ;; What you see is what you get: if mailabbrev is in use when you type
--- 30,36 ----
  ;; This file ensures that, when the point is in a To:, CC:, BCC:, or From:
  ;; field, word-abbrevs are defined for each of your mail aliases.  These
  ;; aliases will be defined from your .mailrc file (or the file specified by
! ;; `mail-personal-alias-file') if it exists.  Your mail aliases will
  ;; expand any time you type a word-delimiter at the end of an abbreviation.
  ;;
  ;; What you see is what you get: if mailabbrev is in use when you type
***************
*** 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 ()
***************
*** 625,628 ****
--- 626,630 ----
  (if mail-abbrevs-mode
      (mail-abbrevs-enable))
  
+ ;;; arch-tag: 5aa2d901-73f8-4ad7-b73c-4802282ad2ff
  ;;; mailabbrev.el ends here