From: kaoru <kaoru>
Date: Tue, 20 Mar 2001 19:38:14 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-write-current-folder): Support petname.
X-Git-Tag: wl-2_8-root^2~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f5efa7e6b55abc108fc021e734be80ecc22a4f03;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-write-current-folder): Support petname.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 61f6c85..5d0a766 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2001-03-20  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-folder.el (wl-folder-write-current-folder): Support petname.
+
 2001-03-11  Kenichi OKADA  <okada@opaopa.org>
 
 	* wl-draft.el (wl-draft-do-fcc): Fix for `wl-draft-use-cache'
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 05e00f5..d7246e7 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -2718,10 +2718,12 @@ If current line is group folder, all subfolders are prefetched."
 ;	(message "All unsync messages in %s are dropped!" entity-name)))))
 
 (defun wl-folder-write-current-folder ()
-  ""
+  "Write message to current folder's newsgroup or mailing-list.
+Call `wl-summary-write-current-folder' with current folder name."
   (interactive)
   (unless (wl-folder-buffer-group-p)
-    (wl-summary-write-current-folder (wl-folder-entity-name))))
+    (wl-summary-write-current-folder
+     (wl-folder-get-realname (wl-folder-entity-name)))))
 
 (defun wl-folder-mimic-kill-buffer ()
   "Kill the current (Folder) buffer with query."