diff options
| author | Robert Pluim | 2025-09-29 11:22:32 +0200 |
|---|---|---|
| committer | Robert Pluim | 2025-09-29 11:26:53 +0200 |
| commit | 6992d0e3bb79ac353f3d2335dba29431ccd64dc3 (patch) | |
| tree | 126301ec44d377d8d0e57cc106822929562e8774 | |
| parent | 752894ef54958d5bb6fbf7fc18f4a591d140bf39 (diff) | |
| download | emacs-6992d0e3bb79ac353f3d2335dba29431ccd64dc3.tar.gz emacs-6992d0e3bb79ac353f3d2335dba29431ccd64dc3.zip | |
; Fix typos
* lisp/mail/mail-utils.el (mail-fetch-field, mail-mbox-from):
'headers', not 'header'.
| -rw-r--r-- | lisp/mail/mail-utils.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index d51e2747ba3..28cc250f6cb 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el | |||
| @@ -319,7 +319,7 @@ If third arg ALL is non-nil, concatenate all such fields with commas between. | |||
| 319 | If 4th arg LIST is non-nil, return a list of all such fields. | 319 | If 4th arg LIST is non-nil, return a list of all such fields. |
| 320 | If 5th arg DELETE is non-nil, delete all header lines that are | 320 | If 5th arg DELETE is non-nil, delete all header lines that are |
| 321 | included in the result. | 321 | included in the result. |
| 322 | The buffer should be narrowed to just the header, else false | 322 | The buffer should be narrowed to just the headers, else false |
| 323 | matches may be returned from the message body." | 323 | matches may be returned from the message body." |
| 324 | (save-excursion | 324 | (save-excursion |
| 325 | (goto-char (point-min)) | 325 | (goto-char (point-min)) |
| @@ -404,7 +404,7 @@ matches may be returned from the message body." | |||
| 404 | 404 | ||
| 405 | (defun mail-mbox-from () | 405 | (defun mail-mbox-from () |
| 406 | "Return an mbox \"From \" line for the current message. | 406 | "Return an mbox \"From \" line for the current message. |
| 407 | The buffer should be narrowed to just the header." | 407 | The buffer should be narrowed to just the headers." |
| 408 | (let* ((from (mail-strip-quoted-names (or (mail-fetch-field "from") | 408 | (let* ((from (mail-strip-quoted-names (or (mail-fetch-field "from") |
| 409 | (mail-fetch-field "really-from") | 409 | (mail-fetch-field "really-from") |
| 410 | (mail-fetch-field "sender") | 410 | (mail-fetch-field "sender") |