Gnus-valid-move-group-p

To: bugs@gnus.org
Subject: respool capability missused?
From: Simon Josefsson 
Date: 15 May 1999 19:16:04 +0200
Message-ID: 
User-Agent: Gnus/5.070083 (Pterodactyl Gnus v0.83) Emacs/20.3.9
Lines: 29
Xref: xiphias.pdc.kth.se misc-mail:1956
X-Gnus-Article-Number: 1956   Sat May 15 19:16:06 1999

Gnus believes only backends with the 'respool capability can be used
to move articles into. I think the proper check would be to see if the
backend has a `request-accept-article' instead.

(I think this only affects group name completion so it's somewhat
cosmetic)

1999-05-15  Simon Josefsson  

	* gnus-sum.el (gnus-valid-move-group-p): Check for a
	request-accept-article function in the backend instead of using
	the 'respool capability.

--- gnus-sum.el~	Sat May  1 17:31:09 1999
+++ gnus-sum.el	Sat May 15 19:04:37 1999
@@ -8788,11 +8788,8 @@
   (and (boundp group)
        (symbol-name group)
        (symbol-value group)
-       (memq 'respool
-	     (assoc (symbol-name
-		     (car (gnus-find-method-for-group
-			   (symbol-name group))))
-		    gnus-valid-select-methods))))
+       (gnus-get-function (gnus-find-method-for-group
+			   (symbol-name group)) 'request-accept-article t)))
 
 (defun gnus-read-move-group-name (prompt default articles prefix)
   "Read a group name."

Last modified: Sat May 15 19:23:15 METDST 1999