diff options
author | Dave Love <[email protected]> | 1999-10-22 16:44:37 +0000 |
---|---|---|
committer | Dave Love <[email protected]> | 1999-10-22 16:44:37 +0000 |
commit | 8f09e4402f75f9a297007b07d386b6790fa97509 (patch) | |
tree | 97a1ed0f904cb670bc66bcbc59002e04a921c62d | |
parent | af480bd8cb8f074c06ac6bd1f0e3e92f8effa2ed (diff) |
(mail-header-extract, mail-header-format): Doc fix.
-rw-r--r-- | lisp/mail/mailheader.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/mailheader.el b/lisp/mail/mailheader.el index 8ec06d64f7..f859979ea0 100644 --- a/lisp/mail/mailheader.el +++ b/lisp/mail/mailheader.el @@ -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)))) |