Re: [patch] Re: topic parameters and agent-score

[Shenghuo ZHU <zsh@cs.rochester.edu>]

[-- Attachment #1: Type: text/plain, Size: 1217 bytes --]

>>>>> "Robert" == Robert Epprecht <epprecht@sunweb.ch> writes:

Robert> BTW: I got a different backtrace this morning, which was caused for
Robert> the first time by another group. I attach it, because it might
Robert> throw some light on the issue.

Robert> ================backtrace===================
Robert> Signaling: (error "Selecting deleted buffer")
Robert>   nntp-retrieve-articles((71810 71809 71774) "de.comp.os.unix.linux.misc" "new$  gnus-retrieve-articles((71810 71809 71774) "de.comp.os.unix.linux.misc")
Robert>   gnus-agent-fetch-articles("de.comp.os.unix.linux.misc" (71810 71809 71774))
Robert>   gnus-agent-fetch-group-1("de.comp.os.unix.linux.misc" (nntp "news.sunrise.ch$  gnus-agent-fetch-session()
Robert> * call-interactively(gnus-agent-fetch-session)
Robert> ============================================

Although you get different backtrace, the reason is the same.  Read my
article <2nu2r9yvuh.fsf@tiger.jia.vnet>.  The patch in the article
fixes part of this bug. Here is another patch.  You need apply both
patches.  I hope these can fix the bug.

1999-07-17  Shenghuo ZHU  <zsh@cs.rochester.edu>

	* nntp.el (nntp-kill-buffer): New function.
	* nntp.el: Use it to kill process buffer.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 95-zsh11.diff --]
[-- Type: text/x-patch, Size: 2101 bytes --]

--- ../../pgnus-sent/lisp/nntp.el	Tue Jul  6 10:04:38 1999
+++ nntp.el	Sat Jul 17 09:54:23 1999
@@ -292,6 +292,11 @@
       (unless discard
 	(erase-buffer)))))
 
+(defun nntp-kill-buffer (buffer)
+  (when (buffer-name buffer)
+    (kill-buffer buffer)
+    (nnheader-init-server-buffer)))
+
 (defsubst nntp-find-connection (buffer)
   "Find the connection delivering to BUFFER."
   (let ((alist nntp-connection-alist)
@@ -304,8 +309,7 @@
     (when process
       (if (memq (process-status process) '(open run))
 	  process
-	(when (buffer-name (process-buffer process))
-	  (kill-buffer (process-buffer process)))
+	(nntp-kill-buffer (process-buffer process))
 	(setq nntp-connection-alist (delq entry nntp-connection-alist))
 	nil))))
 
@@ -696,8 +700,7 @@
 	    ;; QUIT command actually is sent out before we kill
 	    ;; the process.
 	    (sleep-for 1))))
-      (when (buffer-name (process-buffer process))
-	(kill-buffer (process-buffer process)))
+      (nntp-kill-buffer (process-buffer process))
       (setq process (car (pop nntp-connection-alist))))
     (nnoo-close-server 'nntp)))
 
@@ -713,8 +716,7 @@
 	    ;; QUIT command actually is sent out before we kill
 	    ;; the process.
 	    (sleep-for 1))))
-      (when (buffer-name (process-buffer process))
-	(kill-buffer (process-buffer process))))))
+      (nntp-kill-buffer (process-buffer process)))))
 
 (deffoo nntp-request-list (&optional server)
   (nntp-possibly-change-group nil server)
@@ -846,8 +848,7 @@
 	       (nnheader-run-at-time
 		nntp-connection-timeout nil
 		`(lambda ()
-		   (when (buffer-name ,pbuffer)
-		     (kill-buffer ,pbuffer))))))
+		   (nntp-kill-buffer ,pbuffer)))))
 	 (process
 	  (condition-case ()
 	      (let ((coding-system-for-read nntp-coding-system-for-read)
@@ -873,8 +874,7 @@
 	      (let ((nnheader-callback-function nil))
 		(run-hooks 'nntp-server-opened-hook)
 		(nntp-send-authinfo t))))
-	(when (buffer-name (process-buffer process))
-	  (kill-buffer (process-buffer process)))
+	(nntp-kill-buffer (process-buffer process))
 	nil))))
 
 (defun nntp-open-network-stream (buffer)

[-- Attachment #3: Type: text/plain, Size: 18 bytes --]


-- 
Shenghuo ZHU