diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-04-30 06:27:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-04-30 06:27:58 +0000 |
| commit | 30eaaa34b1f7c5856a7da3a25db6d3b4a9f7b158 (patch) | |
| tree | f2f50a54a370eeba78d08775c779db57a7b0641d /lisp/mail/mailalias.el | |
| parent | 13aa1cde7f1b094026aa254fda2bffe819dd8ff9 (diff) | |
| download | emacs-30eaaa34b1f7c5856a7da3a25db6d3b4a9f7b158.tar.gz | |
(expand-mail-aliases): Doc fix.
(expand-mail-aliases, mail-complete): Use mail-header-end.
Diffstat (limited to 'lisp/mail/mailalias.el')
| -rw-r--r-- | lisp/mail/mailalias.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index 5916329f68a..176bfd80163 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el @@ -161,7 +161,7 @@ When t this still needs to be initialized.") ;;;###autoload (defun expand-mail-aliases (beg end &optional exclude) "Expand all mail aliases in suitable header fields found between BEG and END. -If interactive, expand in header fields before `mail-header-separator'. +If interactive, expand in header fields. Suitable header fields are `To', `From', `CC' and `BCC', `Reply-to', and their `Resent-' variants. @@ -170,7 +170,7 @@ removed from alias expansions." (interactive (save-excursion (list (goto-char (point-min)) - (search-forward (concat "\n" mail-header-separator "\n"))))) + (mail-header-end)))) (sendmail-sync-aliases) (when (eq mail-aliases t) (setq mail-aliases nil) @@ -375,9 +375,7 @@ current header, calls `mail-complete-function' and passes prefix arg if any." (if (file-exists-p mail-personal-alias-file) (build-mail-aliases)))) (let ((list mail-complete-alist)) - (if (and (save-excursion (search-forward - (concat "\n" mail-header-separator "\n") - nil t)) + (if (and (> 0 (mail-header-end)) (save-excursion (if (re-search-backward "^[^\t]" nil t) (while list |