* 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 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2004-09-04  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * 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 (file)
--- 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)