From 026fd0581cebca07b814f5a5650294d898c7799b Mon Sep 17 00:00:00 2001
From: kaoru <kaoru>
Date: Wed, 18 Jun 2003 18:57:40 +0000
Subject: [PATCH] (wl-summary-jump-to-msg-by-message-id): Bind
 cursor-in-echo-area while confirming.

---
 wl/ChangeLog     |    2 ++
 wl/wl-summary.el |    2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

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