Re: Improved (non-annoying) underlining

[Karl Kleinpaste <karl@charcoal.com>]

Karl Kleinpaste <karl@charcoal.com> 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)))))