* 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.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 38196c1..3eb1174 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)