(wl-summary-jump-to-msg-by-message-id): Bind cursor-in-echo-area

while confirming.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 5618051..1dbc68a 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -3,6 +3,8 @@
        * wl-summary.el (wl-summary-goto-folder-subr): Don't restrict
        `wl-summary-highlight'.
        (wl-summary-reedit): Use `cond' instead of nested `if'.
+       (wl-summary-jump-to-msg-by-message-id): Bind cursor-in-echo-area
+       while confirming.
 
        * wl-fldmgr.el (wl-fldmgr-folders-header): Add more comment.
        (wl-fldmgr-save-folders): Fix comment.

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 00344bc..3301a07 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4706,7 +4706,7 @@ Return t if message exists."
               (require 'elmo-nntp)
               (message "Search message in nntp server \"%s\" <y/n/s(elect)>? "
                        elmo-nntp-default-server)
-              (setq schar (read-char))
+              (setq schar (let ((cursor-in-echo-area t)) (read-char)))
               (cond ((eq schar ?y)
                      (wl-summary-jump-to-msg-by-message-id-via-nntp msgid))
                     ((eq schar ?s)