(sendmail-synch-aliases): Renamed from sync-mail-aliases. All callers changed.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 952724892b3cb1700ff7b325e5e587ba5d74cf07..86101386ee0544fcb06c32de59a9bcc2b0a63dad 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -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))