From: okada <okada>
Date: Fri, 1 Feb 2002 03:08:05 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-send-mail-with-pop-before-smtp):
X-Git-Tag: wl-2_9_7~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5bbdaa71872ef2dfb4674be1b5ce1927328bca70;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-send-mail-with-pop-before-smtp):
Fix for unplugged.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index fd55186..ce967d5 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,10 @@
 2002-02-01  Kenichi OKADA  <okada@opaopa.org>
 
+	* wl-draft.el (wl-draft-send-mail-with-pop-before-smtp):
+	Fix for unplugged.
+
+2002-02-01  Kenichi OKADA  <okada@opaopa.org>
+
 	* wl-folder.el (wl-folder-virtual): New function.
 	Define key as "V".
 
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 26ad05c..54773ae 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1037,7 +1037,8 @@ non-nil."
 	  (when session (elmo-network-close-session session)))
       (error
        (elmo-network-close-session session)
-       (signal (car error)(cdr error)))))
+       (unless (string= (nth 1 error) "Unplugged")
+	 (signal (car error)(cdr error))))))
   (wl-draft-send-mail-with-smtp))
 
 (defun wl-draft-insert-required-fields (&optional force-msgid)