From 70f2f2eb7c20690f6504db4bbf189b21941245bb Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 9 Jun 2000 13:09:47 +0000 Subject: [PATCH] (gnus-news-group-p): Sync with Gnus. (gnus-select-method): Remove "*" from doc string. --- ChangeLog | 5 +++++ lisp/gnus.el | 11 +++++++++-- 2 files changed, 14 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index fb946ab..5cea70d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-06-09 Katsumi Yamaoka + + * lisp/gnus.el (gnus-news-group-p): Sync with Gnus. + (gnus-select-method): Remove "*" from doc string. + 2000-06-08 Katsumi Yamaoka * 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 () -- 1.7.10.4