From: okada <okada>
Date: Fri, 18 Jan 2002 11:45:54 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-raw-send): Fix for
X-Git-Tag: wl-2_9_5~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=20794ce64f3a2315b08c6bb76e3f0db99895e0c1;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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))))