From: teranisi <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/cgi-bin/gitweb.cgi?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  <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
--- 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)