[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-group.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-group.el
diff -c emacs/lisp/gnus/gnus-group.el:1.36 emacs/lisp/gnus/gnus-group.el:1.37
*** emacs/lisp/gnus/gnus-group.el:1.36  Fri Feb 25 01:52:09 2005
--- emacs/lisp/gnus/gnus-group.el       Wed Mar 30 08:14:31 2005
***************
*** 1984,1990 ****
  (defun gnus-group-read-ephemeral-group (group method &optional activate
                                              quit-config request-only
                                              select-articles
!                                             parameters)
    "Read GROUP from METHOD as an ephemeral group.
  If ACTIVATE, request the group first.
  If QUIT-CONFIG, use that window configuration when exiting from the
--- 1984,1991 ----
  (defun gnus-group-read-ephemeral-group (group method &optional activate
                                              quit-config request-only
                                              select-articles
!                                             parameters
!                                             number)
    "Read GROUP from METHOD as an ephemeral group.
  If ACTIVATE, request the group first.
  If QUIT-CONFIG, use that window configuration when exiting from the
***************
*** 1992,1997 ****
--- 1993,1999 ----
  If REQUEST-ONLY, don't actually read the group; just request it.
  If SELECT-ARTICLES, only select those articles.
  If PARAMETERS, use those as the group parameters.
+ If NUMBER, fetch this number of articles.
  
  Return the name of the group if selection was successful."
    (interactive
***************
*** 2039,2045 ****
          (when (let ((gnus-large-newsgroup gnus-large-ephemeral-newsgroup)
                      (gnus-fetch-old-headers
                       gnus-fetch-old-ephemeral-headers))
!                 (gnus-group-read-group t t group select-articles))
            group)
        ;;(error nil)
        (quit
--- 2041,2047 ----
          (when (let ((gnus-large-newsgroup gnus-large-ephemeral-newsgroup)
                      (gnus-fetch-old-headers
                       gnus-fetch-old-ephemeral-headers))
!                 (gnus-group-read-group (or number t) t group select-articles))
            group)
        ;;(error nil)
        (quit