From: hmurata <hmurata>
Date: Fri, 28 Jan 2005 15:25:40 +0000 (+0000)
Subject: (wl-summary-reedit): Call
X-Git-Tag: wl-2_14-root~71
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=11001c917359f96b13e2f68da25e253baddd7966;p=elisp%2Fwanderlust.git

(wl-summary-reedit): Call
`wl-summary-message-string' with argument `use-cache' as `'maybe'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 2561221..522808b 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-28  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-summary.el (wl-summary-reedit): Call
+	`wl-summary-message-string' with argument `use-cache' as `'maybe'.
+
 2005-01-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-mime.el (toplevel): Require wl-vars.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index de8f6a5..b9b60fd 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -765,7 +765,7 @@ If ARG is non-nil, Supersedes message"
   (interactive "P")
   (wl-summary-toggle-disp-msg 'off)
   (cond
-   ((not (wl-summary-message-number))
+   ((null (wl-summary-message-number))
     (message "No message."))
    (arg
     (wl-summary-supersedes-message))
@@ -775,7 +775,7 @@ If ARG is non-nil, Supersedes message"
 	(mail-position-on-field "Newsgroups")
       (mail-position-on-field "To")))
    (t
-    (wl-draft-edit-string (wl-summary-message-string)))))
+    (wl-draft-edit-string (wl-summary-message-string 'maybe)))))
 
 (defun wl-summary-resend-bounced-mail ()
   "Re-mail the current message.