/[emacs]/emacs/lisp/mail/sendmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/sendmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.270 by gm, Sun Aug 24 15:22:13 2003 UTC revision 1.271 by rms, Fri Aug 29 16:13:31 2003 UTC
# Line 387  actually occur.") Line 387  actually occur.")
387    
388    
389  (defun sendmail-sync-aliases ()  (defun sendmail-sync-aliases ()
390    (let ((modtime (nth 5 (file-attributes mail-personal-alias-file))))    (when mail-personal-alias-file
391      (or (equal mail-alias-modtime modtime)      (let ((modtime (nth 5 (file-attributes mail-personal-alias-file))))
392          (setq mail-alias-modtime modtime        (or (equal mail-alias-modtime modtime)
393                mail-aliases t))))            (setq mail-alias-modtime modtime
394                    mail-aliases t)))))
395    
396  (defun mail-setup (to subject in-reply-to cc replybuffer actions)  (defun mail-setup (to subject in-reply-to cc replybuffer actions)
397    (or mail-default-reply-to    (or mail-default-reply-to
# Line 399  actually occur.") Line 400  actually occur.")
400    (if (eq mail-aliases t)    (if (eq mail-aliases t)
401        (progn        (progn
402          (setq mail-aliases nil)          (setq mail-aliases nil)
403          (if (file-exists-p mail-personal-alias-file)          (when mail-personal-alias-file
404              (build-mail-aliases))))            (if (file-exists-p mail-personal-alias-file)
405                  (build-mail-aliases)))))
406    ;; Don't leave this around from a previous message.    ;; Don't leave this around from a previous message.
407    (kill-local-variable 'buffer-file-coding-system)    (kill-local-variable 'buffer-file-coding-system)
408    ;; This doesn't work for enable-multibyte-characters.    ;; This doesn't work for enable-multibyte-characters.

Legend:
Removed from v.1.270  
changed lines
  Added in v.1.271

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26