(mail-mode-fill-paragraph): Do not get the

filed name if it's not there.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 9a6e2afda8fcb3881bb161f16e36ff8731892011..a04b93bd7acef424716cd2664ef37abb33eb4f79 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -542,10 +542,10 @@ If within the headers, this makes the new lines into continuation lines."
   ;; 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]")