Mercurial > emacs

comparison lisp/mh-e/mh-seq.el @ 66086:1d0956c24eb7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* mh-seq.el (mh-non-seq-mode-line-annotation): Moved make-variable-buffer-local call to top level to avoid warnings in CVS Emacs. * mh-comp.el (mh-insert-letter): Replaced deprecated read-input with read-string.
author Bill Wohler <wohler@newt.com>
date Fri, 14 Oct 2005 16:05:37 +0000
parents 18a818a2ee7c
children 88d998016498
comparison
equal deleted inserted replaced
66085:bff53f7b277b 66086:1d0956c24eb7
222 " ")))) 222 " "))))
223 223
224 ;; Avoid compiler warning 224 ;; Avoid compiler warning
225 (defvar tool-bar-map) 225 (defvar tool-bar-map)
226 226
227 (make-variable-buffer-local 'mh-non-seq-mode-line-annotation)
228
227 ;;;###mh-autoload 229 ;;;###mh-autoload
228 (defun mh-narrow-to-seq (sequence) 230 (defun mh-narrow-to-seq (sequence)
229 "Restrict display of this folder to just messages in SEQUENCE. 231 "Restrict display of this folder to just messages in SEQUENCE.
230 Use \\<mh-folder-mode-map>\\[mh-widen] to undo this command." 232 Use \\<mh-folder-mode-map>\\[mh-widen] to undo this command."
231 (interactive (list (mh-read-seq "Narrow to" t))) 233 (interactive (list (mh-read-seq "Narrow to" t)))
241 mh-folder-view-stack) 243 mh-folder-view-stack)
242 (delete-region (point-min) eob) 244 (delete-region (point-min) eob)
243 (mh-notate-deleted-and-refiled) 245 (mh-notate-deleted-and-refiled)
244 (mh-notate-cur) 246 (mh-notate-cur)
245 (when msg-at-cursor (mh-goto-msg msg-at-cursor t t)) 247 (when msg-at-cursor (mh-goto-msg msg-at-cursor t t))
246 (make-variable-buffer-local 'mh-non-seq-mode-line-annotation)
247 (setq mh-non-seq-mode-line-annotation mh-mode-line-annotation) 248 (setq mh-non-seq-mode-line-annotation mh-mode-line-annotation)
248 (setq mh-mode-line-annotation (symbol-name sequence)) 249 (setq mh-mode-line-annotation (symbol-name sequence))
249 (mh-make-folder-mode-line) 250 (mh-make-folder-mode-line)
250 (mh-recenter nil) 251 (mh-recenter nil)
251 (when (and (boundp 'tool-bar-mode) tool-bar-mode) 252 (when (and (boundp 'tool-bar-mode) tool-bar-mode)