Mercurial > emacs
changeset 21867:ccda1e80b153
(expand-mail-aliases): Doc fix.
(expand-mail-aliases, mail-complete): Use mail-header-end.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 30 Apr 1998 06:27:58 +0000 |
| parents | d98a0a598fb9 |
| children | 14f3c9f7e356 |
| files | lisp/mail/mailalias.el |
| diffstat | 1 files changed, 3 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mailalias.el Thu Apr 30 06:26:19 1998 +0000 +++ b/lisp/mail/mailalias.el Thu Apr 30 06:27:58 1998 +0000 @@ -161,7 +161,7 @@ ;;;###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 @@ (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 @@ (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