Mercurial > emacs

comparison lisp/mail/mail-utils.el @ 5289:4e000b7b285a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-fetch-field): Add autoload cookie.
author Richard M. Stallman <rms@gnu.org>
date Thu, 23 Dec 1993 03:46:01 +0000
parents 976d7492e00e
children 362f4c3bd99c
comparison
equal deleted inserted replaced
5288:c32c5d1aa89d 5289:4e000b7b285a
150 ;; remove leading spaces. they bother me. 150 ;; remove leading spaces. they bother me.
151 (if (string-match "\\s *" userids) 151 (if (string-match "\\s *" userids)
152 (substring userids (match-end 0)) 152 (substring userids (match-end 0))
153 userids))) 153 userids)))
154 154
155 ;;;###autoload
155 (defun mail-fetch-field (field-name &optional last all) 156 (defun mail-fetch-field (field-name &optional last all)
156 "Return the value of the header field FIELD-NAME. 157 "Return the value of the header field FIELD-NAME.
157 The buffer is expected to be narrowed to just the headers of the message. 158 The buffer is expected to be narrowed to just the headers of the message.
158 If second arg LAST is non-nil, use the last such field if there are several. 159 If second arg LAST is non-nil, use the last such field if there are several.
159 If third arg ALL is non-nil, concatenate all such fields with commas between." 160 If third arg ALL is non-nil, concatenate all such fields with commas between."