[Mew-dist 2890] Re: message body に色を付けるには？

[SAKAI Kiyotaka]

>> In article <19971104162110Y.togashi at example.com>, Nobuaki TOGASHI (冨樫伸明) <togashi at example.com> writes:

> Draft モードは、色付けされないようです。残念至極…。

では、Draft mode で色付けするためのパッチです。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


Index: mew-draft.el
===================================================================
RCS file: /home/cvsroot/mew-1.93b1/mew-draft.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew-draft.el
--- mew-draft.el	1997/11/04 12:35:41	1.1.1.1
+++ mew-draft.el	1997/11/04 12:44:19
@@ -798,6 +798,7 @@
       (run-hooks 'mew-cite-hook))
      (t (mew-cite-original arg))
      )
+    (mew-highlight-body)
     ))
 
 (defun mew-cite-original (&optional arg)
Index: mew-highlight.el
===================================================================
RCS file: /home/cvsroot/mew-1.93b1/mew-highlight.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew-highlight.el
--- mew-highlight.el	1997/11/04 12:35:41	1.1.1.1
+++ mew-highlight.el	1997/11/04 12:44:46
@@ -290,7 +290,7 @@
 		beg1 end1 overlay assoc key)
 	    (goto-char (point-min))
 	    (and (equal mew-message-citation 'header)
-		 (search-forward "\n\n" nil t)
+		 (re-search-forward "\n-*\n" nil t)
 		 (narrow-to-region (point) (point-max)))
 	    (while (and (not (eobp)) (< line mew-highlight-body-max-line))
 	      (if (looking-at mew-highlight-body-keywords-regex)