From 5ed2f7531881f2675d2d9b2be2847af89a337c47 Mon Sep 17 00:00:00 2001 From: okada Date: Thu, 27 Sep 2001 05:25:27 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-send-mail-with-pop-before-smtp): Fixed. --- wl/ChangeLog | 4 ++++ wl/wl-draft.el | 23 ++++++++++++----------- 2 files changed, 16 insertions(+), 11 deletions(-) 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 + + * wl-draft.el (wl-draft-send-mail-with-pop-before-smtp): Fixed. + 2001-09-26 TAKAHASHI Kaoru * 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)) -- 1.7.10.4