Re: nnimap stuck doing J s on denied server

[Steinar Bang <sb@metis.no>]

>>>>> simon@josefsson.org:

> Steinar Bang <sb@metis.no> writes:

>> The xemacs is completely dead.  It does not take C-g and it does
>> not update itself when overlapping windows are moved away.  I don't
>> know what would happen after 5 minutes or so, because after that I
>> just kill the entire xemacs process.

> I noticed this today: send SIGINT (ie C-c in the window were you
> started XEmacs) to XEmacs and it resumes.

I normally don't run xemacs from a window.  I run it from an icon on
my KDE desktop.

The first thing I tried doing was finding the PID of the xemacs
process, and send
	kill -SIGINT <pid>

I did that four or five times but that didn't affect the running
xemacs.  So I killed the process and started xemacs from the command
line, without sending it to the background.

When it locked up, I pressed C-c, without having any effect.  Then I
pressed it once more without any effect... then I hammered it
repeatedly and _that_ seemed to have an effect.

I sent the xemacs to the background using C-z and "bg", and tried its
behaviour there.

Right now `J s' works, and the unreachable nnimap servers are denied
"enough" for this to work.  Denying them by doing `D' in the server
buffer is not enough.

I tried hacking the gnus-agent-fetch-session command yesterday to
check for the 'denied symbol on the server, but that didn't work:

Index: gnus-agent.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-agent.el,v
retrieving revision 5.55
diff -c -c -r5.55 gnus-agent.el
*** gnus-agent.el	2000/07/13 17:19:05	5.55
--- gnus-agent.el	2000/08/03 20:06:31
***************
*** 1008,1020 ****
  	(condition-case err
  	    (progn
  	      (setq gnus-command-method (car methods))
! 	      (when (or (gnus-server-opened gnus-command-method)
! 			(gnus-open-server gnus-command-method))
! 		(setq groups (gnus-groups-from-server (car methods)))
! 		(gnus-agent-with-fetch
! 		  (while (setq group (pop groups))
! 		    (when (<= (gnus-group-level group) gnus-agent-handle-level)
! 		      (gnus-agent-fetch-group-1 group gnus-command-method))))))
  	  (error 
  	   (unless (funcall gnus-agent-confirmation-function
  			    (format "Error (%s).  Continue? " err))
--- 1008,1025 ----
  	(condition-case err
  	    (progn
  	      (setq gnus-command-method (car methods))
! 	      (if (eq (gnus-server-status gnus-command-method)
! 		      'denied)
! 		  (gnus-message 1 "Denied server")
! 		(when (or (gnus-server-opened gnus-command-method)
! 			  (gnus-open-server gnus-command-method))
! 		  (setq groups (gnus-groups-from-server (car methods)))
! 		  (gnus-agent-with-fetch
! 		    (while (setq group (pop groups))
! 		      (when (<= (gnus-group-level group)
! 				gnus-agent-handle-level)
! 			(gnus-agent-fetch-group-1 group
! 						  gnus-command-method)))))))
  	  (error 
  	   (unless (funcall gnus-agent-confirmation-function
  			    (format "Error (%s).  Continue? " err))

It was a shot in the dark, and probably just hit my foot...;-)