;;; mh-folder.el --- MH-Folder mode
-;; Copyright (C) 2002-2003, 2005-2014 Free Software Foundation, Inc.
+;; Copyright (C) 2002-2003, 2005-2016 Free Software Foundation, Inc.
;; Author: Bill Wohler <wohler@newt.com>
;; Maintainer: Bill Wohler <wohler@newt.com>
In a program, optional non-nil second argument NO-ERROR-IF-NO-MESSAGE
means return nil instead of signaling an error if message does not
-exist\; in this case, the cursor is positioned near where the message
+exist; in this case, the cursor is positioned near where the message
would have been. Non-nil third argument DONT-SHOW means not to show
the message."
(interactive "NGo to message: ")
"-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