[Mew-dist 2757] Re: Mew 1.92: mew-opt-highlight-header should be t ?

[SAKAI Kiyotaka]

>> In article <19971025175139G.matusita at example.com>, Makoto MATSUSHITA (まつしたまこと) <matusita at example.com> writes:

> mew-opt-highlight-header という変数のコメントや，また texinfo の情報を
> 参照する限り，この変数を触ることによって message/draft mode における 
> header の色付けを禁止することができると思うのですが，実際に code を見
> るとこの変数では制御できないような気がします(mew-highlight.el 中で 
> defvar はされているが，これを参照する人が誰もいない)．

このパッチでいいと思います。

# indent の変更はおまかせします。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


Index: mew-highlight.el
===================================================================
RCS file: /home/cvsroot/mew-1.92/mew-highlight.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew-highlight.el
--- mew-highlight.el	1997/10/27 01:01:57	1.1.1.1
+++ mew-highlight.el	1997/10/27 09:08:21
@@ -219,6 +219,7 @@
 (defun mew-highlight-header-region (beg end)
   "A function to highligh header in Message and Draft mode."
   (interactive "r")
+  (if mew-opt-highlight-header
   (save-excursion
     (save-restriction
       (narrow-to-region beg end)
@@ -239,7 +240,7 @@
 		(while (looking-at "[ \t]+") (forward-line))
 		(setq end2 (1- (point)))
 		(put-text-property beg2 end2 'face (nth 2 assoc)))
-	    (while (looking-at "[ \t]") (forward-line))))))))
+	    (while (looking-at "[ \t]") (forward-line)))))))))
 
 ;;
 ;; X-Face: