Mercurial > emacs
changeset 13950:e9615c5f477a
(sendmail-sync-aliases): Renamed from sendmail-synch-aliases.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 04 Jan 1996 23:10:07 +0000 |
| parents | 4d9ed72b9a02 |
| children | b777c515e6dc |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Thu Jan 04 23:08:28 1996 +0000 +++ b/lisp/mail/sendmail.el Thu Jan 04 23:10:07 1996 +0000 @@ -226,7 +226,7 @@ (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 @@ (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 @@ (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))