mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(mail-header-extract, mail-header-format): Doc fix.

Browse Source
This commit is contained in:
Dave Love 1999-10-22 16:44:37 +00:00
parent af480bd8cb
commit 8f09e4402f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mail/mailheader.el
View File

@ -63,7 +63,7 @@ that name."
(> (skip-chars-forward "^\0- :") 0)
(= (following-char) ?:)
(setq end (point))
(progn (forward-char)
(progn (forward-char)
(> (skip-chars-forward " \t") 0)))
(let ((header (intern (downcase (buffer-substring start end))))
(value (list (buffer-substring
@ -109,7 +109,7 @@ value."
"Return the value associated with header HEADER in HEADER-ALIST.
If the value is a string, it is the original value of the header. If the
value is a list, its first element is the original value of the header,
with any subsequent elements bing the result of parsing the value.
with any subsequent elements being the result of parsing the value.
If HEADER-ALIST is nil, the dynamically bound variable `headers' is used."
(cdr (assq header (or header-alist headers))))
@ -165,7 +165,7 @@ specified for a particular header field, the default action is to
insert the value of the header, unless it is nil.
The headers are inserted in the order of the FORMAT-RULES.
A key of t in FORMAT-RULES. represents any otherwise unmentioned headers.
A key of t in FORMAT-RULES represents any otherwise unmentioned headers.
A key of nil has as its value a list of defaulted headers to ignore."
(let ((ignore (append (cdr (assq nil format-rules))
(mapcar #'car format-rules))))