diff options
| author | Richard M. Stallman | 1991-04-01 20:15:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1991-04-01 20:15:20 +0000 |
| commit | c7c0858d9faffa25a45961b4da1cff49ba3c5b6c (patch) | |
| tree | 0225b9b333eea93bc3ca2097a04309c70cdef08b | |
| parent | 6f8c78e1be778361276c79e1ea11d705b9dca580 (diff) | |
| download | emacs-c7c0858d9faffa25a45961b4da1cff49ba3c5b6c.tar.gz emacs-c7c0858d9faffa25a45961b4da1cff49ba3c5b6c.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/mail/mail-utils.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index 49c563d65b5..a9eafa4b5e3 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el | |||
| @@ -23,8 +23,8 @@ | |||
| 23 | ;; should be in loaddefs | 23 | ;; should be in loaddefs |
| 24 | (defvar mail-use-rfc822 nil | 24 | (defvar mail-use-rfc822 nil |
| 25 | "*If non-nil, use a full, hairy RFC822 parser on mail addresses. | 25 | "*If non-nil, use a full, hairy RFC822 parser on mail addresses. |
| 26 | Otherwise, (the default) use a smaller, somewhat faster and | 26 | Otherwise, (the default) use a smaller, somewhat faster, and |
| 27 | often-correct parser.") | 27 | often correct parser.") |
| 28 | 28 | ||
| 29 | (defun mail-string-delete (string start end) | 29 | (defun mail-string-delete (string start end) |
| 30 | "Returns a string containing all of STRING except the part | 30 | "Returns a string containing all of STRING except the part |
| @@ -103,7 +103,7 @@ Return a modified address list." | |||
| 103 | ; rmail-dont-reply-to-names is defined in loaddefs | 103 | ; rmail-dont-reply-to-names is defined in loaddefs |
| 104 | (defun rmail-dont-reply-to (userids) | 104 | (defun rmail-dont-reply-to (userids) |
| 105 | "Returns string of mail addresses USERIDS sans any recipients | 105 | "Returns string of mail addresses USERIDS sans any recipients |
| 106 | that start with matches for rmail-dont-reply-to-names. | 106 | that start with matches for `rmail-dont-reply-to-names'. |
| 107 | Usenet paths ending in an element that matches are removed also." | 107 | Usenet paths ending in an element that matches are removed also." |
| 108 | (if (null rmail-dont-reply-to-names) | 108 | (if (null rmail-dont-reply-to-names) |
| 109 | (setq rmail-dont-reply-to-names | 109 | (setq rmail-dont-reply-to-names |
| @@ -135,10 +135,10 @@ Usenet paths ending in an element that matches are removed also." | |||
| 135 | userids))) | 135 | userids))) |
| 136 | 136 | ||
| 137 | (defun mail-fetch-field (field-name &optional last all) | 137 | (defun mail-fetch-field (field-name &optional last all) |
| 138 | "Return the value of the header field FIELD. | 138 | "Return the value of the header field FIELD-NAME. |
| 139 | The buffer is expected to be narrowed to just the headers of the message. | 139 | The buffer is expected to be narrowed to just the headers of the message. |
| 140 | If 2nd arg LAST is non-nil, use the last such field if there are several. | 140 | If second arg LAST is non-nil, use the last such field if there are several. |
| 141 | If 3rd arg ALL is non-nil, concatenate all such fields, with commas between." | 141 | If third arg ALL is non-nil, concatenate all such fields with commas between." |
| 142 | (save-excursion | 142 | (save-excursion |
| 143 | (goto-char (point-min)) | 143 | (goto-char (point-min)) |
| 144 | (let ((case-fold-search t) | 144 | (let ((case-fold-search t) |