From: tsuchiya <tsuchiya>
Date: Thu, 10 Jan 2002 06:05:28 +0000 (+0000)
Subject: Adopt for old Gnusae.
X-Git-Tag: t-gnus-6_15_5-01-quimby~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0f1de5b536549f15963fc5018ef785fa1ed301eb;p=elisp%2Fgnus.git-

Adopt for old Gnusae.
---

diff --git a/ChangeLog b/ChangeLog
index 2144f9f..e8414b7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-10  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
+
+	* lisp/nnshimbun.el: Adopt for old Gnusae.
+
 2002-01-10  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/message.el (message-strip-forbidden-properties): Don't
diff --git a/lisp/nnshimbun.el b/lisp/nnshimbun.el
index 52bffad..e961d78 100644
--- a/lisp/nnshimbun.el
+++ b/lisp/nnshimbun.el
@@ -103,6 +103,17 @@
 ;; '(index-range all prefetch-articles off encapsulate-images on
 ;;               expiry-wait 6)
 
+(unless (fboundp 'gnus-define-group-parameter)
+  (defmacro gnus-define-group-parameter (&rest args) nil)
+  (defun nnshimbun-find-group-parameters (name)
+    "Return a nnshimbun GROUP's group parameters."
+    (when name
+      (or (gnus-group-find-parameter name 'nnshimbun-group-parameters t)
+	  (assoc-default name
+			 (and (boundp 'nnshimbun-group-parameters-alist)
+			      (symbol-value 'nnshimbun-group-parameters-alist))
+			 (function string-match))))))
+
 (gnus-define-group-parameter
  nnshimbun-group-parameters
  :type list