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

[SAKAI Kiyotaka]

>> In article <19971106132653H.ksakai at example.com>, SAKAI Kiyotaka <ksakai at example.com> writes:

> S-C-l で rehighlight する、という仕様でいいと思います。

> draft buffer で rehighlight したいのは、draft buffer 内で cut & paste 
> したものだけとは限りませんし。

この仕様を実現するためのパッチです。キーは C-l に割り当ててあります。
(recenter も同時に行います。)
-- 
酒井 清隆 (E-mail: ksakai at example.com)


Index: mew-draft.el
===================================================================
RCS file: /home/cvsroot/mew-1.93b1/mew-draft.el,v
retrieving revision 1.2
diff -u -r1.2 mew-draft.el
--- mew-draft.el	1997/11/06 04:52:57	1.2
+++ mew-draft.el	1997/11/06 05:03:34
@@ -223,6 +223,7 @@
   (define-key mew-draft-header-map "\C-c\t"   'mew-draft-circular-comp)
   (define-key mew-draft-header-map "\C-c\C-d" 'mew-refile-delete-alias)
   (define-key mew-draft-header-map "\C-c\C-r" 'mew-refile-add-alias)
+  (define-key mew-draft-header-map "\C-l"     'mew-draft-rehighlight)
   (if mew-use-bbdb
       (define-key mew-draft-header-map "\e\t" 'bbdb-complete-name))
   )
@@ -232,6 +233,7 @@
   (setq mew-draft-body-map (make-sparse-keymap))
   (define-key mew-draft-body-map "\t"     'tab-to-tab-stop)
   (define-key mew-draft-body-map "\C-c\t" 'mew-draft-insert-signature)
+  (define-key mew-draft-body-map "\C-l"   'mew-draft-rehighlight)
   )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -1062,5 +1064,13 @@
   (interactive)
   (mew-frwlet mew-cs-noconv mew-cs-draft
     (save-buffer)))
+
+(defun mew-draft-rehighlight (arg)
+  (interactive "P")
+  (save-excursion
+    (mew-highlight-header-region
+     (point-min) (marker-position mew-draft-buffer-header))
+    (mew-highlight-body))
+  (recenter arg))
 
 (provide 'mew-draft)