mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

; Fix typos

Browse source 
* lisp/mail/mail-utils.el (mail-fetch-field, mail-mbox-from):
'headers', not 'header'.
This commit is contained in:
Robert Pluim 2025-09-29 11:22:32 +02:00
parent 752894ef54
commit 6992d0e3bb
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mail/mail-utils.el
View file

@ -319,7 +319,7 @@ If third arg ALL is non-nil, concatenate all such fields with commas between.
If 4th arg LIST is non-nil, return a list of all such fields. If 4th arg LIST is non-nil, return a list of all such fields.
If 5th arg DELETE is non-nil, delete all header lines that are If 5th arg DELETE is non-nil, delete all header lines that are
included in the result. included in the result.
The buffer should be narrowed to just the header, else false The buffer should be narrowed to just the headers, else false
matches may be returned from the message body." matches may be returned from the message body."
(save-excursion (save-excursion
(goto-char (point-min)) (goto-char (point-min))
@ -404,7 +404,7 @@ matches may be returned from the message body."
(defun mail-mbox-from () (defun mail-mbox-from ()
"Return an mbox \"From \" line for the current message. "Return an mbox \"From \" line for the current message.
The buffer should be narrowed to just the header." The buffer should be narrowed to just the headers."
(let* ((from (mail-strip-quoted-names (or (mail-fetch-field "from") (let* ((from (mail-strip-quoted-names (or (mail-fetch-field "from")
(mail-fetch-field "really-from") (mail-fetch-field "really-from")
(mail-fetch-field "sender") (mail-fetch-field "sender")