# HG changeset patch # User Karl Heuer <kwzh@gnu.org> # Date 820797007 0 # Node ID e9615c5f477a4a63abb358035a599fba6c7072e3 # Parent 4d9ed72b9a02df7b99bc73719a3708ce7dd5b5fe (sendmail-sync-aliases): Renamed from sendmail-synch-aliases. diff -r 4d9ed72b9a02 -r e9615c5f477a lisp/mail/sendmail.el --- 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))