aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1991-04-01 20:15:20 +0000
committerRichard M. Stallman1991-04-01 20:15:20 +0000
commitc7c0858d9faffa25a45961b4da1cff49ba3c5b6c (patch)
tree0225b9b333eea93bc3ca2097a04309c70cdef08b
parent6f8c78e1be778361276c79e1ea11d705b9dca580 (diff)
downloademacs-c7c0858d9faffa25a45961b4da1cff49ba3c5b6c.tar.gz
emacs-c7c0858d9faffa25a45961b4da1cff49ba3c5b6c.zip
*** empty log message ***
-rw-r--r--lisp/mail/mail-utils.el12
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.
26Otherwise, (the default) use a smaller, somewhat faster and 26Otherwise, (the default) use a smaller, somewhat faster, and
27often-correct parser.") 27often 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
106that start with matches for rmail-dont-reply-to-names. 106that start with matches for `rmail-dont-reply-to-names'.
107Usenet paths ending in an element that matches are removed also." 107Usenet 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.
139The buffer is expected to be narrowed to just the headers of the message. 139The buffer is expected to be narrowed to just the headers of the message.
140If 2nd arg LAST is non-nil, use the last such field if there are several. 140If second arg LAST is non-nil, use the last such field if there are several.
141If 3rd arg ALL is non-nil, concatenate all such fields, with commas between." 141If 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)