[Mew-dist 16564] patch for mew-use-highlight-{body,url} (was b107)

[Tatsuya Kinoshita]

In message "[Mew-dist 16561] b107"
Kazu Yamamoto (山本和彦) <kazu at example.com> wrote:

> - 色付け周りを直しました。

mew-use-highlight-{body,url}が効くように修正しました。

-- 
木下達也 (Tatsuya Kinoshita)
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.

 Permission is granted to use, copy, distribute, and/or modify it 
 without restriction.  There is NO WARRANTY.

diff -ur mew-1.95b107/mew-highlight.el mew-1.95b107-tats20010222a/mew-highlight.el
--- mew-1.95b107/mew-highlight.el	Tue Feb 20 15:29:42 2001
+++ mew-1.95b107-tats20010222a/mew-highlight.el	Thu Feb 22 01:54:41 2001
@@ -116,6 +116,7 @@
 	 beg end face key)
     (save-excursion
       (mew-elet
+       (when mew-use-highlight-body
        (goto-char BEG)
        (while (< (point) END)
 	 (when (looking-at mew-highlight-body-keywords-regex)
@@ -125,6 +126,8 @@
 	   (setq face (mew-highlight-body-get-face key))
 	   (if face (put-text-property beg end 'face face)))
 	 (forward-line))
+       )
+       (when mew-use-highlight-url
        (goto-char BEG)
        (while (and (<= (point) END) (re-search-forward url-regex END t))
 	 (setq beg (match-beginning 0))
@@ -132,6 +135,7 @@
 	 (put-text-property beg end 'face mew-highlight-url-face)
 	 (put-text-property
 	  beg end 'mouse-face mew-highlight-url-mouse-face))))))
+  )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;