* gnus.el (gnus-nntp-server): Move to gnus-int.el to silence bytecomp.

[gnu-emacs] / lisp / gnus / nndraft.el

diff --git a/lisp/gnus/nndraft.el b/lisp/gnus/nndraft.el
index 459778bf4b337fe7e164649da9aee96ca7b697d8..0b47062a919384fa4998042d07ffa8d836f9011e 100644 (file)
--- a/lisp/gnus/nndraft.el
+++ b/lisp/gnus/nndraft.el
@@ -24,14 +24,21 @@
 
 ;;; Code:
 
+;; For Emacs <22.2 and XEmacs.
+(eval-and-compile
+  (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
+
 (require 'nnheader)
 (require 'nnmail)
 (require 'gnus-start)
+(require 'gnus-group)
 (require 'nnmh)
 (require 'nnoo)
 (require 'mm-util)
 (eval-when-compile (require 'cl))
 
+(declare-function nndraft-request-list "nnmh" (&rest args))
+
 (nnoo-declare nndraft
   nnmh)
 
@@ -170,6 +177,8 @@ are generated if and only if they are also in `message-draft-headers'.")
                                                       (list 'nndraft "")))
                           (nnmail-get-active)))
           (gnus-group-marked (copy-sequence groups))
+          ;; Don't send delayed articles.
+          (gnus-get-new-news-hook nil)
           (inhibit-read-only t))
       (gnus-group-get-new-news-this-group nil t)
       (dolist (group groups)