mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Simon Marshall 1998-03-25 16:41:18 +00:00
parent 4116deeea8
commit e69d810c33
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mail/sendmail.el
View File

@ -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]*"