procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(expand-mail-aliases): Doc fix.

Browse source 
(expand-mail-aliases, mail-complete): Use mail-header-end.
This commit is contained in:
Richard M. Stallman 1998-04-30 06:27:58 +00:00
parent 13aa1cde7f
commit 30eaaa34b1
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/mail/mailalias.el
View file

@ -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