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

* 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
line wrap: on
line diff
--- a/lisp/mh-e/mh-seq.el	Fri Oct 14 13:15:05 2005 +0000
+++ b/lisp/mh-e/mh-seq.el	Fri Oct 14 16:05:37 2005 +0000
@@ -224,6 +224,8 @@
 ;; Avoid compiler warning
 (defvar tool-bar-map)
 
+(make-variable-buffer-local 'mh-non-seq-mode-line-annotation)
+
 ;;;###mh-autoload
 (defun mh-narrow-to-seq (sequence)
   "Restrict display of this folder to just messages in SEQUENCE.
@@ -243,7 +245,6 @@
              (mh-notate-deleted-and-refiled)
              (mh-notate-cur)
              (when msg-at-cursor (mh-goto-msg msg-at-cursor t t))
-             (make-variable-buffer-local 'mh-non-seq-mode-line-annotation)
              (setq mh-non-seq-mode-line-annotation mh-mode-line-annotation)
              (setq mh-mode-line-annotation (symbol-name sequence))
              (mh-make-folder-mode-line)