From: yamaoka <yamaoka>
Date: Fri, 9 Jun 2000 13:09:47 +0000 (+0000)
Subject: (gnus-news-group-p): Sync with Gnus.
X-Git-Tag: t-gnus-6_14_4-04~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=70f2f2eb7c20690f6504db4bbf189b21941245bb;p=elisp%2Fgnus.git-

(gnus-news-group-p): Sync with Gnus.
(gnus-select-method): Remove "*" from doc string.
---

diff --git a/ChangeLog b/ChangeLog
index fb946ab..5cea70d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-06-09  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/gnus.el (gnus-news-group-p): Sync with Gnus.
+	(gnus-select-method): Remove "*" from doc string.
+
 2000-06-08  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* lisp/message.el (message-fix-before-sending): Expose all
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 32df498..62a4bc5 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -904,7 +904,7 @@ used to 899, you would say something along these lines:
 	   nil
 	 (list gnus-nntp-service)))
     (error nil))
-  "*Default method for selecting a newsgroup.
+  "Default method for selecting a newsgroup.
 This variable should be a list, where the first element is how the
 news is to be fetched, the second is the address.
 
@@ -2299,7 +2299,14 @@ that that variable is buffer-local to the summary buffers."
   "Return non-nil if GROUP (and ARTICLE) come from a news server."
   (or (gnus-member-of-valid 'post group) ; Ordinary news group.
       (and (gnus-member-of-valid 'post-mail group) ; Combined group.
-	   (eq (gnus-request-type group article) 'news))))
+	   (if (or (null article)
+		   (not (< article 0)))
+	       (eq (gnus-request-type group article) 'news)
+	     (if (not (vectorp article))
+		 nil
+	       ;; It's a real article.
+	       (eq (gnus-request-type group (mail-header-id article))
+		   'news))))))
 
 ;; Returns a list of writable groups.
 (defun gnus-writable-groups ()