From c7c0858d9faffa25a45961b4da1cff49ba3c5b6c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 1 Apr 1991 20:15:20 +0000 Subject: [PATCH] *** empty log message *** --- lisp/mail/mail-utils.el | 12 ++++++------ 1 file 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) -- 2.39.5