[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-srvr.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-srvr.el |
Date: |
Wed, 30 Mar 2005 03:14:34 -0500 |
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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-srvr.el,
Miles Bader <=