[Emacs-commit] emacs/lisp/mh-e mh-seq.el mh-comp.el ChangeLog

[Bill Wohler]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         
Changes by:     Bill Wohler <address@hidden>    05/10/14 16:05:38

Modified files:
        lisp/mh-e      : mh-seq.el mh-comp.el ChangeLog 

Log message:
        * 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.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/emacs/emacs/lisp/mh-e/mh-seq.el.diff?tr1=1.10&tr2=1.11&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/emacs/emacs/lisp/mh-e/mh-comp.el.diff?tr1=1.14&tr2=1.15&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.34&tr2=1.35&r1=text&r2=text

Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.34 emacs/lisp/mh-e/ChangeLog:1.35
--- emacs/lisp/mh-e/ChangeLog:1.34      Mon Oct 10 16:37:53 2005
+++ emacs/lisp/mh-e/ChangeLog   Fri Oct 14 16:05:37 2005
@@ -1,3 +1,12 @@
+2005-10-14  Bill Wohler  <address@hidden>
+
+       * 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.
+
 2005-10-09  Bill Wohler  <address@hidden>
 
        * mh-init.el (mh-image-load-path): New function that adds the path
Index: emacs/lisp/mh-e/mh-comp.el
diff -u emacs/lisp/mh-e/mh-comp.el:1.14 emacs/lisp/mh-e/mh-comp.el:1.15
--- emacs/lisp/mh-e/mh-comp.el:1.14     Mon Oct 10 16:37:53 2005
+++ emacs/lisp/mh-e/mh-comp.el  Fri Oct 14 16:05:37 2005
@@ -1430,10 +1430,10 @@
 and point after it."
   (interactive
    (list (mh-prompt-for-folder "Message from" mh-sent-from-folder nil)
-         (read-input (concat "Message number"
-                             (if (numberp mh-sent-from-msg)
-                                 (format " (default %d): " mh-sent-from-msg)
-                               ": ")))
+         (read-string (concat "Message number"
+                              (if (numberp mh-sent-from-msg)
+                                  (format " (default %d): " mh-sent-from-msg)
+                                ": ")))
          current-prefix-arg))
   (save-restriction
     (narrow-to-region (point) (point))
Index: emacs/lisp/mh-e/mh-seq.el
diff -u emacs/lisp/mh-e/mh-seq.el:1.10 emacs/lisp/mh-e/mh-seq.el:1.11
--- emacs/lisp/mh-e/mh-seq.el:1.10      Mon Jul  4 17:15:52 2005
+++ emacs/lisp/mh-e/mh-seq.el   Fri Oct 14 16:05:37 2005
@@ -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)