From: yoichi <yoichi>
Date: Thu, 18 May 2006 14:38:00 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-send): Continue even if setting parent
X-Git-Tag: wl-2_15_4~40
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6b72376e0177a023f49bb127c97e50e1affd9c14;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-send): Continue even if setting parent
flag was failed.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a28c45d..6cdf95c 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2006-05-18  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-draft.el (wl-draft-send): Continue even if setting parent
+	flag was failed.
+
 2006-05-15  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-message.el (wl-message-flag-indicator): Fixed the problem
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 533da17..14c4414 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1344,8 +1344,11 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 	    ;; It causes a huge loss in the IMAP folder.
 	    (when (and parent-flag parent-number
 		       (not (eq (length parent-folder) 0)))
-	      (wl-folder-set-persistent-mark
-	       parent-folder parent-number parent-flag))
+	      (condition-case nil
+		  (wl-folder-set-persistent-mark
+		   parent-folder parent-number parent-flag)
+		(error
+		 (message "Set mark (%s) failed" (symbol-name parent-flag)))))
 	    (funcall wl-draft-send-function editing-buffer kill-when-done)
 	    ;; Now perform actions on successful sending.
 	    (while mail-send-actions