mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

Update mh-scan regexp to match mh-note-allowlisted

Browse Source 
lisp/mh-e/mh-scan.el (mh-scan-good-msg-regexp, mh-scan-cmd-note-width):
Update to match new value ("A") of mh-note-allowlisted.
This commit is contained in:
Stephen Gildea 2021-09-25 07:07:52 -07:00
parent c17eded545
commit e41b7f7b4d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mh-e/mh-scan.el
View File

@ -173,7 +173,7 @@ is done with the face `mh-folder-deleted'. This regular
expression should be correct as it is needed by non-fontification
functions. See also `mh-note-deleted'.")
(defvar mh-scan-good-msg-regexp "^\\( *[0-9]+\\)[^^DBW0-9]"
(defvar mh-scan-good-msg-regexp "^\\( *[0-9]+\\)[^^DBA0-9]"
"This regular expression matches \"good\" messages.
It must match from the beginning of the line. Note that the
@ -181,7 +181,7 @@ default setting of `mh-folder-font-lock-keywords' expects this
expression to contain at least one parenthesized expression which
matches the message number as in the default of
\"^\\\\( *[0-9]+\\\\)[^^DBW0-9]\".
\"^\\\\( *[0-9]+\\\\)[^^DBA0-9]\".
This expression includes the leading space within the parenthesis
since it looks better to highlight it as well. The highlighting
@ -328,7 +328,7 @@ Note that columns in Emacs start with 0.")
(defvar mh-scan-cmd-note-width 1
"Number of columns consumed by the cmd-note field in `mh-scan-format'.
This column will have one of the values: \" \", \"^\", \"D\", \"B\", \"W\", \"+\", where
This column will have one of the values: \" \", \"^\", \"D\", \"B\", \"A\", \"+\", where
\" \" is the default value,
\"^\" is the `mh-note-refiled' character,