2000-10-24 18:31:29 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-art.el (gnus-request-article-this-buffer):
	gnus-refer-article-method might be a single method.
	* gnus-sum.el (gnus-refer-article-methods): The second could be
	a named method.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ec18d56..5d01741 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * gnus-art.el (gnus-request-article-this-buffer):
        gnus-refer-article-method might be a single method.
+       * gnus-sum.el (gnus-refer-article-methods): The second could be 
+       a named method.
 
 2000-10-23  Simon Josefsson  <simon@josefsson.org>
 

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index bb2f8ad..feb3f6d 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -6882,7 +6882,8 @@ of what's specified by the `gnus-refer-thread-limit' variable."
    ((eq 'current gnus-refer-article-method)
     (list gnus-current-select-method))
    ;; List of select methods.
-   ((not (stringp (cadr gnus-refer-article-method)))
+   ((not (and (symbolp (car gnus-refer-article-method))
+             (assq (car gnus-refer-article-method) nnoo-definition-alist)))
     (let (out)
       (dolist (method gnus-refer-article-method)
        (push (if (eq 'current method)