[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-seq.el mh-comp.el ChangeLog
From: |
Bill Wohler |
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-seq.el mh-comp.el ChangeLog |
Date: |
Fri, 14 Oct 2005 12:05:39 -0400 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-commit] emacs/lisp/mh-e mh-seq.el mh-comp.el ChangeLog,
Bill Wohler <=