2001-05-08 Kenichi OKADA <okada@opaopa.org>

	* wl-summary.el (wl-summary-supersedes-message): Use 'message-buf'

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 338fe96..ae5916e 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2001-05-08  Kenichi OKADA  <okada@opaopa.org>
 
+       * wl-summary.el (wl-summary-supersedes-message): Use 'message-buf'
+
+2001-05-08  Kenichi OKADA  <okada@opaopa.org>
+
        * wl-folder.el (wl-folder-prefetch-entity): Use
        `wl-folder-get-elmo-folder'.
        (wl-folder-count-incorporates): Do not use

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index e8bdfed..73659b7 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -5305,7 +5305,7 @@ Use function list is `wl-summary-write-current-folder-functions'."
                      "Supersedes: " message-id "\n"
                      (and followup-to
                           (concat "Followup-To: " followup-to "\n")))))
-       (set-buffer (wl-message-get-original-buffer))
+    (if message-buf (set-buffer message-buf))
        (wl-draft-edit-string (buffer-substring (point-min) (point-max)))))))
 
 (defun wl-summary-save (&optional arg wl-save-dir)