From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/68090 Path: news.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: nndrafts folder doesn't display the Drafts menu Date: Tue, 06 Jan 2009 15:46:00 +0900 Organization: Emacsen advocacy group Message-ID: References: <84tz8dbiqe.fsf@incoming.verizon.net> <84hc4d2wjv.fsf@incoming.verizon.net> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1231224444 5165 80.91.229.12 (6 Jan 2009 06:47:24 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 6 Jan 2009 06:47:24 +0000 (UTC) Cc: Steinar Bang , ding@gnus.org To: David Engster Original-X-From: ding-owner+M16535@lists.math.uh.edu Tue Jan 06 07:48:35 2009 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.50) id 1LK5ju-0006P1-1M for ding-account@gmane.org; Tue, 06 Jan 2009 07:48:34 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1LK5iI-0001ly-I5; Tue, 06 Jan 2009 00:46:54 -0600 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1LK5iF-0001lc-Pl for ding@lists.math.uh.edu; Tue, 06 Jan 2009 00:46:51 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.69) (envelope-from ) id 1LK5iB-0005m1-Ov for ding@lists.math.uh.edu; Tue, 06 Jan 2009 00:46:51 -0600 Original-Received: from orlando.hostforweb.net ([216.246.45.90]) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1LK5iQ-0003Dw-00 for ; Tue, 06 Jan 2009 07:47:02 +0100 Original-Received: from localhost ([127.0.0.1]:59290) by orlando.hostforweb.net with esmtpa (Exim 4.69) (envelope-from ) id 1LK5hX-0008AU-TA; Tue, 06 Jan 2009 00:46:08 -0600 X-Hashcash: 1:20:090106:dengste@eml.cc::YSkZf+8pohC8oUPs:000L+Uc X-Hashcash: 1:20:090106:sb@dod.no::ouDmh/qtUbRoJYO2:00000000618N X-Hashcash: 1:20:090106:ding@gnus.org::NLRcAjjpj3+i/4uQ:00000R4V X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/23.0.60 (gnu/linux) Cancel-Lock: sha1:hUTOrEqtuLhdtuDNRQRJHnrs5lA= X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - orlando.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - jpl.org X-Source: X-Source-Args: X-Source-Dir: X-Spam-Score: -2.6 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:68090 Archived-At: --=-=-= >>>>> Katsumi Yamaoka wrote: > David, do you have an idea to fix this? How about this one (evaluate parameter's operands but don't set variables)? --=-=-= Content-Type: text/x-patch Content-Disposition: inline --- gnus-sum.el~ 2008-12-25 02:41:43 +0000 +++ gnus-sum.el 2009-01-06 06:42:33 +0000 @@ -3831,18 +3831,18 @@ (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. + (ignore-errors (push (car elem) vars) - (make-local-variable (car elem)) - (set (car elem) (eval (nth 1 elem)))))))) + ;; 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. + (if (boundp (car elem)) + (progn + (make-local-variable (car elem)) + (set (car elem) (eval (nth 1 elem)))) + (eval (nth 1 elem)))))))) (defun gnus-summary-read-group (group &optional show-all no-article kill-buffer no-display backward --=-=-=--