* mh-folder.el (mh-regenerate-headers): Fix scan: bad message list

`unseen' error (closes SF #471).

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 301576aa9d1cfecfae224764cac1949b20d2cbfb..74cab4443da433b0605f567866d8faca982b8afa 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,8 @@
+2014-02-24  Bill Wohler  <wohler@newt.com>
+
+       * mh-folder.el (mh-regenerate-headers): Fix scan: bad message list
+       `unseen' error (closes SF #471).
+
 2013-03-03  Bill Wohler  <wohler@newt.com>
 
        * mh-e.el (mh-version): Add +bzr to version.

diff --git a/lisp/mh-e/mh-folder.el b/lisp/mh-e/mh-folder.el
index 01f304a38dca4468f37885a0af902315c5ee535f..599baf3326f34318a680037083c0c7901185ad8a 100644 (file)
--- a/lisp/mh-e/mh-folder.el
+++ b/lisp/mh-e/mh-folder.el
@@ -1817,15 +1817,13 @@ If UPDATE, append the scan lines, otherwise replace."
              "-width" (window-width)
              folder range)
       (goto-char scan-start)
-      (cond ((looking-at "scan: no messages in")
-             (keep-lines mh-scan-valid-regexp)) ; Flush random scan lines
-            ((looking-at (if (mh-variant-p 'gnu-mh)
-                             "scan: message set .* does not exist"
-                           "scan: bad message list "))
-             (keep-lines mh-scan-valid-regexp))
-            ((looking-at "scan: "))     ; Keep error messages
+      (cond ((or (looking-at "scan: no messages in")
+                 (looking-at "scan: message set .* does not exist")
+                 (looking-at "scan: bad message list "))
+             (keep-lines mh-scan-valid-regexp)) ; flush common scan output
+            ((looking-at "scan: "))             ; keep unexpected error messages
             (t
-             (keep-lines mh-scan-valid-regexp))) ; Flush random scan lines
+             (keep-lines mh-scan-valid-regexp))) ; flush random scan output
       (setq mh-seq-list (mh-read-folder-sequences folder nil))
       (mh-notate-user-sequences)
       (or update