From: Dave Love <fx@gnu.org>
Date: Fri, 22 Oct 1999 16:44:37 +0000 (+0000)
Subject: (mail-header-extract, mail-header-format): Doc fix.
X-Git-Tag: emacs-pretest-21.0.90~6344
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8f09e4402f75f9a297007b07d386b6790fa97509;p=emacs.git

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

diff --git a/lisp/mail/mailheader.el b/lisp/mail/mailheader.el
index 8ec06d64f74..f859979ea09 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))))