diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/sendmail.el | 6 |
1 files changed, 4 insertions, 2 deletions
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.") | |||
| 271 | (1 font-lock-comment-face) (2 font-lock-type-face nil t)) | 271 | (1 font-lock-comment-face) (2 font-lock-type-face nil t)) |
| 272 | ;; Use EVAL to delay in case `mail-header-separator' gets changed. | 272 | ;; Use EVAL to delay in case `mail-header-separator' gets changed. |
| 273 | '(eval . | 273 | '(eval . |
| 274 | (cons (concat "^" (regexp-quote mail-header-separator) "$") | 274 | (let ((separator (if (zerop (length mail-header-separator)) |
| 275 | 'font-lock-warning-face)) | 275 | " " |
| 276 | (regexp-quote mail-header-separator)))) | ||
| 277 | (cons (concat "^" separator "$") 'font-lock-warning-face))) | ||
| 276 | ;; Use MATCH-ANCHORED to effectively anchor the regexp left side. | 278 | ;; Use MATCH-ANCHORED to effectively anchor the regexp left side. |
| 277 | `(,cite-chars | 279 | `(,cite-chars |
| 278 | (,(concat "\\=[ \t]*" | 280 | (,(concat "\\=[ \t]*" |