diff options
author | Richard M. Stallman <rms@gnu.org> | 1991-04-01 20:15:20 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1991-04-01 20:15:20 +0000 |
commit | c7c0858d9faffa25a45961b4da1cff49ba3c5b6c (patch) | |
tree | 0225b9b333eea93bc3ca2097a04309c70cdef08b | |
parent | 6f8c78e1be778361276c79e1ea11d705b9dca580 (diff) | |
download | emacs-c7c0858d9faffa25a45961b4da1cff49ba3c5b6c.tar.gz |
*** 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 @@ ;; should be in loaddefs (defvar mail-use-rfc822 nil "*If non-nil, use a full, hairy RFC822 parser on mail addresses. -Otherwise, (the default) use a smaller, somewhat faster and -often-correct parser.") +Otherwise, (the default) use a smaller, somewhat faster, and +often correct parser.") (defun mail-string-delete (string start end) "Returns a string containing all of STRING except the part @@ -103,7 +103,7 @@ Return a modified address list." ; rmail-dont-reply-to-names is defined in loaddefs (defun rmail-dont-reply-to (userids) "Returns string of mail addresses USERIDS sans any recipients -that start with matches for rmail-dont-reply-to-names. +that start with matches for `rmail-dont-reply-to-names'. Usenet paths ending in an element that matches are removed also." (if (null rmail-dont-reply-to-names) (setq rmail-dont-reply-to-names @@ -135,10 +135,10 @@ Usenet paths ending in an element that matches are removed also." userids))) (defun mail-fetch-field (field-name &optional last all) - "Return the value of the header field FIELD. + "Return the value of the header field FIELD-NAME. The buffer is expected to be narrowed to just the headers of the message. -If 2nd arg LAST is non-nil, use the last such field if there are several. -If 3rd arg ALL is non-nil, concatenate all such fields, with commas between." +If second arg LAST is non-nil, use the last such field if there are several. +If third arg ALL is non-nil, concatenate all such fields with commas between." (save-excursion (goto-char (point-min)) (let ((case-fold-search t) |