X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-sum.el;h=dc7bde62c135ccd5d4812e299e16acbb6376a429;hp=4f6a565aa52e33330c2c9391252eaa00126a7903;hb=d626ac599e6c88f6b61e3271cc80b5ec837c5bc2;hpb=ad047d8199958b02778e7aa8e239ef99d64472f9 diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 4f6a565aa..dc7bde62c 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -3831,6 +3831,13 @@ This function is intended to be used in (and (consp elem) ; Has to be a cons. (consp (cdr elem)) ; The cdr has to be a list. (symbolp (car elem)) ; Has to be a symbol in there. + + ;; Variables like `gnus-show-threads' that are globally bound, + ;; if used as group parameters, need to get to be buffer-local, + ;; whereas just parameters like `gcc-self', `timestamp', etc. + ;; should not be bound as variables. + (boundp (car elem)) ; Has to be already bound + (not (memq (car elem) vars)) (ignore-errors ; So we set it. (push (car elem) vars)