# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 940610677 0
# Node ID 6d8687925869a9484628dc2c4a4464f5e28d94ef
# Parent  86441316f662415169b5007847f2eb419bb70baf
(mail-header-extract, mail-header-format): Doc fix.

diff -r 86441316f662 -r 6d8687925869 lisp/mail/mailheader.el
--- 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))))