diff options
| author | Bill Wohler <wohler@newt.com> | 2005-10-14 16:05:37 +0000 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2005-10-14 16:05:37 +0000 |
| commit | a10f4ace50d2747876c0bb0cce3acb58822f2769 (patch) | |
| tree | 4321ba95a5b81ea60b4b541a6b91db2c2713add2 /lisp/mh-e/mh-comp.el | |
| parent | f28e9cbd37a11d734b4301a332661affee281aa2 (diff) | |
| download | emacs-a10f4ace50d2747876c0bb0cce3acb58822f2769.tar.gz | |
* 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.
Diffstat (limited to 'lisp/mh-e/mh-comp.el')
| -rw-r--r-- | lisp/mh-e/mh-comp.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el index a7af192ec40..7289207cfb2 100644 --- a/lisp/mh-e/mh-comp.el +++ b/lisp/mh-e/mh-comp.el @@ -1430,10 +1430,10 @@ not indent and do not delete headers. Leaves the mark before the letter 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)) |