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

[Miles Bader]

Index: emacs/lisp/gnus/gnus-srvr.el
diff -c emacs/lisp/gnus/gnus-srvr.el:1.16 emacs/lisp/gnus/gnus-srvr.el:1.17
*** emacs/lisp/gnus/gnus-srvr.el:1.16   Wed Feb  9 15:50:38 2005
--- emacs/lisp/gnus/gnus-srvr.el        Wed Mar 30 08:14:32 2005
***************
*** 851,873 ****
    (setq buffer-read-only t)
    (gnus-run-hooks 'gnus-browse-mode-hook))
  
! (defun gnus-browse-read-group (&optional no-article)
!   "Enter the group at the current line."
!   (interactive)
    (let ((group (gnus-browse-group-name)))
      (if (or (not (gnus-get-info group))
            (gnus-ephemeral-group-p group))
        (unless (gnus-group-read-ephemeral-group
                 group gnus-browse-current-method nil
!                (cons (current-buffer) 'browse))
          (error "Couldn't enter %s" group))
        (unless (gnus-group-read-group nil no-article group)
        (error "Couldn't enter %s" group)))))
  
! (defun gnus-browse-select-group ()
!   "Select the current group."
!   (interactive)
!   (gnus-browse-read-group 'no))
  
  (defun gnus-browse-next-group (n)
    "Go to the next group."
--- 851,876 ----
    (setq buffer-read-only t)
    (gnus-run-hooks 'gnus-browse-mode-hook))
  
! (defun gnus-browse-read-group (&optional no-article number)
!   "Enter the group at the current line.
! If NUMBER, fetch this number of articles."
!   (interactive "P")
    (let ((group (gnus-browse-group-name)))
      (if (or (not (gnus-get-info group))
            (gnus-ephemeral-group-p group))
        (unless (gnus-group-read-ephemeral-group
                 group gnus-browse-current-method nil
!                (cons (current-buffer) 'browse)
!                nil nil nil number)
          (error "Couldn't enter %s" group))
        (unless (gnus-group-read-group nil no-article group)
        (error "Couldn't enter %s" group)))))
  
! (defun gnus-browse-select-group (&optional number)
!   "Select the current group.
! If NUMBER, fetch this number of articles."
!   (interactive "P")
!   (gnus-browse-read-group 'no number))
  
  (defun gnus-browse-next-group (n)
    "Go to the next group."