* wl-draft.el (wl-draft-raw-send): Fix for

`wl-news-send-pre-hook'

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 5f9c0ec..8e82c9c 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-18  Kenichi OKADA  <okada@opaopa.org>
+
+       * wl-draft.el (wl-draft-raw-send): Fix for
+       `wl-news-send-pre-hook'
+
 2002-01-17  Kenichi OKADA  <okada@opaopa.org>
 
        * wl-utils.el (wl-message-id-function): New variable.

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 235c2c3..a2f2a9a 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1149,7 +1149,7 @@ If FORCE-MSGID, ignore 'wl-insert-message-id'."
     (let (wl-interactive-send
 ;;;      wl-draft-verbose-send
          (wl-mail-send-pre-hook (and force-pre-hook wl-mail-send-pre-hook))
-;;;      wl-news-send-pre-hook
+         (wl-news-send-pre-hook (and force-pre-hook wl-news-send-pre-hook))
          mail-send-hook
          mail-send-actions)
       (wl-draft-send kill-when-done mes-string))))