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