From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 12 Sep 2000 13:30:30 +0000 (+0000)
Subject: (mail-mode-fill-paragraph): Do not get the
X-Git-Tag: emacs-pretest-21.0.90~1646
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8fcbbf7d4253e5f2303d9b338a45af4078f10015;p=emacs.git

(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 9a6e2afda8f..a04b93bd7ac 100644
--- 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]")