From: yoichi <yoichi>
Date: Sat, 9 Mar 2002 11:33:07 +0000 (+0000)
Subject: Add "Go to Draft folder" entry to the toolbar for Folder mode.
X-Git-Tag: wl-2_9_8~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=daa91c5e916915b334ff48938f3be1316bbf2ab9;p=elisp%2Fwanderlust.git

Add "Go to Draft folder" entry to the toolbar for Folder mode.
---

diff --git a/ChangeLog b/ChangeLog
index c1a9c4e..c03ca97 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-03-09  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* etc/icons/wl-folder-goto-draft-folder-up.xpm : New file.
+
 2002-03-08  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* etc/icons/wl-draft-save-and-exit-up.xpm: New file.
diff --git a/etc/icons/wl-folder-goto-draft-folder-up.xpm b/etc/icons/wl-folder-goto-draft-folder-up.xpm
new file mode 100644
index 0000000..0b70238
--- /dev/null
+++ b/etc/icons/wl-folder-goto-draft-folder-up.xpm
@@ -0,0 +1,42 @@
+/* XPM */
+static char * wl_folder_jump_to_current_entity_up_xpm[] = {
+"32 32 7 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+"X	c #000000000000",
+"o	c #9E798E3869A6",
+"O	c #FFFFE38DB6DA",
+"+	c #CF3CBAEA9658",
+"@	c #59656595C71B",
+"#	c #FFFFFFFFFFFF",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"     XXXXXX  XXXXXXXXXXXXXXXXX  ",
+"    XooooooX X###############X  ",
+"   XXXXXXoooXX#@@#    #######X  ",
+"  XOOOOOOXoooX#@@############Xo ",
+" XO++++++OXXXXXXXXXXXX#######Xo ",
+" XO+++++++OOOOOOOOOOOOX######Xo ",
+"  XO++++++++++++++++++X######Xo ",
+"  XO++++++++++++++++++X######Xo ",
+"  XO++++++++++++++++++XX#####Xo ",
+"   XO++++++++++++++++++X#####Xo ",
+"   XO++++++++++++++++++X#####Xo ",
+"   XO++++++++++++++++++XXXXXXXo ",
+"    XO++++++++++++++++++Xoooooo ",
+"    XO++++++++++++++++++Xo      ",
+"    XO++++++++++++++++++Xo      ",
+"     XXXXXXXXXXXXXXXXXXXXo      ",
+"        oooooooooooooooooo      ",
+"                                ",
+"                                ",
+"        XX             XX       ",
+"    X   X X  X X  XX  X    X    ",
+"    XX  X  X XX  XXX XXXX XXX   ",
+" XXXXXX X  X X  X  X  X    X    ",
+"    XX  X X  X  X  X  X    X    ",
+"    X   XX   X   XXX  X    XX   ",
+"                                "};
diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8b82b63..51d5c88 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2002-03-09  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-folder.el (wl-folder-mode-menu-spec): Fix docstring.
+
+	* wl-e21.el (wl-folder-toolbar): Add "Go to draft folder" entry.
+	* wl-xmas.el (wl-folder-toolbar): Ditto.
+
 2002-03-08  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-e21.el (wl-draft-overload-menubar): Add wl-draft-preview-message
diff --git a/wl/wl-e21.el b/wl/wl-e21.el
index ff9271c..0332e9d 100644
--- a/wl/wl-e21.el
+++ b/wl/wl-e21.el
@@ -103,6 +103,8 @@
      wl-draft t "Write a New Message"]
     [wl-write-current-folder
      wl-folder-write-current-folder t "Write for Current Folder"]
+    [wl-folder-goto-draft-folder
+     wl-folder-goto-draft-folder t "Go to Draft Folder"]
     [wl-folder-empty-trash
      wl-folder-empty-trash t "Empty Trash"]
     [wl-exit
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 4f29005..a381b7b 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -93,7 +93,7 @@
     ["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]
+    ["Go to Draft Folder" wl-folder-goto-draft-folder t]
     ["Empty trash" wl-folder-empty-trash t]
     ["Flush queue" wl-folder-flush-queue t]
     "----"
diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el
index bca0aed..445d12e 100644
--- a/wl/wl-xmas.el
+++ b/wl/wl-xmas.el
@@ -71,6 +71,8 @@
      wl-draft t "Write a New Message"]
     [wl-write-current-folder
      wl-folder-write-current-folder t "Write for Current Folder"]
+    [wl-folder-goto-draft-folder
+     wl-folder-goto-draft-folder t "Go to Draft Folder"]
     [wl-folder-empty-trash
      wl-folder-empty-trash t "Empty Trash"]
     [wl-exit