From: yoichi <yoichi>
Date: Wed, 5 Jan 2005 10:18:57 +0000 (+0000)
Subject: * wl-vars.el (wl-summary-resend-use-cache): New variable.
X-Git-Tag: wl-2_14-root~100
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a796e7c04ef66f868814d31ff0c23dac52c0b4a1;p=elisp%2Fwanderlust.git

* 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.
---

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  <yoichi@geiin.org>
+
+	* 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  <yoichi@geiin.org>
 
 	* 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 "#<removed>"
   "Mark for removed folder."
   :type 'string