From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/57943 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: suggestion: don't treat ">From " as quote Date: Tue, 22 Jun 2004 20:31:10 +0900 Organization: Emacsen advocacy group Sender: ding-owner@lists.math.uh.edu Message-ID: References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1087903913 17512 80.91.224.253 (22 Jun 2004 11:31:53 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 22 Jun 2004 11:31:53 +0000 (UTC) Original-X-From: ding-owner+M6484@lists.math.uh.edu Tue Jun 22 13:31:45 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1BcjVB-0006IX-00 for ; Tue, 22 Jun 2004 13:31:45 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1BcjUu-0002FV-00; Tue, 22 Jun 2004 06:31:28 -0500 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1BcjUm-0002FN-00 for ding@lists.math.uh.edu; Tue, 22 Jun 2004 06:31:20 -0500 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by util2.math.uh.edu with esmtp (Exim 4.30) id 1BcjUj-0000RJ-8E for ding@lists.math.uh.edu; Tue, 22 Jun 2004 06:31:17 -0500 Original-Received: from washington.hostforweb.net (washington.hostforweb.net [69.61.11.2]) by justine.libertine.org (Postfix) with ESMTP id 5C5483A003A for ; Tue, 22 Jun 2004 06:31:15 -0500 (CDT) Original-Received: from yamaoka by washington.hostforweb.net with local (Exim 4.34) id 1BcjUi-0007vt-SF for ding@gnus.org; Tue, 22 Jun 2004 07:31:17 -0400 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.110003 (No Gnus v0.3) Emacs/21.3.50 (gnu/linux) Cancel-Lock: sha1:e/a19TWxzROvkpbhfFWognV3rYA= X-Hashcash: 0:040622:ding@gnus.org:f909aa76cb0793a6 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 - [32041 32041] / [47 12] X-AntiAbuse: Sender Address Domain - washington.hostforweb.net X-Source: X-Source-Args: X-Source-Dir: Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:57943 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:57943 --=-=-= >>>>> In >>>>> Karl Chen wrote: > Katsumi> (push '("^\\([Ff][Rr][Oo][Mm]\\) " 1 'mode-line) > Katsumi> message-font-lock-keywords) > Nope, doesn't work :( > The color is still citation color, but more importantly, I have > `gnus-cite-hide-percentage' and `gnus-cite-hide-absolute' set so > they are still hidden. > The only change seems to be when /typing/ messages, not reading > articles. I probably saw what should be improved. How about the following patch? --=-=-= Content-Type: text/x-patch Content-Disposition: inline --- gnus-5.10.6/lisp/gnus-cite.el~ 2003-05-10 20:58:01 +0000 +++ gnus-5.10.6/lisp/gnus-cite.el 2004-06-22 11:27:41 +0000 @@ -741,13 +741,16 @@ (setq end (+ begin gnus-cite-max-prefix))) (while (re-search-forward prefix-regexp (1- end) t) ;; Each prefix. - (setq end (match-end 0) - prefix (buffer-substring begin end)) - (gnus-set-text-properties 0 (length prefix) nil prefix) - (setq entry (assoc prefix alist)) - (if entry - (setcdr entry (cons line (cdr entry))) - (push (list prefix line) alist)) + (setq end (match-end 0)) + (unless (string-match "\\`>from " + (buffer-substring (gnus-point-at-bol) + (gnus-point-at-eol))) + (setq prefix (buffer-substring begin end)) + (gnus-set-text-properties 0 (length prefix) nil prefix) + (setq entry (assoc prefix alist)) + (if entry + (setcdr entry (cons line (cdr entry))) + (push (list prefix line) alist))) (goto-char begin)) (goto-char start) (setq line (1+ line))) --=-=-=--