From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 16 Sep 1994 22:29:25 +0000 (+0000)
Subject: (mail-alias-modtime): New variable.
X-Git-Tag: emacs-19.34~7052
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9cc7519111b77a97d0116d3ededc0e686c395f6e;p=emacs.git

(mail-alias-modtime): New variable.
(synch-mail-aliases): New function.
(mail-setup, sendmail-send-it): Synchronize cached list with file.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 0f2861f8868..ac8d3448759 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -75,6 +75,9 @@ or t meaning should be initialized from `~/.mailrc'.
 The alias definitions in `~/.mailrc' have this form:
     alias ALIAS MEANING")
 
+(defvar mail-alias-modtime nil
+  "The modification time of ~/.mailrc when it was last examined.")
+
 (defvar mail-yank-prefix nil
   "*Prefix insert on lines of yanked message being replied to.
 nil means use indentation.")
@@ -158,7 +161,14 @@ actually occur.")
 (defvar mail-send-hook nil
   "Normal hook run before sending mail, in Mail mode.")
 
+(defun synch-mail-aliases ()
+  (let ((modtime (nth 5 (file-attributes "~/.mailrc"))))
+    (or (equal mail-alias-modtime modtime)
+	(setq mail-alias-modtime modtime
+	      mail-aliases t))))
+
 (defun mail-setup (to subject in-reply-to cc replybuffer actions)
+  (synch-mail-aliases)
   (if (eq mail-aliases t)
       (progn
 	(setq mail-aliases nil)
@@ -402,6 +412,7 @@ the user from the mailer."
 	  (replace-match "\n")
 	  (backward-char 1)
 	  (setq delimline (point-marker))
+	  (synch-mail-aliases)
 	  (if mail-aliases
 	      (expand-mail-aliases (point-min) delimline))
 	  (goto-char (point-min))