From 6067054b129d97d9e7d27767ae86ff6f6339b1ac Mon Sep 17 00:00:00 2001 From: yoichi Date: Tue, 5 Mar 2002 13:59:52 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 6 ++++++ wl/wl-folder.el | 5 +++++ 2 files changed, 11 insertions(+) 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 + + * 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 * 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) -- 1.7.10.4