* 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 (file)
--- 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 (file)
--- 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)