From: yoichi <yoichi>
Date: Tue, 5 Mar 2002 13:59:52 +0000 (+0000)
Subject: * wl/wl-folder.el (wl-folder-goto-folder-sticky): Just call
X-Git-Tag: wl-2_9_8~25
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6067054b129d97d9e7d27767ae86ff6f6339b1ac;p=elisp%2Fwanderlust.git

* wl/wl-folder.el (wl-folder-goto-folder-sticky): Just call
wl-folder-goto-folder with sticky argument.
(wl-folder-mode-map): Bind wl-folder-goto-folder-sticky to "G".

* NEWS, NEWS.ja: Add about changes around the sticky summary.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c310ed2..2c67720 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2002-03-05  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-folder.el (wl-folder-goto-folder-sticky): Just call
+	wl-folder-goto-folder with sticky argument.
+	(wl-folder-mode-map): Bind wl-folder-goto-folder-sticky to "G".
+
 2002-03-05  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-mode-map): Bind wl-summary-next-buffer
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 90549cd..52f8990 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -147,6 +147,7 @@
   (define-key wl-folder-mode-map "rc"    'wl-folder-mark-as-read-all-region)
   (define-key wl-folder-mode-map "c"    'wl-folder-mark-as-read-all-current-entity)
   (define-key wl-folder-mode-map "g"    'wl-folder-goto-folder)
+  (define-key wl-folder-mode-map "G"    'wl-folder-goto-folder-sticky)
   (define-key wl-folder-mode-map "j"    'wl-folder-jump-to-current-entity)
   (define-key wl-folder-mode-map "w"    'wl-draft)
   (define-key wl-folder-mode-map "W"    'wl-folder-write-current-folder)
@@ -2188,6 +2189,10 @@ Use `wl-subscribed-mailing-list'."
   (interactive "P")
   (wl-folder-goto-folder-subr nil arg))
 
+(defun wl-folder-goto-folder-sticky ()
+  (interactive)
+  (wl-folder-goto-folder-subr nil t))
+
 (defun wl-folder-goto-folder-subr (&optional folder sticky)
   (beginning-of-line)
   (let (summary-buf fld-name entity id error-selecting)