From 6b72376e0177a023f49bb127c97e50e1affd9c14 Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 18 May 2006 14:38:00 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-send): Continue even if setting parent flag was failed. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) 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 + + * wl-draft.el (wl-draft-send): Continue even if setting parent + flag was failed. + 2006-05-15 Hiroya Murata * 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 -- 1.7.10.4