From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/64285 Path: news.gmane.org!not-for-mail From: Tassilo Horn Newsgroups: gmane.emacs.gnus.general Subject: Re: Bug: Gnus uses face gnus-cite-1 for non-cited text Date: Wed, 07 Feb 2007 14:20:00 +0100 Message-ID: <87sldigl4v.fsf@baldur.tsdh.de> References: <87tzxzsenz.fsf@baldur.tsdh.de> <871wl2i4sf.fsf@baldur.tsdh.de> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1170854573 16955 80.91.229.12 (7 Feb 2007 13:22:53 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 7 Feb 2007 13:22:53 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M12809@lists.math.uh.edu Wed Feb 07 14:22:46 2007 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 1HEml2-0000Tw-87 for ding-account@gmane.org; Wed, 07 Feb 2007 14:22:44 +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 1HEmk9-0002kX-G6; Wed, 07 Feb 2007 07:21:49 -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 1HEmk6-0002k8-90 for ding@lists.math.uh.edu; Wed, 07 Feb 2007 07:21:46 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.63) (envelope-from ) id 1HEmjz-0003Y4-Ot for ding@lists.math.uh.edu; Wed, 07 Feb 2007 07:21:46 -0600 Original-Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1HEmjy-0006pI-00 for ; Wed, 07 Feb 2007 14:21:38 +0100 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1HEmjE-0004Or-HM for ding@gnus.org; Wed, 07 Feb 2007 14:20:52 +0100 Original-Received: from dslb-084-063-026-085.pools.arcor-ip.net ([84.63.26.85]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 07 Feb 2007 14:20:52 +0100 Original-Received: from tassilo by dslb-084-063-026-085.pools.arcor-ip.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 07 Feb 2007 14:20:52 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 171 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: dslb-084-063-026-085.pools.arcor-ip.net Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAD1BMVEW2mhnYvEn26qD+/vbC t5CEWCLiAAAACXBIWXMAAAsSAAALEgHS3X78AAAATnRFWHRSYXcgcHJvZmlsZSB0eXBlIGV4aWYA CmV4aWYKICAgICAgMjAKNDU3ODY5NjYwMDAwNGQ0ZDAwMmEwMDAwMDAwODAwMDAwMDAwMDAwMAqJ uBZbAAAACXZwQWcAAAAwAAAAMADO7oxXAAABkElEQVQ4y3WTDZLCIAyFQ08A6AFK0gNowgG6de9/ pn2Bau22ZRyF+ZKXX8lOjqZs1K9i+gUmStKAxmzTsjlECtwBEUfKb1CJKDvQkfwEWUFZCsD0shpi I8MbZAWoQWNI+KS3S2VhACaolwSAXzGkUD0ok7q4liwID4vFJAGEG1DIorDV4pGmXBCKka7GJPb0 ItwlIMHsHkJQMftlPKQQIVDA+wmAXgi70pg5pTyiGwC5t2SCw0LBOHNJ3oDH2sQf2CciETXNMLKx A82IhtCtbV6kQsJfT+aYuJB8+jtIA/OQiK3QNpDUgZeMtDYA7QZQl0fsUn6rK4heE+I36+WFvnMH paVobYJ6l5Ztr0M+IlgQr0vMvlKRPj0X5R1oDuXmXnICpDV9B6ooeugX//oCs2ry8dlzDyCASd2O HtNg2CC/jbwDMybYd24PoMSx8HugG3gMUoZtIhuYuRV3ANXX8XUCvIBRjkDjDStgR1CD/PuDrmDM dg7i6xwclVZQDkoriHwB7nYBlgugcgXsSurk/AEJvb3wF7X09QAAABp6VFh0SlBFRy1Db2xvcnNw YWNlAAB42jMCAAAzADMRFn5jAAAAJ3pUWHRKUEVHLVNhbXBsaW5nLWZhY3RvcnMAAHjaM6ow0jGs MARhABGDAulkDxtiAAAAAElFTkSuQmCC User-Agent: Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.93 (gnu/linux) Cancel-Lock: sha1:EjJH1IFHmnoDrMB/zW+DiBsTQMc= X-Spam-Score: -2.6 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:64285 Archived-At: Hi again, it seems some control-characters garbled part of my last posting, so here is the cut off part (with control chars replaced with their printed representaton). > Showing the local value of `font-lock-keywords' in the message > buffer (t ((#[(limit) "`^X\214~\210eb\210\303\304\305 !\306Q\307\310#\203^Z^@\n\311\224^^R^Hb\210)^H\nW\205)^@\303\312\n\310#)\207" [start mail-header-separator limit re-search-forward "^" regexp-quote "$" nil t 0 "^\\([Tt]o:\\)[ ]*\\(.+\\(\n[ ].*\\)*\\)\n?"] 4] (1 'message-header-name) (2 'message-header-to nil t)) (#[(limit) "`^X\214~\210eb\210\303\304\305 !\306Q\307\310#\203^Z^@\n\311\224^^R^Hb\210)^H\nW\205)^@\303\312\n\310#)\207" [start mail-header-separator limit re-search-forward "^" regexp-quote "$" nil t 0 "^\\(^[GBF]?[Cc][Cc]:\\|^[Rr]eply-[Tt]o:\\)[ ]*\\(.+\\(\n[ ].*\\)*\\)\n?"] 4] (1 'message-header-name) (2 'message-header-cc nil t)) (#[(limit) "`^X\214~\210eb\210\303\304\305 !\306Q\307\310#\203^Z^@\n\311\224^^R^Hb\210)^H\nW\205)^@\303\312\n\310#)\207" [start mail-header-separator limit re-search-forward "^" regexp-quote "$" nil t 0 "^\\([Ss]ubject:\\)[ ]*\\(.+\\(\n[ ].*\\)*\\)\n?"] 4] (1 'message-header-name) (2 'message-header-subject nil t)) (#[(limit) "`^X\214~\210eb\210\303\304\305 !\306Q\307\310#\203^Z^@\n\311\224^^R^Hb\210)^H\nW\205)^@\303\312\n\310#)\207" [start mail-header-separator limit re-search-forward "^" regexp-quote "$" nil t 0 "^\\([Nn]ewsgroups:\\|Followup-[Tt]o:\\)[ ]*\\(.+\\(\n[ ].*\\)*\\)\n?"] 4] (1 'message-header-name) (2 'message-header-newsgroups nil t)) (#[(limit) "`^X\214~\210eb\210\303\304\305 !\306Q\307\310#\203^Z^@\n\311\224^^R^Hb\210)^H\nW\205)^@\303\312\n\310#)\207" [start mail-header-separator limit re-search-forward "^" regexp-quote "$" nil t 0 "^\\([A-Z][^: \n ]+:\\)[ ]*\\(.+\\(\n[ ].*\\)*\\)\n?"] 4] (1 'message-header-name) (2 'message-header-other nil t)) (#[(limit) "`^X\214~\210eb\210\303\304\305 !\306Q\307\310#\203^Z^@\n\311\224^^R^Hb\210)^H\nW\205)^@\303\312\n\310#)\207" [start mail-header-separator limit re-search-forward "^" regexp-quote "$" nil t 0 "^\\(X-[A-Za-z0-9-]+:\\|In-Reply-To:\\)[ ]*\\(.+\\(\n[ ].*\\)*\\)\n?"] 4] (1 'message-header-name) (2 'message-header-name)) ("^\\(--text follows this line--\\)$" 1 'message-separator) ((lambda (limit) (re-search-forward (concat "^\\(" message-cite-prefix-regexp "\\).*") limit t)) (0 'message-cited-text)) ("<#/?\\(multipart\\|part\\|external\\|mml\\|secure\\)[^>]*>" (0 'message-mml)) (gnus-message-search-citation-line (1 'gnus-cite-1 prepend t) (2 'gnus-cite-2 prepend t) (3 'gnus-cite-3 prepend t) (4 'gnus-cite-4 prepend t) (5 'gnus-cite-5 prepend t) (6 'gnus-cite-6 prepend t) (7 'gnus-cite-7 prepend t) (8 'gnus-cite-8 prepend t) (9 'gnus-cite-9 prepend t) (10 'gnus-cite-10 prepend t) (11 'gnus-cite-11 prepend t))) (#[(limit) "`^X\214~\210eb\210\303\304\305 !\306Q\307\310#\203^Z^@\n\311\224^^R^Hb\210)^H\nW\205)^@\303\312\n\310#)\207" [start mail-header-separator limit re-search-forward "^" regexp-quote "$" nil t 0 "^\\([Tt]o:\\)[ ]*\\(.+\\(\n[ ].*\\)*\\)\n?"] 4] (1 'message-header-name) (2 'message-header-to nil t)) (#[(limit) "`^X\214~\210eb\210\303\304\305 !\306Q\307\310#\203^Z^@\n\311\224^^R^Hb\210)^H\nW\205)^@\303\312\n\310#)\207" [start mail-header-separator limit re-search-forward "^" regexp-quote "$" nil t 0 "^\\(^[GBF]?[Cc][Cc]:\\|^[Rr]eply-[Tt]o:\\)[ ]*\\(.+\\(\n[ ].*\\)*\\)\n?"] 4] (1 'message-header-name) (2 'message-header-cc nil t)) (#[(limit) "`^X\214~\210eb\210\303\304\305 !\306Q\307\310#\203^Z^@\n\311\224^^R^Hb\210)^H\nW\205)^@\303\312\n\310#)\207" [start mail-header-separator limit re-search-forward "^" regexp-quote "$" nil t 0 "^\\([Ss]ubject:\\)[ ]*\\(.+\\(\n[ ].*\\)*\\)\n?"] 4] (1 'message-header-name) (2 'message-header-subject nil t)) (#[(limit) "`^X\214~\210eb\210\303\304\305 !\306Q\307\310#\203^Z^@\n\311\224^^R^Hb\210)^H\nW\205)^@\303\312\n\310#)\207" [start mail-header-separator limit re-search-forward "^" regexp-quote "$" nil t 0 "^\\([Nn]ewsgroups:\\|Followup-[Tt]o:\\)[ ]*\\(.+\\(\n[ ].*\\)*\\)\n?"] 4] (1 'message-header-name) (2 'message-header-newsgroups nil t)) (#[(limit) "`^X\214~\210eb\210\303\304\305 !\306Q\307\310#\203^Z^@\n\311\224^^R^Hb\210)^H\nW\205)^@\303\312\n\310#)\207" [start mail-header-separator limit re-search-forward "^" regexp-quote "$" nil t 0 "^\\([A-Z][^: \n ]+:\\)[ ]*\\(.+\\(\n[ ].*\\)*\\)\n?"] 4] (1 'message-header-name) (2 'message-header-other nil t)) (#[(limit) "`^X\214~\210eb\210\303\304\305 !\306Q\307\310#\203^Z^@\n\311\224^^R^Hb\210)^H\nW\205)^@\303\312\n\310#)\207" [start mail-header-separator limit re-search-forward "^" regexp-quote "$" nil t 0 "^\\(X-[A-Za-z0-9-]+:\\|In-Reply-To:\\)[ ]*\\(.+\\(\n[ ].*\\)*\\)\n?"] 4] (1 'message-header-name) (2 'message-header-name)) ("^\\(--text follows this line--\\)$" (1 'message-separator)) ((lambda (limit) (re-search-forward (concat "^\\(" message-cite-prefix-regexp "\\).*") limit t)) (0 'message-cited-text)) ("<#/?\\(multipart\\|part\\|external\\|mml\\|secure\\)[^>]*>" (0 'message-mml)) (gnus-message-search-citation-line (1 'gnus-cite-1 prepend t) (2 'gnus-cite-2 prepend t) (3 'gnus-cite-3 prepend t) (4 'gnus-cite-4 prepend t) (5 'gnus-cite-5 prepend t) (6 'gnus-cite-6 prepend t) (7 'gnus-cite-7 prepend t) (8 'gnus-cite-8 prepend t) (9 'gnus-cite-9 prepend t) (10 'gnus-cite-10 prepend t) (11 'gnus-cite-11 prepend t))) > and the value of `message-cite-prefix-regexp' would be helpful. "\\([ ]*[-_.[:word:]]+>+\\|[ ]*[]>|}+]\\)+" > In addition, have you changed the value of > `message-cite-prefix-regexp' or added/removed some faces to/from > `gnus-cite-face-list'? No. ,----[ grep cite ~/.gnus.el ~/.emacs ] | /home/heimdall/.gnus.el:(setq message-cite-function | /home/heimdall/.gnus.el: 'message-cite-original-without-signature) | /home/heimdall/.gnus.el:(setq gnus-cite-parse-max-size 100000) `---- > Currently the behavior of `gnus-message-citation-mode' is decided > by those values as of time when Gnus is compiled. So, customizing > those options will not affect the behavior, or it might cause a > trouble if anything. Well, the following patch may possibly do > the trick. Currently I didn't apply this patch, because in your follow up to yourself you said you probably fixed the bug. Or was that another change? Should I apply the patch below manually and check again? > --- gnus-cite.el~ 2007-01-24 07:12:47 +0000 > +++ gnus-cite.el 2007-02-07 01:42:02 +0000 > @@ -1126,10 +1126,12 @@ > "\\)")) > limit t) > (let ((cdepth > + (min > (length (apply 'concat > (split-string > (match-string-no-properties 0) > - "[ \t [:alnum:]]+")))) > + "[ \t [:alnum:]]+"))) > + gnus-message-max-citation-depth)) > (mlist (make-list (* (1+ gnus-message-max-citation-depth) > 2) > 0))) Bye, Tassilo