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

diff --git a/ChangeLog b/ChangeLog
index c1a9c4e..c03ca97 100644 (file)
--- 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 (file)
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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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