From 9d3115e7e45ae9a696b2512a17cf3cb67793a591 Mon Sep 17 00:00:00 2001
From: okada <okada>
Date: Wed, 23 May 2001 09:35:38 +0000
Subject: [PATCH]         * wl-draft.el (wl-draft): use
 `wl-summary-write-current-folder' 	               
 instead of `wl-summary-write-current-newsgroup'. 	*
 elmo-nntp.el (elmo-nntp-get-newsgroup-by-msgid): Fix for
 luna.

---
 elmo/ChangeLog    |    4 ++++
 elmo/elmo-nntp.el |    7 ++++++-
 wl/ChangeLog      |    5 +++++
 wl/wl-draft.el    |    2 +-
 4 files changed, 16 insertions(+), 2 deletions(-)

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 38196c1..3eb1174 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2001-05-23  Kenichi OKADA  <okada@opaopa.org>
+
+	* elmo-nntp.el (elmo-nntp-get-newsgroup-by-msgid): Fix for luna.
+
 2001-05-22  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo-pipe.el (elmo-folder-open-internal): Check plugged before
diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index d2500f6..cf3c2c4 100644
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -957,7 +957,12 @@ Don't cache if nil.")
   "Get nntp header string."
   (save-excursion
     (let ((session (elmo-nntp-get-session
-		    (list 'nntp nil user server port type))))
+		    (luna-make-entity
+		     'elmo-nntp-folder
+		     :user user
+		     :server server
+		     :port port
+		     :stream-type type))))
       (elmo-nntp-send-command session
 			      (format "head %s" msgid))
       (if (elmo-nntp-read-response session)
diff --git a/wl/ChangeLog b/wl/ChangeLog
index 1a838ba..5c13e84 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-05-23  Kenichi OKADA  <okada@opaopa.org>
+
+	* wl-draft.el (wl-draft): use `wl-summary-write-current-folder'
+	instead of `wl-summary-write-current-newsgroup'.
+
 2001-05-19  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
 
 	* wl-summary.el (wl-summary-auto-select-msg-p): New function.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index e19857c..c49af3a 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1319,7 +1319,7 @@ If optional argument is non-nil, current draft buffer is killed"
     (if (or (eq wl-draft-reply-buffer-style 'full)
 	    (eq this-command 'wl-draft)
 	    (eq this-command 'wl-summary-write)
-	    (eq this-command 'wl-summary-write-current-newsgroup))
+	    (eq this-command 'wl-summary-write-current-folder))
 	(delete-other-windows))
     (auto-save-mode -1)
     (wl-draft-mode)
-- 
1.7.10.4