Modified   lisp/gnus-demon.el
diff --git a/lisp/gnus-demon.el b/lisp/gnus-demon.el
index 419346b..6146b53 100644
--- a/lisp/gnus-demon.el
+++ b/lisp/gnus-demon.el
@@ -191,15 +191,34 @@ minutes, the connection is closed."
   "Add daemonic scanning of new articles from all backends."
   (gnus-demon-add-handler 'gnus-demon-scan-news 120 60))
 
-(defun gnus-demon-scan-news ()
+(defun gnus-demon-scan-news (&optional arg)
   (let ((win (current-window-configuration)))
     (unwind-protect
 	(save-window-excursion
 	  (when (gnus-alive-p)
 	    (with-current-buffer gnus-group-buffer
-	      (gnus-group-get-new-news))))
+	      (gnus-group-get-new-news arg))))
       (set-window-configuration win))))
 
+(fset 'gnus-demon-scan-news-1
+  (apply-partially 'gnus-demon-scan-news 1))
+(fset 'gnus-demon-scan-news-2
+  (apply-partially 'gnus-demon-scan-news 2))
+(fset 'gnus-demon-scan-news-3
+  (apply-partially 'gnus-demon-scan-news 3))
+(fset 'gnus-demon-scan-news-4
+  (apply-partially 'gnus-demon-scan-news 4))
+(fset 'gnus-demon-scan-news-5
+  (apply-partially 'gnus-demon-scan-news 5))
+(fset 'gnus-demon-scan-news-6
+  (apply-partially 'gnus-demon-scan-news 6))
+(fset 'gnus-demon-scan-news-7
+  (apply-partially 'gnus-demon-scan-news 7))
+(fset 'gnus-demon-scan-news-8
+  (apply-partially 'gnus-demon-scan-news 8))
+(fset 'gnus-demon-scan-news-9
+  (apply-partially 'gnus-demon-scan-news 9))
+
 (defun gnus-demon-add-scan-timestamps ()
   "Add daemonic updating of timestamps in empty newgroups."
   (gnus-demon-add-handler 'gnus-demon-scan-timestamps nil 30))