From dde6f30a7a042b85b5086717971031ae450e9721 Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 8 Mar 2002 07:46:16 +0000 Subject: [PATCH] New function wl-folder-goto-draft-folder. --- wl/ChangeLog | 5 +++++ wl/wl-folder.el | 8 ++++++++ 2 files changed, 13 insertions(+) diff --git a/wl/ChangeLog b/wl/ChangeLog index 838378b..5490dea 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2002-03-08 Yoichi NAKAYAMA + + * wl-folder.el (wl-folder-goto-draft-folder): New function. + (wl-folder-mode-menu-spec): Add wl-folder-goto-draft-folder entry. + 2002-03-08 Yuuichi Teranishi * wl-summary.el (wl-summary-save-view-cache): Clone temporal mark diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 46af146..4f29005 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -89,10 +89,14 @@ ["Sync Current Folder" wl-folder-sync-current-entity t] ; ["Drop Current Folder" wl-folder-drop-unsync-current-entity t] ["Prefetch Current Folder" wl-folder-prefetch-current-entity t] + "----" ["Mark as Read all Current Folder" wl-folder-mark-as-read-all-current-entity t] ["Expire Current Folder" wl-folder-expire-current-entity t] + "----" + ["Enter Draft Folder" wl-folder-goto-draft-folder t] ["Empty trash" wl-folder-empty-trash t] ["Flush queue" wl-folder-flush-queue t] + "----" ["Open All" wl-folder-open-all t] ["Open All Unread folder" wl-folder-open-all-unread-folder t] ["Close All" wl-folder-close-all t] @@ -2194,6 +2198,10 @@ Use `wl-subscribed-mailing-list'." (interactive) (wl-folder-goto-folder-subr nil t)) +(defun wl-folder-goto-draft-folder (&optional arg) + (interactive "P") + (wl-folder-goto-folder-subr wl-draft-folder arg)) + (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