From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/38779 Path: main.gmane.org!not-for-mail From: hermit@koka-in.org Newsgroups: gmane.emacs.gnus.general Subject: [PATCH] %c in gnus-group-line-format Date: Sun, 16 Sep 2001 06:01:01 +0900 Message-ID: <874rq4p3si.fsf@koka-in.org> References: <87n13wifyi.fsf@koka-in.org> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by SEMI 1.14.3 - "Ushinoya") Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035174587 24279 80.91.224.250 (21 Oct 2002 04:29:47 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 04:29:47 +0000 (UTC) Cc: semi-gnus-ja@meadowy.org, ueno@unixuser.org Return-Path: Return-Path: Original-Received: (qmail 2185 invoked from network); 15 Sep 2001 21:01:07 -0000 Original-Received: from ohta003053.catv.ppp.infoweb.ne.jp (HELO king.hermit.dnsalias.org) (postfix@61.121.90.53) by gnus.org with SMTP; 15 Sep 2001 21:01:07 -0000 Original-Received: by king.hermit.dnsalias.org (Postfix, from userid 1000) id D04512BEA65; Sun, 16 Sep 2001 06:01:02 +0900 (JST) Original-To: ding@gnus.org X-Face: 7)z$F~Q';}{+DQQ>/hxi]1]KpH]mu+s5r;f#d:a~q*!HVwUI|?xNs"GCKvVzE50]Y7eVb)C kO^ItR,iNo`~+0I,s=QGC(5hNmxOw:*AXO1B}>S{(>S>m6X7Q?%62sGpe^adl (hermit@koka-in.org's message of "Sun, 16 Sep 2001 01:20:05 +0900") User-Agent: T-gnus/6.15.4 (based on Oort Gnus v0.04) (revision 06) SEMI/1.14.3 (Ushinoya) FLIM/1.14.3 (=?ISO-8859-4?Q?Unebigory=F2mae?=) APEL/10.3 MULE XEmacs/21.5 (beta2) (artichoke) (i686-pc-linux) Original-Lines: 29 Xref: main.gmane.org gmane.emacs.gnus.general:38779 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:38779 Hi folks, I love %c in gnus-group-line-format, but it does not work in these days. So I tried this change. 2001-09-16 Katsuhiro Hermit Endo * gnus-spec.el (gnus-parse-complex-format): Don't fold search case. (Thanks to Daiki Ueno .) --- gnus-spec.el 2001/09/14 15:12:19 6.15 +++ gnus-spec.el 2001/09/15 19:45:00 @@ -408,8 +408,9 @@ (insert "\")") ;; Convert point position commands. (goto-char (point-min)) - (while (re-search-forward "%\\([-0-9]+\\)?C" nil t) - (replace-match "\"(point)\"" t t)) + (let ((case-fold-search nil)) + (while (re-search-forward "%\\([-0-9]+\\)?C" nil t) + (replace-match "\"(point)\"" t t))) ;; Convert TAB commands. (goto-char (point-min)) (while (re-search-forward "%\\([-0-9]+\\)=" nil t) -- Katsuhiro Hermit Endo