From: yoichi <yoichi>
Date: Fri, 8 Mar 2002 07:46:16 +0000 (+0000)
Subject: New function wl-folder-goto-draft-folder.
X-Git-Tag: wl-2_9_8~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dde6f30a7a042b85b5086717971031ae450e9721;p=elisp%2Fwanderlust.git

New function wl-folder-goto-draft-folder.
---

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  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* 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  <teranisi@gohome.org>
 
 	* 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)