Commit 1498db18 authored by Karl Heuer's avatar Karl Heuer
Browse files

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

parent b94ae5f7
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment