From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/61271 Path: news.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: gnus-parameters ignores case Date: Tue, 01 Nov 2005 14:57:27 +0900 Organization: Emacsen advocacy group Message-ID: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1130825593 629 80.91.229.2 (1 Nov 2005 06:13:13 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 1 Nov 2005 06:13:13 +0000 (UTC) Cc: IRIE Tetsuya Original-X-From: ding-owner+m9803@lists.math.uh.edu Tue Nov 01 07:13:10 2005 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by ciao.gmane.org with esmtp (Exim 4.43) id 1EWpDt-0000Gv-R2 for ding-account@gmane.org; Tue, 01 Nov 2005 07:02:19 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1EWpDl-0007Mn-00; Tue, 01 Nov 2005 00:02:09 -0600 Original-Received: from nas01.math.uh.edu ([129.7.128.39]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1EWp9S-0007Mi-00 for ding@lists.math.uh.edu; Mon, 31 Oct 2005 23:57:42 -0600 Original-Received: from quimby.gnus.org ([80.91.224.244]) by nas01.math.uh.edu with esmtp (Exim 4.52) id 1EWp9O-0000j1-PG for ding@lists.math.uh.edu; Mon, 31 Oct 2005 23:57:42 -0600 Original-Received: from washington.hostforweb.net ([66.225.201.13]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1EWp9J-0002yO-00 for ; Tue, 01 Nov 2005 06:57:33 +0100 Original-Received: from localhost ([127.0.0.1]:49293) by washington.hostforweb.net with esmtpa (Exim 4.52) id 1EWp9X-0005MB-IX; Mon, 31 Oct 2005 23:57:47 -0600 Original-To: ding@gnus.org 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.110004 (No Gnus v0.4) Emacs/22.0.50 (gnu/linux) Cancel-Lock: sha1:wPljWrN6tHhulA/Ypkdk3JrpIe8= X-Hashcash: 1:20:051101:ding@gnus.org::9R90tqoJadyNa7KL:00003CFK X-Hashcash: 1:20:051101:irie@t.email.ne.jp::O1ZSdrczZaW8yzos:000000000000000000000000000000000000000000009jX X-Antivirus-Scanner: Clean mail though you should still use an Antivirus X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - washington.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [0 0] / [47 12] X-AntiAbuse: Sender Address Domain - jpl.org X-Source: X-Source-Args: X-Source-Dir: X-Spam-Score: -2.3 (--) Precedence: bulk Original-Sender: ding-owner@lists.math.uh.edu Xref: news.gmane.org gmane.emacs.gnus.general:61271 Archived-At: --=-=-= Hi, IRIE Tetsuya reported that he lost all mails in the INBOX.foo group when he set `gnus-parameters' to: (setq gnus-parameters '(("INBOX\\.FOO" (total-expire . t)))) He meant having added that parameter to the INBOX.FOO group, not INBOX.foo group, however it was applied to both the groups. To solve this problem, I propose the following changes. WDYT? Plan 1: This might trouble some other users. --=-=-= Content-Type: text/x-patch Content-Disposition: inline --- gnus.el~ 2005-09-16 01:51:50 +0000 +++ gnus.el 2005-11-01 05:53:07 +0000 @@ -3769,7 +3769,8 @@ (defun gnus-parameters-get-parameter (group) "Return the group parameters for GROUP from `gnus-parameters'." - (let (params-list) + (let ((case-fold-search nil) + params-list) (dolist (elem gnus-parameters) (when (string-match (car elem) group) (setq params-list --=-=-= Content-Disposition: inline Plan 2: This does the same behavior as the conventional one. --=-=-= Content-Type: text/x-patch Content-Disposition: inline --- gnus.el~ 2005-09-16 01:51:50 +0000 +++ gnus.el 2005-11-01 05:53:08 +0000 @@ -1100,6 +1100,16 @@ :type '(repeat (cons regexp (repeat sexp)))) +(defcustom gnus-parameters-case-fold-search 'default + "If it is t, ignore case of group names specified in `gnus-parameters'. +If it is nil, don't ignore case. If it is `default', which is for the +backward compatibility, use the value of `case-fold-search'." + :version "22.1" + :group 'gnus-group-various + :type '(radio (const :tag "Use `case-fold-search'" default) + (const nil) + (const t))) + (defvar gnus-group-parameters-more nil) (defmacro gnus-define-group-parameter (param &rest rest) @@ -3769,7 +3779,10 @@ (defun gnus-parameters-get-parameter (group) "Return the group parameters for GROUP from `gnus-parameters'." - (let (params-list) + (let ((case-fold-search (if (eq gnus-parameters-case-fold-search 'default) + case-fold-search + gnus-parameters-case-fold-search)) + params-list) (dolist (elem gnus-parameters) (when (string-match (car elem) group) (setq params-list --=-=-=--