From: yoichi <yoichi>
Date: Wed, 13 Mar 2002 11:06:32 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-mode-map): Exchange bindings for
X-Git-Tag: elmo-mark-root~255
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=99b1684ccec311d051c5382d7a603ade42d39553;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-mode-map): Exchange bindings for
wl-summary-previous-buffer and wl-summary-next-buffer.

* wl-folder.el (wl-folder-mode-map): Bind
wl-folder-jump-to-next-summary and wl-folder-jump-to-previous-summary.
(wl-folder-jump-to-next-summary): New function.
(wl-folder-jump-to-previous-summary): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c73af11..5524ec9 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,13 @@
 2002-03-13  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
+	* wl-summary.el (wl-summary-mode-map): Exchange bindings for
+	wl-summary-previous-buffer and wl-summary-next-buffer.
+
+	* wl-folder.el (wl-folder-mode-map): Bind
+	wl-folder-jump-to-next-summary and wl-folder-jump-to-previous-summary.
+	(wl-folder-jump-to-next-summary): New function.
+	(wl-folder-jump-to-previous-summary): Ditto.
+
 	* wl-draft.el (wl-draft): Rearranged.
 
 2002-03-12  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 06fc855..012607c 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -158,6 +158,8 @@
   (define-key wl-folder-mode-map "W"    'wl-folder-write-current-folder)
   (define-key wl-folder-mode-map "\C-c\C-o" 'wl-jump-to-draft-buffer)
   (define-key wl-folder-mode-map "\C-c\C-a" 'wl-addrmgr)
+  (define-key wl-folder-mode-map "\C-c\C-p" 'wl-folder-jump-to-previous-summary)
+  (define-key wl-folder-mode-map "\C-c\C-n" 'wl-folder-jump-to-next-summary)
   (define-key wl-folder-mode-map "rS"   'wl-folder-sync-region)
   (define-key wl-folder-mode-map "S"    'wl-folder-sync-current-entity)
   (define-key wl-folder-mode-map "rs"   'wl-folder-check-region)
@@ -2866,6 +2868,16 @@ Call `wl-summary-write-current-folder' with current folder name."
 			      ","))
 	(message "No message was picked.")))))
 
+(defun wl-folder-jump-to-next-summary ()
+  (interactive)
+  (when (wl-collect-summary)
+    (wl-summary-next-buffer)))
+
+(defun wl-folder-jump-to-previous-summary ()
+  (interactive)
+  (when (wl-collect-summary)
+    (wl-summary-previous-buffer)))
+
 (require 'product)
 (product-provide (provide 'wl-folder) (require 'wl-version))
 
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 14e3747..227a820 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -413,8 +413,8 @@
   (define-key wl-summary-mode-map "e"     'wl-summary-save)
   (define-key wl-summary-mode-map "\C-c\C-o" 'wl-jump-to-draft-buffer)
   (define-key wl-summary-mode-map "\C-c\C-a" 'wl-addrmgr)
-  (define-key wl-summary-mode-map "\C-c\C-p" 'wl-summary-next-buffer)
-  (define-key wl-summary-mode-map "\C-c\C-n" 'wl-summary-previous-buffer)
+  (define-key wl-summary-mode-map "\C-c\C-p" 'wl-summary-previous-buffer)
+  (define-key wl-summary-mode-map "\C-c\C-n" 'wl-summary-next-buffer)
   (define-key wl-summary-mode-map "H"    'wl-summary-redisplay-all-header)
   (define-key wl-summary-mode-map "M"    'wl-summary-redisplay-no-mime)
   (define-key wl-summary-mode-map "B"    'wl-summary-burst)