Add "Write for current folder" entry to the toolbar.

diff --git a/ChangeLog b/ChangeLog
index cebb3fb..2a1ed95 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-03-06  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * etc/icons/wl-write-current-folder-up.xpm: New file.
+
 2002-02-20  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * README, README.ja: Add information of the Mailing List in English.

diff --git a/etc/icons/wl-write-current-folder-up.xpm b/etc/icons/wl-write-current-folder-up.xpm
new file mode 100644 (file)
index 0000000..0118e97
--- /dev/null
+++ b/etc/icons/wl-write-current-folder-up.xpm
@@ -0,0 +1,42 @@
+/* XPM */
+static char * wl_draft_up_xpm[] = {
+"32 32 7 1",
+"      c #BEFBBEFBBEFB s backgroundToolBarColor",
+".     c #000000000000",
+"X     c #EFBEFFFFC71B",
+"o     c #FFFFFFFFFFFF",
+"O     c #9E799A699E79",
+"+     c #79E7B2CAF7DE",
+"@     c #CF3CBAEA9658",
+"                                ",
+"             ...............   .",
+"              .XXXXXXXXXXXXX. ..",
+"     .....     .XXXXXXXXXXXX..o.",
+"    .OOOOO.    .XOXOOOXXXXX..o. ",
+"   .....OOO.....XXXXXXXXXXX.oo. ",
+"  .@@@@@.OOOOO.XXXXXXXXXX..ooo. ",
+" .@@@@@@@......XXXXXXXXX.oooo.  ",
+" .@@@@@@@@@@@@.XXXXXXXX.oooo.   ",
+"  .@@@@@@@@@@@.XXXXXXXX.oooo.   ",
+"  .@@@@@@@@@@@.XXXXXXX.ooooo.   ",
+"  .@@@@@@@@@@@@.XXXXXX.oo.oo.OOO",
+"   .@@@@@@@@@@@.XXXXXX.oo.o.X.OO",
+"   .@@@@@@@@@@@.XXXXXX.oo.o.X.OO",
+"   .@@@@@@@@@.......XXXo.oo.XX.O",
+"    ..........OOOOO.XXX..o.XXX.O",
+"             .......XXXX..XXXX.O",
+"              .+++.XXXXX.XXXX.OO",
+"             .+o+++.XXXX.XXX.OOO",
+"            .+o+++++........OOOO",
+"            ..o......  . OOOOO  ",
+"            ..o......OOOOOOO    ",
+"            .........OO         ",
+"             .......OOO         ",
+"                                ",
+"      ..                        ",
+"     .  . .  .  ..   ..  ..     ",
+"     .    .  . .  . .   .       ",
+"     . .. .  . ....  .   .      ",
+"     .  . .  . .      .   .     ",
+"      ..   ...  ... ..  ..      ",
+"                                "};

diff --git a/wl/ChangeLog b/wl/ChangeLog
index e8cfd9a..6d6eeb3 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -3,6 +3,8 @@
        * wl-folder.el (wl-folder-mode-menu-spec): Add "Write for current
        folder" entry.
        * wl-summary.el (wl-summary-mode-menu-spec): Ditto.
+       * wl-e21.el (wl-folder-toolbar): Ditto.
+       * wl-xmas.el (wl-folder-toolbar): Ditto.
 
 2002-03-05  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 

diff --git a/wl/wl-e21.el b/wl/wl-e21.el
index 7767bca..8f7c028 100644 (file)
--- a/wl/wl-e21.el
+++ b/wl/wl-e21.el
@@ -97,12 +97,12 @@
      wl-folder-prev-entity t "Previous Folder"]
     [wl-folder-check-current-entity
      wl-folder-check-current-entity t "Check Current Folder"]
-    ;;[wl-draft
-    ;; wl-draft t "Write a New Message"]
     [wl-folder-sync-current-entity
      wl-folder-sync-current-entity t "Sync Current Folder"]
     [wl-draft
      wl-draft t "Write a New Message"]
+    [wl-write-current-folder
+     wl-folder-write-current-folder t "Write for Current Folder"]
     [wl-folder-empty-trash
      wl-folder-empty-trash t "Empty Trash"]
     [wl-exit
@@ -127,6 +127,8 @@
      wl-summary-mark-as-important t "Mark Current Message as Important"]
     [wl-draft
      wl-draft t "Write a New Message"]
+    [wl-write-current-folder
+     wl-summary-write-current-folder t "Write for Current Folder"]
     [wl-summary-reply
      wl-summary-reply t "Reply to Current Message" ]
     [wl-summary-reply-with-citation

diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el
index 1931b29..e7a4ce5 100644 (file)
--- a/wl/wl-xmas.el
+++ b/wl/wl-xmas.el
@@ -65,12 +65,12 @@
      wl-folder-prev-entity t "Previous Folder"]
     [wl-folder-check-current-entity
      wl-folder-check-current-entity t "Check Current Folder"]
-;;; [wl-draft
-;;;  wl-draft t "Write a New Message"]
     [wl-folder-sync-current-entity
      wl-folder-sync-current-entity t "Sync Current Folder"]
     [wl-draft
      wl-draft t "Write a New Message"]
+    [wl-write-current-folder
+     wl-folder-write-current-folder t "Write for Current Folder"]
     [wl-folder-empty-trash
      wl-folder-empty-trash t "Empty Trash"]
     [wl-exit
@@ -95,6 +95,8 @@
      wl-summary-mark-as-important t "Mark Current Message as Important"]
     [wl-draft
      wl-draft t "Write a New Message"]
+    [wl-write-current-folder
+     wl-summary-write-current-folder t "Write for Current Folder"]
     [wl-summary-reply
      wl-summary-reply t "Reply to Current Message" ]
     [wl-summary-reply-with-citation