From 8fcbbf7d4253e5f2303d9b338a45af4078f10015 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 12 Sep 2000 13:30:30 +0000 Subject: [PATCH] (mail-mode-fill-paragraph): Do not get the filed name if it's not there. --- lisp/mail/sendmail.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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]") -- 2.39.2