master 8cf274f: Allow an info structure as argument for gnus-group-get-parameter

[Andrew G Cohen]

branch: master
commit 8cf274f9603a19d99e9caa4c5da37e8b91ae4a7c
Author: Andrew G Cohen <cohen@andy.bu.edu>
Commit: Andrew G Cohen <cohen@andy.bu.edu>

    Allow an info structure as argument for gnus-group-get-parameter
    
    * lisp/gnus/gnus.el (gnus-group-get-parameter): Allow the group
    argument to be either a group name or a group info structure. This is
    then parallel to gnus-group-set-parameter.
---
 lisp/gnus/gnus.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index 8cd35e3..cb53426 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -3628,11 +3628,12 @@ If you call this function inside a loop, consider using 
the faster
 
 (defun gnus-group-get-parameter (group &optional symbol allow-list)
   "Return the group parameters for GROUP.
-If SYMBOL, return the value of that symbol in the group parameters.
-If ALLOW-LIST, also allow list as a result.
-Most functions should use `gnus-group-find-parameter', which
-also examines the topic parameters."
-  (let ((params (gnus-info-params (gnus-get-info group))))
+If SYMBOL, return the value of that symbol in the group
+parameters.  If ALLOW-LIST, also allow list as a result.  Most
+functions should use `gnus-group-find-parameter', which also
+examines the topic parameters.  GROUP can also be an info structure."
+  (let ((params (gnus-info-params (if (listp group) group
+                                   (gnus-get-info group)))))
     (if symbol
        (gnus-group-parameter-value params symbol allow-list)
       params)))