* 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 (file)
--- 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 (file)
--- 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)