projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Importing Gnus v5.8.5.
[elisp/gnus.git-]
/
lisp
/
gnus-draft.el
diff --git
a/lisp/gnus-draft.el
b/lisp/gnus-draft.el
index
ebbf39d
..
34c8b3a
100644
(file)
--- a/
lisp/gnus-draft.el
+++ b/
lisp/gnus-draft.el
@@
-1,5
+1,6
@@
;;; gnus-draft.el --- draft message support for Gnus
;;; 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
;; 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-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.
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 (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)
(goto-char (point-min))
(search-forward "\n\n")
(forward-char -1)