From: okada <okada>
Date: Thu, 27 Sep 2001 05:25:27 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-send-mail-with-pop-before-smtp): Fixed.
X-Git-Tag: wl-2_7_5~32
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5ed2f7531881f2675d2d9b2be2847af89a337c47;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-send-mail-with-pop-before-smtp): Fixed.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index d8f9bb4..84f9f06 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2001-09-26  Kenichi OKADA  <okada@opaopa.org>
+
+	* wl-draft.el (wl-draft-send-mail-with-pop-before-smtp): Fixed.
+
 2001-09-26  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-summary.el (wl-summary-switch-to-clone-buffer): Use
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index c2bf23e..1aed6a4 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -977,17 +977,18 @@ non-nil."
   (require 'elmo-pop3)
   (condition-case ()
       (let ((session (elmo-pop3-get-session
-		      (list 'pop3
-			    (or wl-pop-before-smtp-user
-				elmo-pop3-default-user)
-			    (or wl-pop-before-smtp-authenticate-type
-				elmo-pop3-default-authenticate-type)
-			    (or wl-pop-before-smtp-server
-				elmo-pop3-default-server)
-			    (or wl-pop-before-smtp-port
-				elmo-pop3-default-port)
-			    (or wl-pop-before-smtp-stream-type
-				elmo-pop3-default-stream-type)))))
+		      (luna-make-entity
+		       'elmo-pop3-folder
+		       :user (or wl-pop-before-smtp-user
+				 elmo-pop3-default-user)
+		       :server (or wl-pop-before-smtp-server
+				   elmo-pop3-default-server)
+		       :port (or wl-pop-before-smtp-port
+				 elmo-pop3-default-port)
+		       :auth (or wl-pop-before-smtp-authenticate-type
+				 elmo-pop3-default-authenticate-type)
+		       :stream-type (or wl-pop-before-smtp-stream-type
+					elmo-pop3-default-stream-type)))))
 	(when session (elmo-network-close-session session)))
     (error))
   (wl-draft-send-mail-with-smtp))