Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
`unseen' error (closes SF #471).
This commit is contained in:
Bill Wohler 2014-02-23 17:55:39 -08:00
parent fa55368440
commit 791c0d7634
2 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/mh-e/ChangeLog
View file

@ -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.

14
lisp/mh-e/mh-folder.el
View file

@ -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