X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus.el;h=8b43045ccc9e406becacf9c33411e9278d91970f;hb=c536c15a7209f1ae01c20beeacde17f7cb861c03;hp=3df6ddbef2d06e1d2300ac56729bc96b1fec3e6a;hpb=ff79efac756f360c9a48b292b4619699fe19d057;p=gnus

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 3df6ddbef..8b43045cc 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2910,6 +2910,7 @@ gnus-registry.el will populate this if it's loaded.")
       gnus-start-date-timer gnus-stop-date-timer
       gnus-mime-view-all-parts)
      ("gnus-int" gnus-request-type)
+     ("gnus-html" gnus-html-show-images)
      ("gnus-start" gnus-newsrc-parse-options gnus-1 gnus-no-server-1
       gnus-dribble-enter gnus-read-init-file gnus-dribble-touch
       gnus-check-reasonable-setup)
@@ -3936,7 +3937,9 @@ GROUP can also be an INFO structure."
 		    (not (eq (caar old-params) name)))
 	    (setq new-params (append new-params (list (car old-params)))))
 	  (setq old-params (cdr old-params)))
-	(gnus-group-set-info new-params (gnus-info-group info) 'params)))))
+	(if (listp group)
+	    (gnus-info-set-params info new-params t)
+	  (gnus-group-set-info new-params (gnus-info-group info) 'params))))))
 
 (defun gnus-group-remove-parameter (group name)
   "Remove parameter NAME from GROUP.