diff options
| -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") |