From: teranisi Date: Sat, 4 Sep 2004 04:45:56 +0000 (+0000) Subject: * wl-summary.el (wl-summary-mode-map): Bind enter key to the X-Git-Tag: wl-2_11_31~16 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=18b308f55f70054c7bbb99970ac4e89251b3d81c;p=elisp%2Fwanderlust.git * wl-summary.el (wl-summary-mode-map): Bind enter key to the wl-summary-enter-handler. (wl-summary-enter-handler): New command. --- 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)