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-synch-aliases): Renamed from sync-mail-aliases. All callers changed.

Browse source
This commit is contained in:
Karl Heuer 1994-09-22 17:00:25 +00:00
parent 799ac634aa
commit 26045a35d2
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

@ -167,7 +167,7 @@ actually occur.")
(defvar mail-send-hook nil
"Normal hook run before sending mail, in Mail mode.")
(defun synch-mail-aliases ()
(defun sendmail-synch-aliases ()
(let ((modtime (nth 5 (file-attributes "~/.mailrc"))))
(or (equal mail-alias-modtime modtime)
(setq mail-alias-modtime modtime
@ -176,7 +176,7 @@ actually occur.")
(defun mail-setup (to subject in-reply-to cc replybuffer actions)
(if (eq mail-default-reply-to t)
(setq mail-default-reply-to (getenv "REPLYTO")))
(synch-mail-aliases)
(sendmail-synch-aliases)
(if (eq mail-aliases t)
(progn
(setq mail-aliases nil)
@ -421,7 +421,7 @@ the user from the mailer."
(replace-match "\n")
(backward-char 1)
(setq delimline (point-marker))
(synch-mail-aliases)
(sendmail-synch-aliases)
(if mail-aliases
(expand-mail-aliases (point-min) delimline))
(goto-char (point-min))