From: Stephen Gildea Date: Sat, 25 Sep 2021 14:07:52 +0000 (-0700) Subject: Update mh-scan regexp to match mh-note-allowlisted X-Git-Tag: emacs-28.0.90~647 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e41b7f7b4db55a23bb2f55d373c38b837beeaba8;p=emacs.git Update mh-scan regexp to match mh-note-allowlisted 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. --- diff --git a/lisp/mh-e/mh-scan.el b/lisp/mh-e/mh-scan.el index 10235209dce..bad20852466 100644 --- a/lisp/mh-e/mh-scan.el +++ b/lisp/mh-e/mh-scan.el @@ -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,