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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 838378b..5490dea 100644 (file)
--- 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 (file)
--- 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)