From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 4 Jan 1996 23:10:07 +0000 (+0000)
Subject: (sendmail-sync-aliases): Renamed from sendmail-synch-aliases.
X-Git-Tag: emacs-19.34~1910
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1498db1830b6e9f1c98c7e117aa2de5354f463d5;p=emacs.git

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

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 1c3b2dbc150..29bac3a16c9 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -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))