From 18b308f55f70054c7bbb99970ac4e89251b3d81c Mon Sep 17 00:00:00 2001 From: teranisi Date: Sat, 4 Sep 2004 04:45:56 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-mode-map): Bind enter key to the wl-summary-enter-handler. (wl-summary-enter-handler): New command. --- wl/ChangeLog | 4 ++++ wl/wl-summary.el | 13 +++++++++++-- 2 files changed, 15 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index a34ff8c..fca71f2 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,9 @@ 2004-09-04 Yuuichi Teranishi + * wl-summary.el (wl-summary-mode-map): Bind enter key to the + wl-summary-enter-handler. + (wl-summary-enter-handler): New command. + * wl-vars.el (wl-summary-persistent-mark-priority-list): Update docstring and custom spec. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 6d299b3..5a47692 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -398,8 +398,8 @@ See also variable `wl-use-petname'." (define-key wl-summary-mode-map ">" 'wl-summary-display-bottom) (define-key wl-summary-mode-map "\177" 'wl-summary-prev-page) (define-key wl-summary-mode-map [backspace] 'wl-summary-prev-page) - (define-key wl-summary-mode-map "\r" 'wl-summary-next-line-content) - (define-key wl-summary-mode-map "\C-m" 'wl-summary-next-line-content) + (define-key wl-summary-mode-map "\r" 'wl-summary-enter-handler) + (define-key wl-summary-mode-map "\C-m" 'wl-summary-enter-handler) (define-key wl-summary-mode-map "/" 'wl-thread-open-close) (define-key wl-summary-mode-map "[" 'wl-thread-open-all) (define-key wl-summary-mode-map "]" 'wl-thread-close-all) @@ -3767,6 +3767,15 @@ Return non-nil if the mark is updated" ))) (run-hooks 'wl-summary-buffer-window-scroll-functions))) +(defun wl-summary-enter-handler (&optional number) + "A command for `enter' key in the summary. +Basically, it shows next line of the message. +If optional argument NUMBER is specified, jump to the message." + (interactive "P") + (if number + (wl-summary-jump-to-msg number) + (wl-summary-next-line-content))) + (defun wl-summary-next-line-content () "Show next line of the message." (interactive) -- 1.7.10.4