(gnus-group-prepare-flat): Check also whether groups with no unread article

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

diff --git a/lisp/gnus/gnus-draft.el b/lisp/gnus/gnus-draft.el
index 318f0d56bcb8f5ec4f94ad0c8de32b1c0cd20ee0..0c94d0be5e1712397786b82d89636f154127a5cb 100644 (file)
--- a/lisp/gnus/gnus-draft.el
+++ b/lisp/gnus/gnus-draft.el
@@ -1,7 +1,7 @@
 ;;; gnus-draft.el --- draft message support for Gnus
 
 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: news
@@ -146,6 +146,8 @@ Obeys the standard process/prefix convention."
                                  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)
@@ -216,6 +218,7 @@ Obeys the standard process/prefix convention."
                                     (gnus-info-marks
                                      (gnus-get-info "nndraft:queue"))))))
             (gnus-posting-styles nil)
+            message-send-mail-partially-limit
             (total (length articles))
             article)
        (while (setq article (pop articles))