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

diff --git a/lisp/mail/mailheader.el b/lisp/mail/mailheader.el
index 8ec06d64f74092f13857a9a86171d100e9415225..f859979ea09ffc824279838c2c2086b2e943c3ac 100644 (file)
--- 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))))