From 0f1de5b536549f15963fc5018ef785fa1ed301eb Mon Sep 17 00:00:00 2001 From: tsuchiya Date: Thu, 10 Jan 2002 06:05:28 +0000 Subject: [PATCH] Adopt for old Gnusae. --- ChangeLog | 4 ++++ lisp/nnshimbun.el | 11 +++++++++++ 2 files changed, 15 insertions(+) diff --git a/ChangeLog b/ChangeLog index 2144f9f..e8414b7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2002-01-10 TSUCHIYA Masatoshi + + * lisp/nnshimbun.el: Adopt for old Gnusae. + 2002-01-10 Katsumi Yamaoka * 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 -- 1.7.10.4