From bfabaf322d3a50fa9867c68b8869107ce8680c69 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 1 Sep 2004 15:26:36 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 13 +++++++++++++ wl/wl-e21.el | 1 + wl/wl-mule.el | 1 + wl/wl-summary.el | 7 ++++++- wl/wl-xmas.el | 1 + 5 files changed, 22 insertions(+), 1 deletion(-) 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 + + * 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 * 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) -- 1.7.10.4