From: teranisi <teranisi>
Date: Wed, 17 Jan 2001 03:26:48 +0000 (+0000)
Subject: * wl-message.el (wl-message-mode-map): Define.
X-Git-Tag: wl-2_4_1pre~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2ec572d6a0044c14a70c624e252412c56068a5f5;p=elisp%2Fwanderlust.git

* wl-message.el (wl-message-mode-map): Define.
(wl-message-decode): Use it as local-map.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 34e15ba..5a138a9 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-message.el (wl-message-mode-map): Define.
+	(wl-message-decode): Use it as local-map.
+
 2001-01-16  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-score.el (wl-score-guess-like-gnus): Abolished.
diff --git a/wl/wl-message.el b/wl/wl-message.el
index c29e519..63ba80a 100644
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -182,6 +182,14 @@
 	  (select-window (get-buffer-window summary-buf))))
     (run-hooks 'wl-message-exit-hook)))
 
+(defvar wl-message-mode-map nil)
+(if wl-message-mode-map
+    ()
+  (setq wl-message-mode-map (make-sparse-keymap))
+  (define-key wl-message-mode-map "q" 'wl-message-exit)
+  (define-key wl-message-mode-map "n" 'wl-message-exit)
+  (define-key wl-message-mode-map "p" 'wl-message-exit))
+
 (defun wl-message-decode (outbuf inbuf flag)
   (cond
    ((eq flag 'all-header)
@@ -204,9 +212,7 @@
 	  (elmo-set-buffer-multibyte nil))
 	(copy-to-buffer outbuf (point-min) (point-max))
 	(set-buffer outbuf)
-	(local-set-key "q" 'wl-message-exit)
-	(local-set-key "p" 'wl-message-exit)
-	(local-set-key "n" 'wl-message-exit)
+	(use-local-map wl-message-mode-map)
 	(elmo-set-buffer-multibyte default-enable-multibyte-characters)
 ;;;	(decode-mime-charset-region (point-min) (point-max) wl-mime-charset)
 	;; we can call decode-coding-region() directly, because multibyte flag is t.