# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 968765430 0
# Node ID d0dfc12963ef6fd21b85db3a34c3ae6844911fd0
# Parent  1e0273003329141c9d1066cc53469113a74731db
(mail-mode-fill-paragraph): Do not get the
filed name if it's not there.

diff -r 1e0273003329 -r d0dfc12963ef lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Tue Sep 12 13:16:58 2000 +0000
+++ b/lisp/mail/sendmail.el	Tue Sep 12 13:30:30 2000 +0000
@@ -542,10 +542,10 @@
   ;; Do something special only if within the headers.
   (if (< (point) (mail-header-end))
       (let (beg end fieldname) 
-	(re-search-backward "^[-a-zA-Z]+:" nil 'yes)
-	(setq beg (point))
+	(when (prog1 (re-search-backward "^[-a-zA-Z]+:" nil 'yes)
+		(setq beg (point)))
 	(setq fieldname
-	      (downcase (buffer-substring beg (1- (match-end 0)))))
+		(downcase (buffer-substring beg (1- (match-end 0))))))
 	(forward-line 1)
 	;; Find continuation lines and get rid of their continuation markers.
 	(while (looking-at "[ \t]")