* gnus-draft.el (gnus-draft-setup): Restore to mml.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 558332e..f5216ca 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-04-20 21:22:10  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-draft.el (gnus-draft-setup): Restore to mml.
+
 2000-04-21 01:24:41  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * flow-fill.el: Renamed from fill-flowed.

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index ebbf39d..b7d244a 100644 (file)
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -193,6 +193,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)