mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(sendmail-sync-aliases): Renamed from sendmail-synch-aliases.

Browse source
This commit is contained in:
Karl Heuer 1996-01-04 23:10:07 +00:00
parent b94ae5f7d8
commit 1498db1830
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/mail/sendmail.el
View file

@ -226,7 +226,7 @@ actually occur.")
(defvar mail-send-hook nil
"Normal hook run before sending mail, in Mail mode.")
(defun sendmail-synch-aliases ()
(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
@ -235,7 +235,7 @@ actually occur.")
(defun mail-setup (to subject in-reply-to cc replybuffer actions)
(or mail-default-reply-to
(setq mail-default-reply-to (getenv "REPLYTO")))
(sendmail-synch-aliases)
(sendmail-sync-aliases)
(if (eq mail-aliases t)
(progn
(setq mail-aliases nil)
@ -495,7 +495,7 @@ the user from the mailer."
(replace-match "\n")
(backward-char 1)
(setq delimline (point-marker))
(sendmail-synch-aliases)
(sendmail-sync-aliases)
(if mail-aliases
(expand-mail-aliases (point-min) delimline))
(goto-char (point-min))