# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1236075525 0
# Node ID 55d16f118fab79dd7a9c69b46b32c5d8286458d1
# Parent  505e79fad61228eab2315da528c5f414ab71f7a8
Merge from gnus--devo--0

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1564

diff -r 505e79fad612 -r 55d16f118fab lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Tue Mar 03 09:21:31 2009 +0000
+++ b/lisp/gnus/ChangeLog	Tue Mar 03 10:18:45 2009 +0000
@@ -1,3 +1,8 @@
+2009-03-03  Brian Sniffen  <bts@evenmere.org>  (tiny change)
+
+	* gnus-draft.el (gnus-draft-send): Bind gnus-message-setup-hook to nil
+	when sending a queued message to avoid extra mml tags.
+
 2009-03-02  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* mml.el (mml-insert-mime): Don't break parts that mm-uu dissected.
diff -r 505e79fad612 -r 55d16f118fab lisp/gnus/gnus-draft.el
--- a/lisp/gnus/gnus-draft.el	Tue Mar 03 09:21:31 2009 +0000
+++ b/lisp/gnus/gnus-draft.el	Tue Mar 03 10:18:45 2009 +0000
@@ -146,6 +146,8 @@
                                  message-send-hook))
          (message-setup-hook (and (not is-queue)
                                   message-setup-hook))
+	 (gnus-message-setup-hook (and (not is-queue)
+				       gnus-message-setup-hook))
 	 (message-signature (and (not is-queue)
 				 message-signature))
          (gnus-agent-queue-mail (and (not is-queue)