diff options
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/mail-extr.el | 6 | ||||
| -rw-r--r-- | lisp/mail/mailalias.el | 2 | ||||
| -rw-r--r-- | lisp/mail/mailpost.el | 3 |
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 () |