From: Simon Marshall <simon@gnu.org>
Date: Wed, 25 Mar 1998 16:41:18 +0000 (+0000)
Subject: check length of mail-header-separator before using in font-lock-keywords.
X-Git-Tag: emacs-20.3~1790
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e69d810c33b897f217460eb07afd1e833161a9e2;p=emacs.git

check length of mail-header-separator before using in font-lock-keywords.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index b8e36ee1517..5a01eae58d5 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -271,8 +271,10 @@ actually occur.")
 	      (1 font-lock-comment-face) (2 font-lock-type-face nil t))
 	    ;; Use EVAL to delay in case `mail-header-separator' gets changed.
 	    '(eval .
-	      (cons (concat "^" (regexp-quote mail-header-separator) "$")
-		    'font-lock-warning-face))
+	      (let ((separator (if (zerop (length mail-header-separator))
+				   " "
+				 (regexp-quote mail-header-separator))))
+		(cons (concat "^" separator "$") 'font-lock-warning-face)))
 	    ;; Use MATCH-ANCHORED to effectively anchor the regexp left side.
 	    `(,cite-chars
 	      (,(concat "\\=[ \t]*"