From 5bbdaa71872ef2dfb4674be1b5ce1927328bca70 Mon Sep 17 00:00:00 2001 From: okada Date: Fri, 1 Feb 2002 03:08:05 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-send-mail-with-pop-before-smtp): Fix for unplugged. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + * wl-draft.el (wl-draft-send-mail-with-pop-before-smtp): + Fix for unplugged. + +2002-02-01 Kenichi OKADA + * 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) -- 1.7.10.4