Find method for a new group.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f8971ba..03eae52 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-12-03 01:12:41  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus.el (gnus-find-method-for-group): The method of a new group
+       is not the native one.
+
 1999-12-03 01:26:55  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-art.el (gnus-button-embedded-url): Always call browse-url. 

diff --git a/lisp/gnus.el b/lisp/gnus.el
index ee7d2d4..525c6d8 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2743,6 +2743,8 @@ If NEWSGROUP is nil, return the global kill file name instead."
   (or gnus-override-method
       (and (not group)
           gnus-select-method)
+      (and (not (gnus-group-entry group)) ;; a new group
+          (gnus-group-name-to-method group))
       (let ((info (or info (gnus-get-info group)))
            method)
        (if (or (not info)