Index: lisp/gnus-sum.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-sum.el,v
retrieving revision 7.179
diff -c -r7.179 gnus-sum.el
*** lisp/gnus-sum.el	24 Jan 2007 07:15:37 -0000	7.179
--- lisp/gnus-sum.el	3 Mar 2007 12:49:46 -0000
***************
*** 5630,5636 ****
  			    "How many articles from %s (%s %d): "
  			    (gnus-limit-string
  			     (gnus-group-decoded-name gnus-newsgroup-name)
! 			     35)
  			    (if initial "max" "default")
  			    number)
  			   (if initial
--- 5630,5638 ----
  			    "How many articles from %s (%s %d): "
  			    (gnus-limit-string
  			     (gnus-group-decoded-name gnus-newsgroup-name)
! 			     ;; Approximate a good length according to
! 			     ;; minibuffer width.
! 			     (max (- (window-width (minibuffer-window)) 44) 35))
  			    (if initial "max" "default")
  			    number)
  			   (if initial
***************
*** 8144,8150 ****
  	(message "No messages matched")
        (gnus-summary-limit articles))
      (gnus-summary-position-point)))
! 	  
  (defun gnus-summary-limit-to-replied (&optional unreplied)
    "Limit the summary buffer to replied articles.
  If UNREPLIED (the prefix), limit to unreplied articles."
--- 8146,8152 ----
  	(message "No messages matched")
        (gnus-summary-limit articles))
      (gnus-summary-position-point)))
! 
  (defun gnus-summary-limit-to-replied (&optional unreplied)
    "Limit the summary buffer to replied articles.
  If UNREPLIED (the prefix), limit to unreplied articles."
***************
*** 12240,12246 ****
  		       (format
  			"How many articles from %s (%s %d): "
  			(gnus-limit-string
! 			 (gnus-group-decoded-name gnus-newsgroup-name) 35)
  			(if initial "max" "default")
  			len)
  		       (if initial
--- 12242,12251 ----
  		       (format
  			"How many articles from %s (%s %d): "
  			(gnus-limit-string
! 			 (gnus-group-decoded-name gnus-newsgroup-name)
! 			 ;; Approximate a good length according to
! 			 ;; minibuffer width.
! 			 (max (- (window-width (minibuffer-window)) 44) 35))
  			(if initial "max" "default")
  			len)
  		       (if initial
Index: lisp/ChangeLog
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/ChangeLog,v
retrieving revision 7.1501
diff -C0 -r7.1501 ChangeLog
*** lisp/ChangeLog	1 Mar 2007 23:43:33 -0000	7.1501
--- lisp/ChangeLog	3 Mar 2007 12:49:52 -0000
***************
*** 0 ****
--- 1,6 ----
+ 2007-03-03  Michaël Cadilhac  <michael.cadilhac@lrde.org>
+ 
+ 	* gnus-sum.el (gnus-articles-to-read): Limit the group name to a larger
+ 	width if the minibuffer allows it.
+ 	(gnus-summary-insert-old-articles): Ditto.
+