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