Mercurial > emacs
changeset 26135:6d8687925869
(mail-header-extract, mail-header-format): Doc fix.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 22 Oct 1999 16:44:37 +0000 |
| parents | 86441316f662 |
| children | 6e87dd221598 |
| files | lisp/mail/mailheader.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mailheader.el Fri Oct 22 16:19:18 1999 +0000 +++ b/lisp/mail/mailheader.el Fri Oct 22 16:44:37 1999 +0000 @@ -63,7 +63,7 @@ (> (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 @@ "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 @@ 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))))