X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fgnus-draft.el;h=34c8b3a01a37a4245778431e05dbec521493bc41;hb=a2d6af2c24264119c5aff0ef0063733674eef102;hp=ebbf39db20bc946b1c83e71026629a2631fa9db0;hpb=3ad5943c4ad67b4f8d556436b31c3ca8bc4b5064;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index ebbf39d..34c8b3a 100644
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -1,5 +1,6 @@
 ;;; gnus-draft.el --- draft message support for Gnus
-;; Copyright (C) 1997,98,99 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 1998, 1999, 2000
+;;        Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: news
@@ -129,6 +130,7 @@
 					   message-inhibit-body-encoding))
 	(message-send-hook (and group (not (equal group "nndraft:queue"))
 				message-send-hook))
+	(message-setup-hook nil)
 	type method)
     ;; We read the meta-information that says how and where
     ;; this message is to be sent.
@@ -193,6 +195,8 @@
 	(if (not (gnus-request-restore-buffer article group))
 	    (error "Couldn't restore the article")
 	  ;; Insert the separator.
+	  (if (equal group "nndraft:queue")
+	      (mime-to-mml))
 	  (goto-char (point-min))
 	  (search-forward "\n\n")
 	  (forward-char -1)