From: teranisi <teranisi>
Date: Wed, 1 Sep 2004 15:26:36 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-mode-map): Treat digits as prefix args.
X-Git-Tag: wl-2_11_31~25
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bfabaf322d3a50fa9867c68b8869107ce8680c69;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-mode-map): Treat digits as prefix args.
(wl-summary-digit-jump): New function.
(Adviced by John Owens and Hiroya Murata)

* wl-e21.el (wl-message-define-keymap): Bind "w" as wl-draft.
(Adviced by John Owens)

* wl-xmas.el (wl-message-define-keymap): Ditto.

* wl-mule.el (wl-message-define-keymap): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a4099eb..f14e53b 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,16 @@
+2004-09-02  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-mode-map): Treat digits as prefix args.
+	(wl-summary-digit-jump): New function.
+	(Adviced by John Owens and Hiroya Murata)
+
+	* wl-e21.el (wl-message-define-keymap): Bind "w" as wl-draft.
+	(Adviced by John Owens)
+
+	* wl-xmas.el (wl-message-define-keymap): Ditto.
+
+	* wl-mule.el (wl-message-define-keymap): Ditto.
+
 2004-08-31  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-vars.el (wl-summary-mode-line-format-spec-alist): Follow the
diff --git a/wl/wl-e21.el b/wl/wl-e21.el
index e5ca8dc..3986338 100644
--- a/wl/wl-e21.el
+++ b/wl/wl-e21.el
@@ -534,6 +534,7 @@
     (define-key keymap "l" 'wl-message-toggle-disp-summary)
     (define-key keymap "\C-c:d" 'wl-message-decrypt-pgp-nonmime)
     (define-key keymap "\C-c:v" 'wl-message-verify-pgp-nonmime)
+    (define-key keymap "w" 'wl-draft)
     (define-key keymap [mouse-4] 'wl-message-wheel-down)
     (define-key keymap [mouse-5] 'wl-message-wheel-up)
     (define-key keymap [S-mouse-4] 'wl-message-wheel-down)
diff --git a/wl/wl-mule.el b/wl/wl-mule.el
index b44bfc8..10a8363 100644
--- a/wl/wl-mule.el
+++ b/wl/wl-mule.el
@@ -106,6 +106,7 @@ Special commands:
     (define-key keymap "l" 'wl-message-toggle-disp-summary)
     (define-key keymap "\C-c:d" 'wl-message-decrypt-pgp-nonmime)
     (define-key keymap "\C-c:v" 'wl-message-verify-pgp-nonmime)
+    (define-key keymap "w" 'wl-draft)
     (define-key keymap [mouse-4] 'wl-message-wheel-down)
     (define-key keymap [mouse-5] 'wl-message-wheel-up)
     (define-key keymap [S-mouse-4] 'wl-message-wheel-down)
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 9f6f336..fafdea7 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -390,7 +390,8 @@ See also variable `wl-use-petname'."
 
 (if wl-summary-mode-map
     ()
-  (setq wl-summary-mode-map (make-sparse-keymap))
+  (setq wl-summary-mode-map (make-keymap))
+  (suppress-keymap wl-summary-mode-map)
   (define-key wl-summary-mode-map " "    'wl-summary-read)
   (define-key wl-summary-mode-map "."    'wl-summary-redisplay)
   (define-key wl-summary-mode-map "<"    'wl-summary-display-top)
@@ -2028,6 +2029,10 @@ This function is defined for `window-scroll-functions'"
 	(progn (beginning-of-line) t)
       nil)))
 
+(defun wl-summary-digit-jump (number)
+  (interactive "NJump to Number: ")
+  (wl-summary-jump-to-msg number))
+
 (defun wl-summary-highlight-msgs (msgs)
   (save-excursion
     (let ((len (length msgs))
diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el
index 80aec05..f6eed1b 100644
--- a/wl/wl-xmas.el
+++ b/wl/wl-xmas.el
@@ -456,6 +456,7 @@
     (define-key keymap "l" 'wl-message-toggle-disp-summary)
     (define-key keymap "\C-c:d" 'wl-message-decrypt-pgp-nonmime)
     (define-key keymap "\C-c:v" 'wl-message-verify-pgp-nonmime)
+    (define-key keymap "w" 'wl-draft)
     (define-key keymap 'button4 'wl-message-wheel-down)
     (define-key keymap 'button5 'wl-message-wheel-up)
     (define-key keymap [(shift button4)] 'wl-message-wheel-down)