Mercurial > emacs
changeset 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 | bff53f7b277b |
| children | 88d998016498 |
| files | lisp/mh-e/ChangeLog lisp/mh-e/mh-comp.el lisp/mh-e/mh-seq.el |
| diffstat | 3 files changed, 15 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mh-e/ChangeLog Fri Oct 14 13:15:05 2005 +0000 +++ b/lisp/mh-e/ChangeLog Fri Oct 14 16:05:37 2005 +0000 @@ -1,3 +1,12 @@ +2005-10-14 Bill Wohler <wohler@newt.com> + + * 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 <wohler@newt.com> * mh-init.el (mh-image-load-path): New function that adds the path
--- a/lisp/mh-e/mh-comp.el Fri Oct 14 13:15:05 2005 +0000 +++ b/lisp/mh-e/mh-comp.el Fri Oct 14 16:05:37 2005 +0000 @@ -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))
--- 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)