Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3d51068d
Commit
3d51068d
authored
Mar 15, 1997
by
Simon Marshall
Browse files
Tweak font-lock-keywords
parent
45c4fdeb
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
17 additions
and
11 deletions
+17
-11
lisp/mail/rmail.el
lisp/mail/rmail.el
+7
-4
lisp/mail/sendmail.el
lisp/mail/sendmail.el
+10
-7
No files found.
lisp/mail/rmail.el
View file @
3d51068d
...
...
@@ -188,14 +188,17 @@ before obeying `rmail-ignored-headers'.")
(list '("^\\(From\\|Sender\\
)
:
" . font-lock-function-name-face)
'("
^Reply-To:.*$
" . font-lock-function-name-face)
'("
^Subject:
" . font-lock-comment-face)
'("
^\\
(
To\\|Apparently-To\\|Cc\\
)
:
" . font-lock-keyword-face)
'("
^\\
(
To\\|Apparently-To\\|Cc\\|Newsgroups\\):"
. font-lock-keyword-face)
;; Use MATCH-ANCHORED to effectively anchor the regexp left side.
`(,cite-chars
(,(concat "\\=[ \t]*"
"
\\
(
[
" cite-prefix "
]+[
" cite-suffix "
]*\\
)
?
"
cite-chars "
.
*
")
"\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?"
"\\(" cite-chars "[ \t]*\\)\\)+"
"\\(.*\\)")
(beginning-of-line) (end-of-line)
(0 font-lock-reference-face)))
(2 font-lock-reference-face nil t)
(4 font-lock-comment-face nil t)))
'("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\|Date\\):.*$"
. font-lock-string-face))))
"Additional expressions to highlight in Rmail mode.")
...
...
lisp/mail/sendmail.el
View file @
3d51068d
...
...
@@ -215,20 +215,23 @@ actually occur.")
(
let*
((
cite-chars
"[>|}]"
)
(
cite-prefix
"A-Za-z"
)
(
cite-suffix
(
concat
cite-prefix
"0-9_.@-`'\""
)))
(
list
'
(
"^
To
:"
.
font-lock-function-name-face
)
'
(
"^B?CC
:
\\|
^
Reply-to:"
.
font-lock-keyword-face
)
(
list
'
(
"^
\\(To\\|Newsgroups\\)
:"
.
font-lock-function-name-face
)
'
(
"^
\\(
B?CC\\|Reply-to
\\)
:"
.
font-lock-keyword-face
)
'
(
"^\\(Subject:\\)[ \t]*\\(.+\\)?"
(
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-comment-face
)
'
(
eval
.
(
cons
(
concat
"^"
(
regexp-quote
mail-header-separator
)
"$"
)
'font-lock-warning-face
))
;; Use MATCH-ANCHORED to effectively anchor the regexp left side.
`
(
,
cite-chars
(
,
(
concat
"\\=[ \t]*"
"\\(["
cite-prefix
"]+["
cite-suffix
"]*\\)?"
cite-chars
".*"
)
"\\(\\(["
cite-prefix
"]+["
cite-suffix
"]*\\)?"
"\\("
cite-chars
"[ \t]*\\)\\)+"
"\\(.*\\)"
)
(
beginning-of-line
)
(
end-of-line
)
(
0
font-lock-reference-face
)))
(
2
font-lock-reference-face
nil
t
)
(
4
font-lock-comment-face
nil
t
)))
'
(
"^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*"
.
font-lock-string-face
))))
"Additional expressions to highlight in Mail mode."
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment