# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 779754510 0
# Node ID eee06aef6f56df6aaff86a310658ae75236c9319
# Parent  07c5c4f12d62312ed4b479c872511d5540864f9a
Require sendmail.  Delete redundant defvar.
(expand-mail-aliases, define-mail-alias): Synchronize cached list with file.

diff -r 07c5c4f12d62 -r eee06aef6f56 lisp/mail/mailalias.el
--- a/lisp/mail/mailalias.el	Fri Sep 16 22:18:10 1994 +0000
+++ b/lisp/mail/mailalias.el	Fri Sep 16 22:28:30 1994 +0000
@@ -29,9 +29,7 @@
 
 ;;; Code:
 
-(defvar mail-aliases t
-  "Alias of mail address aliases,
-or t meaning should be initialized from `~/.mailrc'.")
+(require 'sendmail)
 
 ;; Called from sendmail-send-it, or similar functions,
 ;; only if some mail aliases are defined.
@@ -40,6 +38,7 @@
 Suitable header fields are `To', `Cc' and `Bcc' and their `Resent-' variants.
 Optional second arg EXCLUDE may be a regular expression defining text to be
 removed from alias expansions."
+  (synch-mail-aliases)
   (if (eq mail-aliases t)
       (progn (setq mail-aliases nil) (build-mail-aliases)))
   (goto-char beg)
@@ -167,6 +166,7 @@
 An address can contain spaces if it is quoted with double-quotes."
   (interactive "sDefine mail alias: \nsDefine %s as mail alias for: ")
   ;; Read the defaults first, if we have not done so.
+  (synch-mail-aliases)
   (if (eq mail-aliases t)
       (progn
 	(setq mail-aliases nil)