From 3f2dfdd6ad6bf746a84d80aa3ab8a7a3ccc9df8e Mon Sep 17 00:00:00 2001 From: okada Date: Sun, 11 Mar 2001 06:00:25 +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 112f5f8..61f6c85 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2001-03-11 Kenichi OKADA + + * wl-draft.el (wl-draft-do-fcc): Fix for `wl-draft-use-cache' + 2001-03-11 TAKAHASHI Kaoru * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 212f274..1a3eb72 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1034,11 +1034,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-file-cache-save id 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-file-cache-save id nil))) ;; If one unplugged, append queue. (when (and unplugged-via wl-sent-message-modified) -- 1.7.10.4