* wl-draft.el (wl-draft-forward): Fixed parenthesis.

(wl-draft-send): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b72628b..cbe9359 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-03  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-draft.el (wl-draft-forward): Fixed parenthesis.
+       (wl-draft-send): Ditto.
+
 2004-09-03  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-vars.el (wl-draft-reply-hook): Changed default value.

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 878d589..dddb655 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -303,7 +303,7 @@ e.g.
   (mail-position-on-field "To")
   (setq wl-draft-config-variables
        (append wl-draft-parent-variables
-               wl-draft-config-variables)))
+               wl-draft-config-variables))
   (run-hooks 'wl-draft-forward-hook))
 
 (defun wl-draft-self-reply-p ()
@@ -1372,7 +1372,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
              (when (and wl-draft-parent-flag
                         wl-draft-parent-number
                         wl-draft-parent-folder
-               (wl-draft-set-flag-on-parent wl-draft-parent-flag))))
+               (wl-draft-set-flag-on-parent wl-draft-parent-flag)))))
        ;; kill sending buffer, anyway.
        (and (buffer-live-p sending-buffer)
             (kill-buffer sending-buffer))))))