Variable: mh-folder-font-lock-keywords
mh-folder-font-lock-keywords is a variable defined in mh-folder.el.gz.
Value
Large value
(("^\\+.*"
(0 'mh-search-folder))
("^\\( *[0-9]+\\)\\^.*"
(0 'mh-folder-refiled))
("^\\( *[0-9]+\\)D.*"
(0 'mh-folder-deleted))
("^\\( *[0-9]+\\)B.*"
(0 'mh-folder-blocklisted))
("^\\( *[0-9]+\\)A.*"
(0 'mh-folder-allowlisted))
("\\(<<\\([^\n]+\\)?\\)"
(1 'mh-folder-body nil t))
(mh-folder-font-lock-subject
(1 'mh-folder-followup append t)
(2 'mh-folder-subject append t))
("^\\( *[0-9]+\\+\\).*"
(1 'mh-folder-cur-msg-number))
("^\\( *[0-9]+\\)[^^DBA0-9]"
(1 'mh-folder-msg-number))
("\\([0-9][0-9]/[0-9][0-9]\\)"
(1 'mh-folder-date))
("\\(To:\\)\\(..............\\)"
(1 'mh-folder-to)
(2 'mh-folder-address))
("^ *[0-9]+.\\([bct]\\).....[ ]*\\(..................\\)"
(1 'mh-folder-sent-to-me-hint)
(2 'mh-folder-sent-to-me-sender))
(mh-folder-font-lock-unseen
(1 'bold prepend t))
(mh-folder-font-lock-tick
(1 'mh-folder-tick prepend t)))
Documentation
Keywords (regular expressions) used to fontify the MH-Folder buffer.
Source Code
;; Defined in /usr/src/emacs/lisp/mh-e/mh-folder.el.gz
;;; MH-Folder Font Lock
(defvar mh-folder-font-lock-keywords
(list
;; Folders when displaying index buffer
(list "^\\+.*"
'(0 'mh-search-folder))
;; Marked for refile
(list (concat mh-scan-refiled-msg-regexp ".*")
'(0 'mh-folder-refiled))
;; Marked for deletion
(list (concat mh-scan-deleted-msg-regexp ".*")
'(0 'mh-folder-deleted))
;; Marked for blocklisting
(list (concat mh-scan-blocklisted-msg-regexp ".*")
'(0 'mh-folder-blocklisted))
;; Marked for allowlisting
(list (concat mh-scan-allowlisted-msg-regexp ".*")
'(0 'mh-folder-allowlisted))
;; After subject
(list mh-scan-body-regexp
'(1 'mh-folder-body nil t))
;; Subject
'(mh-folder-font-lock-subject
(1 'mh-folder-followup append t)
(2 'mh-folder-subject append t))
;; Current message number
(list mh-scan-cur-msg-number-regexp
'(1 'mh-folder-cur-msg-number))
;; Message number
(list mh-scan-good-msg-regexp
'(1 'mh-folder-msg-number))
;; Date
(list mh-scan-date-regexp
'(1 'mh-folder-date))
;; Messages from me (To:)
(list mh-scan-rcpt-regexp
'(1 'mh-folder-to)
'(2 'mh-folder-address))
;; Messages to me
(list mh-scan-sent-to-me-sender-regexp
'(1 'mh-folder-sent-to-me-hint)
'(2 'mh-folder-sent-to-me-sender)))
"Keywords (regular expressions) used to fontify the MH-Folder buffer.")