mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Allow an info structure as argument for gnus-group-get-parameter

Browse source 
* 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.
This commit is contained in:
Andrew G Cohen 2020-09-11 10:31:47 +08:00
parent f7e35f8162
commit 8cf274f960
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/gnus/gnus.el
View file

@ -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)))