From: kaoru <kaoru>
Date: Wed, 18 Jun 2003 18:57:40 +0000 (+0000)
Subject: (wl-summary-jump-to-msg-by-message-id): Bind cursor-in-echo-area
X-Git-Tag: wl-2_10_1pre~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=026fd0581cebca07b814f5a5650294d898c7799b;p=elisp%2Fwanderlust.git

(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
--- 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
--- 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)