* wl-draft.el (wl-draft-reedit): Fixed argument for wl-draft-buffer-style.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9dffe4d..cd5104e 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -5,6 +5,7 @@
        point.
        (wl-draft-reedit): Remove the mime-edit tag if the first part is
        text/plain.
+       (wl-draft-reedit): Fixed argument for wl-draft-buffer-style.
 
 2002-11-08  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 2e45097..01ac593 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1923,7 +1923,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
           (delete-other-windows)
           (switch-to-buffer buffer))
          (t (if (functionp wl-draft-buffer-style)
-                (funcall wl-draft-buffer-style buf-name)
+                (funcall wl-draft-buffer-style buffer)
               (error "Invalid value for wl-draft-buffer-style")))))
       (set-buffer buffer)
       (setq wl-draft-parent-folder "")