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

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))))