X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnnshimbun.el;h=e961d7801c19a1a89f9029b723c523297f6d9947;hb=9b741e050b400987d68ff761c6cc3276c932839c;hp=52bffad822fb9e1a51c1684d3dbc4b340ed08229;hpb=774ba73388b1076583f46f959e2c12ee0af75df4;p=elisp%2Fgnus.git-

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