From f5efa7e6b55abc108fc021e734be80ecc22a4f03 Mon Sep 17 00:00:00 2001 From: kaoru Date: Tue, 20 Mar 2001 19:38:14 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-write-current-folder): Support petname. --- wl/ChangeLog | 4 ++++ wl/wl-folder.el | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) 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 + + * wl-folder.el (wl-folder-write-current-folder): Support petname. + 2001-03-11 Kenichi OKADA * 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." -- 1.7.10.4