* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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