Suspend + gnus-group-get-new-news

Suspend + gnus-group-get-new-news

[Hanak David]

Hi,

it seems that one of the recent changes to Gnus caused gnus-group-suspend
cease to work.  The change was this:

,----[ Gnus ChangeLog ]
| 2003-06-19  Jesper Harder  <harder@ifa.au.dk>
| 
| 	* nnheader.el (nnheader-init-server-buffer): Add
| 	nntp-server-buffer to gnus-buffers.
| 
| 	* gnus-start.el (gnus-clear-system): Now we don't need to kill
| 	nntp-server-buffer separately.
`----

When I return to a suspended Gnus and press 'g', I get an error message.
The message and the backtrace are the following:

,----
| Debugger entered--Lisp error: (error "Selecting deleted buffer")
|   set-buffer(#<killed buffer>)
|   (save-excursion (set-buffer nntp-server-buffer) (while (setq method ...) (unless ... ...)))
|   (let ((methods ...) method) (setq gnus-have-read-active-file nil) (save-excursion (set-buffer nntp-server-buffer) (while ... ...)))
|   gnus-read-active-file()
|   gnus-group-get-new-news()
`----

The problem could be solved with a patch to gnus-group-suspend:

*** /usr/local/src/emacs-packages/gnus-CVS/lisp/gnus-group.el	2003-06-07 19:55:32.000000000 +0200
--- gnus-group.el	2003-06-24 17:08:25.000000000 +0200
***************
*** 3899,3905 ****
    ;; Kill Gnus buffers except for group mode buffer.
    (let ((group-buf (get-buffer gnus-group-buffer)))
      (mapcar (lambda (buf)
! 	      (unless (or (member buf (list group-buf gnus-dribble-buffer))
  			  (progn
  			    (save-excursion
  			      (set-buffer buf)
--- 3899,3907 ----
    ;; Kill Gnus buffers except for group mode buffer.
    (let ((group-buf (get-buffer gnus-group-buffer)))
      (mapcar (lambda (buf)
! 	      (unless (or (member buf (list group-buf
! 					    gnus-dribble-buffer
! 					    nntp-server-buffer))
  			  (progn
  			    (save-excursion
  			      (set-buffer buf)

David

P.S.: I received the copyright assignment agreement yesterday, I'll soon
post it to FSF.  The bonus stickers (Gnu and Tux flying side by side) are
great!

Re: Suspend + gnus-group-get-new-news

[Lars Magne Ingebrigtsen]

Hanak David <dhanak@inf.bme.hu> writes:

> The problem could be solved with a patch to gnus-group-suspend:

I think I applied a similar fix...

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen