From f7486d0c7d410c8f0d420f901da701d0e0e26662 Mon Sep 17 00:00:00 2001 From: okada Date: Sun, 11 Mar 2001 05:57:23 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-do-fcc): Fix for `wl-draft-use-cache' --- wl/ChangeLog | 4 ++++ wl/wl-draft.el | 10 +++++----- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index c49c0cb..72552c0 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2000-03-11 Kenichi OKADA + + * wl-draft.el (wl-draft-do-fcc): Fix for `wl-draft-use-cache' + 2001-03-08 TAKAHASHI Kaoru * wl-score.el (wl-score-get-score-alist): Abolish `temp' key in diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 6ff5675..a85b46b 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1032,11 +1032,11 @@ If FORCE-MSGID, ignore 'wl-insert-message-id'." (if (and sent-via wl-draft-fcc-list) (progn (wl-draft-do-fcc (wl-draft-get-header-delimiter) wl-draft-fcc-list) - (setq wl-draft-fcc-list nil)) - (if wl-draft-use-cache - (let ((id (std11-field-body "Message-ID")) - (elmo-enable-disconnected-operation t)) - (elmo-cache-save id nil nil nil)))) + (setq wl-draft-fcc-list nil))) + (if wl-draft-use-cache + (let ((id (std11-field-body "Message-ID")) + (elmo-enable-disconnected-operation t)) + (elmo-cache-save id nil nil nil))) ;; If one unplugged, append queue. (when (and unplugged-via wl-sent-message-modified) -- 1.7.10.4