entered into RCS

3 files changed, 8 insertions, 3 deletions

diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index 93adba292f3..00ff0056eb8 100644
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -430,7 +430,7 @@ Returns a list of the form (FULL-NAME CANONICAL-ADDRESS)."
     
     (save-excursion
       (set-buffer extraction-buffer)
-      (buffer-flush-undo extraction-buffer)
+      (buffer-disable-undo extraction-buffer)
       (set-syntax-table address-syntax-table)
       (widen)
       (erase-buffer)
@@ -697,7 +697,7 @@ Returns a list of the form (FULL-NAME CANONICAL-ADDRESS)."
       
       (set-buffer canonicalization-buffer)
       
-      (buffer-flush-undo canonicalization-buffer)
+      (buffer-disable-undo canonicalization-buffer)
       (set-syntax-table address-syntax-table)
       (setq case-fold-search nil)
       
@@ -1081,7 +1081,7 @@ Returns a list of the form (FULL-NAME CANONICAL-ADDRESS)."
 	)
     (save-excursion
       (set-buffer variant-buffer)
-      (buffer-flush-undo variant-buffer)
+      (buffer-disable-undo variant-buffer)
       (set-syntax-table address-text-syntax-table)
       (widen)
       (erase-buffer)
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index 67f5b073039..9e95f63d9d3 100644
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -173,4 +173,6 @@ DEFINITION can be one or more mail addresses separated by commas."
 	(rplacd tem definition)
       (setq mail-aliases (cons (cons name definition) mail-aliases)))))
 
+(provide 'mailalias)
+
 ;;; mailalias.el ends here
diff --git a/lisp/mail/mailpost.el b/lisp/mail/mailpost.el
index 9cc7e16ef2d..5ff33478698 100644
--- a/lisp/mail/mailpost.el
+++ b/lisp/mail/mailpost.el
@@ -16,6 +16,9 @@
 
 ;;; Code:
 
+(require 'mailalias)
+(require 'sendmail)
+
 ;; (setq send-mail-function 'post-mail-send-it)
 
 (defun post-mail-send-it ()