procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix mail-header-separator font lock in message.el

Browse source 
* lisp/gnus/message.el (message-font-lock-keywords): Dynamically
font lock mail-header-separator, in case it changes. (bug#34898)
This commit is contained in:
Basil L. Contovounesios 2019-03-18 18:21:15 +00:00
parent 417c52b0b7
commit 2f7e97ef48
1 changed files with 15 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
lisp/gnus/message.el
View file

@ -1601,19 +1601,21 @@ starting with `not' and followed by regexps."
(progn (goto-char (match-beginning 0)) (match-end 0)) nil
(1 'message-header-name)
(2 'message-header-other nil t)))
,@(if (and mail-header-separator
(not (equal mail-header-separator "")))
`((,(concat "^\\(" (regexp-quote mail-header-separator) "\\)$")
1 'message-separator))
nil)
((lambda (limit)
(re-search-forward (concat "^\\("
message-cite-prefix-regexp
"\\).*")
limit t))
(0 'message-cited-text))
("<#/?\\(multipart\\|part\\|external\\|mml\\|secure\\)[^>]*>"
(0 'message-mml))))
(,(lambda (limit)
(and mail-header-separator
(not (equal mail-header-separator ""))
(re-search-forward
(concat "^" (regexp-quote mail-header-separator) "$")
limit t)))
0 'message-separator)
(,(lambda (limit)
(re-search-forward (concat "^\\(?:"
message-cite-prefix-regexp
"\\).*")
limit t))
0 'message-cited-text)
("<#/?\\(?:multipart\\|part\\|external\\|mml\\|secure\\)[^>]*>"
0 'message-mml)))
"Additional expressions to highlight in Message mode.")
(defvar message-face-alist