From a796e7c04ef66f868814d31ff0c23dac52c0b4a1 Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 5 Jan 2005 10:18:57 +0000 Subject: [PATCH] * wl-vars.el (wl-summary-resend-use-cache): New variable. * wl-action.el (wl-summary-exec-action-resend-subr): Use file cache if `wl-summary-resend-use-cache' is non-nil. --- wl/ChangeLog | 6 ++++++ wl/wl-action.el | 8 +++++++- wl/wl-vars.el | 6 ++++++ 3 files changed, 19 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index c133820..1c873a8 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2005-01-05 Yoichi NAKAYAMA + + * wl-vars.el (wl-summary-resend-use-cache): New variable. + * wl-action.el (wl-summary-exec-action-resend-subr): Use file + cache if `wl-summary-resend-use-cache' is non-nil. + 2005-01-02 Yoichi NAKAYAMA * wl-vars.el (wl-pop-before-smtp-stream-type): Fix range. diff --git a/wl/wl-action.el b/wl/wl-action.el index 0d213cd..13fbeb6 100644 --- a/wl/wl-action.el +++ b/wl/wl-action.el @@ -589,7 +589,13 @@ Return number if put mark succeed" (insert (with-temp-buffer (elmo-message-fetch folder number - (elmo-make-fetch-strategy 'entire) + (if wl-summary-resend-use-cache + (elmo-make-fetch-strategy + 'entire 'maybe nil + (elmo-file-cache-get-path + (elmo-message-field + folder number 'message-id))) + (elmo-make-fetch-strategy 'entire)) nil (current-buffer) 'unread) (buffer-string))) (goto-char (point-min)) diff --git a/wl/wl-vars.el b/wl/wl-vars.el index 08e5a5d..abc6af0 100644 --- a/wl/wl-vars.el +++ b/wl/wl-vars.el @@ -2464,6 +2464,12 @@ Sender information in summary mode." :type 'string :group 'wl-summary) +(defcustom wl-summary-resend-use-cache nil + "*Non-nil to enable offline resending by using file cache. +Note that strict message identity is not guaranteed when cache is used." + :type 'boolean + :group 'wl-summary) + (defcustom wl-folder-removed-mark "#" "Mark for removed folder." :type 'string -- 1.7.10.4