From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/31017 Path: main.gmane.org!not-for-mail From: Karl Kleinpaste Newsgroups: gmane.emacs.gnus.general Subject: Re: Improved (non-annoying) underlining Date: 17 May 2000 10:08:21 -0400 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035167476 11674 80.91.224.250 (21 Oct 2002 02:31:16 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 02:31:16 +0000 (UTC) Return-Path: Original-Received: from lisa.math.uh.edu (lisa.math.uh.edu [129.7.128.49]) by mailhost.sclp.com (Postfix) with ESMTP id D26D8D0520 for ; Wed, 17 May 2000 10:08:46 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by lisa.math.uh.edu (8.9.1/8.9.1) with ESMTP id JAB30867; Wed, 17 May 2000 09:08:45 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 17 May 2000 09:08:11 -0500 (CDT) Original-Received: from mailhost.sclp.com (postfix@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id JAA28116 for ; Wed, 17 May 2000 09:08:01 -0500 (CDT) Original-Received: from mesquite.charcoal.com (MESQUITE.SLIP.CS.CMU.EDU [128.2.207.11]) by mailhost.sclp.com (Postfix) with ESMTP id 0AF6DD0520 for ; Wed, 17 May 2000 10:08:22 -0400 (EDT) Original-Received: (from karl@localhost) by mesquite.charcoal.com (8.9.3/8.9.3) id KAA26921; Wed, 17 May 2000 10:08:21 -0400 Original-To: ding@gnus.org X-Face: "5(T0tZd{6}pd~YzBG8O/*EW,.]6]@`m^e;fv65W^Y&=d"M\1H}>T~4_.kcDD.O~y3k)a6h R;Nmi>9|>Nm${2IpM0^RcUEa\jcq?KOP)C&~x51l~zCHTulL^_T|u0I^kB'z@]{`2YjQu In-Reply-To: Karl Kleinpaste's message of "17 May 2000 08:58:13 -0400" Original-Lines: 40 User-Agent: Gnus/5.0807 (Gnus v5.8.7) XEmacs/21.2 (Iris) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:31017 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:31017 Karl Kleinpaste writes: > Again, it comes down to a personal preference, so I think a > customizable doodad is in order. I'll work up a new patch shortly. Would a CVS write-enabled person please apply? Default behavior will be as Bill asked. Removing the leading `^' will stop underlining of all whitespace. thanx, --karl --- gnus-art.el.~1~ Tue May 16 18:07:32 2000 +++ gnus-art.el Wed May 17 09:43:49 2000 @@ -253,6 +253,14 @@ face)) :group 'gnus-article-emphasis) +(defcustom gnus-emphasize-whitespace-regexp "^[ \t]+\\|[ \t]*\n" + "A regexp to describe whitespace which should not be emphasized. +Typical values are \"^[ \t]+\\|[ \t]*\n\" and \"[ \t]+\\|[ \t]*\n\". +The former avoids underlining of leading and trailing whitespace, +and the latter avoids underlining any whitespace at all." + :group 'gnus-article-emphasis + :type 'regexp) + (defface gnus-emphasis-bold '((t (:bold t))) "Face used for displaying strong emphasized text (*word*)." :group 'gnus-article-emphasis) --- gnus-util.el.~1~ Wed May 17 07:53:12 2000 +++ gnus-util.el Wed May 17 09:44:31 2000 @@ -569,7 +569,7 @@ (save-excursion (save-restriction (goto-char beg) - (while (re-search-forward "[ \t]+\\|[ \t]*\n" end 'move) + (while (re-search-forward gnus-emphasize-whitespace-regexp end 'move) (gnus-put-text-property beg (match-beginning 0) prop val) (setq beg (point))) (gnus-put-text-property beg (point) prop val)))))