224 |
;; Avoid compiler warning |
;; Avoid compiler warning |
225 |
(defvar tool-bar-map) |
(defvar tool-bar-map) |
226 |
|
|
227 |
|
(make-variable-buffer-local 'mh-non-seq-mode-line-annotation) |
228 |
|
|
229 |
;;;###mh-autoload |
;;;###mh-autoload |
230 |
(defun mh-narrow-to-seq (sequence) |
(defun mh-narrow-to-seq (sequence) |
231 |
"Restrict display of this folder to just messages in SEQUENCE. |
"Restrict display of this folder to just messages in SEQUENCE. |
245 |
(mh-notate-deleted-and-refiled) |
(mh-notate-deleted-and-refiled) |
246 |
(mh-notate-cur) |
(mh-notate-cur) |
247 |
(when msg-at-cursor (mh-goto-msg msg-at-cursor t t)) |
(when msg-at-cursor (mh-goto-msg msg-at-cursor t t)) |
|
(make-variable-buffer-local 'mh-non-seq-mode-line-annotation) |
|
248 |
(setq mh-non-seq-mode-line-annotation mh-mode-line-annotation) |
(setq mh-non-seq-mode-line-annotation mh-mode-line-annotation) |
249 |
(setq mh-mode-line-annotation (symbol-name sequence)) |
(setq mh-mode-line-annotation (symbol-name sequence)) |
250 |
(mh-make-folder-mode-line) |
(mh-make-folder-mode-line) |