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

[Richard M. Stallman]

Index: emacs/lisp/mail/sendmail.el
diff -c emacs/lisp/mail/sendmail.el:1.270 emacs/lisp/mail/sendmail.el:1.271
*** emacs/lisp/mail/sendmail.el:1.270   Sun Aug 24 11:22:13 2003
--- emacs/lisp/mail/sendmail.el Fri Aug 29 12:13:31 2003
***************
*** 387,396 ****
  
  
  (defun sendmail-sync-aliases ()
!   (let ((modtime (nth 5 (file-attributes mail-personal-alias-file))))
!     (or (equal mail-alias-modtime modtime)
!       (setq mail-alias-modtime modtime
!             mail-aliases t))))
  
  (defun mail-setup (to subject in-reply-to cc replybuffer actions)
    (or mail-default-reply-to
--- 387,397 ----
  
  
  (defun sendmail-sync-aliases ()
!   (when mail-personal-alias-file
!     (let ((modtime (nth 5 (file-attributes mail-personal-alias-file))))
!       (or (equal mail-alias-modtime modtime)
!         (setq mail-alias-modtime modtime
!               mail-aliases t)))))
  
  (defun mail-setup (to subject in-reply-to cc replybuffer actions)
    (or mail-default-reply-to
***************
*** 399,406 ****
    (if (eq mail-aliases t)
        (progn
        (setq mail-aliases nil)
!       (if (file-exists-p mail-personal-alias-file)
!           (build-mail-aliases))))
    ;; Don't leave this around from a previous message.
    (kill-local-variable 'buffer-file-coding-system)
    ;; This doesn't work for enable-multibyte-characters.
--- 400,408 ----
    (if (eq mail-aliases t)
        (progn
        (setq mail-aliases nil)
!       (when mail-personal-alias-file
!         (if (file-exists-p mail-personal-alias-file)
!             (build-mail-aliases)))))
    ;; Don't leave this around from a previous message.
    (kill-local-variable 'buffer-file-coding-system)
    ;; This doesn't work for enable-multibyte-characters.