[Mew-dist 05852] mew-highlight-url

[Atsushi Nemoto ( 根本 篤志 )]

根本です。些細なことですが...

以前から、メッセージバッファの highlight で URL が途中までしか bold に
ならないことがときどきありました。ちょっと気持ち悪いので調べてみたら、
mew-highlight-url-max-size 近辺にちょうどその URL があるためでした。以
下のように行末までを対象としておけば良いんじゃないかと思います。

また、mew-highlight-url-max-size が nil の時にエラーになったのでそれも
対策してみました。

--- org/mew-highlight.el	Fri Jul 31 19:06:51 1998
+++ mew-highlight.el	Fri Aug 07 13:52:21 1998
@@ -59,7 +59,13 @@
 	    bound overlay)
 	(save-excursion
 	  (goto-char (point-min))
-	  (setq bound (+ mew-highlight-url-max-size (point)))
+	  (setq bound
+		(if mew-highlight-url-max-size
+		    (save-excursion
+		      (goto-char (+ mew-highlight-url-max-size (point)))
+		      (end-of-line)
+		      (point))
+		  nil))
 	  (while (re-search-forward url-regex bound t)
 	    (setq overlay (mew-overlay-make (match-beginning 0) (match-end 0)))
 	    (mew-overlay-put overlay 'face mew-highlight-url-face)
---
根本 篤志 (Atsushi Nemoto)
E-Mail: anemo at example.com (Home)
E-Mail: nemoto at example.com (Office)