[Mew-dist 11039] Re: 1.94.1

[Shuichi KITAGUCHI ( 北口修一 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [Mew-dist 11031] Re: 1.94.1
Date: Fri, 22 Oct 1999 07:17:11 +0900

北口です。

> > 1.94.1 からじゃないのですが、いつの間にやら mew-summary-scan-sentinel-hook
> > が save-excursion に包まれてしまっているので、mhc を使っていてカーソルが
> > 今日の日付に飛んでくれなくてちょっと悲しいです([Mew-dist 08551] での変更)。
> あぁ、そういうことがあったのですね。save-excursion の中、という
> より、(set-buffer (process-buffer process)) した buffer にいる間
> に run-hooks してもらいたくて、わざわざ 
> 『[Mew-dist 10636] run-hooks within the summary buffer』
>  で save-excursion の中に入れてもらったのでした。
> 
> # で summary buffer を色付けしているのです。

やっぱり...というわけで、安直な解決法をば。


--
Shuichi Kitaguchi <kit at example.com>

Index: mew-scan.el
===================================================================
RCS file: /usr/local/CVS/mew/mew-scan.el,v
retrieving revision 1.1.1.4
diff -u -r1.1.1.4 mew-scan.el
--- mew-scan.el	1999/10/15 11:39:53	1.1.1.4
+++ mew-scan.el	1999/10/23 09:21:44
@@ -321,7 +321,8 @@
        ((string-match mew-prog-imget prog)
 	(run-hooks 'mew-summary-inc-sentinel-hook))
        ((string-match mew-prog-imls prog)
-	(run-hooks 'mew-summary-scan-sentinel-hook))))))
+	(run-hooks 'mew-summary-scan-sentinel-hook))))
+    (run-hooks 'mew-summary-final-sentinel-hook)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
Index: mew-vars.el
===================================================================
RCS file: /usr/local/CVS/mew/mew-vars.el,v
retrieving revision 1.1.1.4
diff -u -r1.1.1.4 mew-vars.el
--- mew-vars.el	1999/10/15 11:39:53	1.1.1.4
+++ mew-vars.el	1999/10/23 09:22:29
@@ -271,6 +271,8 @@
   "*Hook called when inc finished.")
 (defvar mew-summary-scan-sentinel-hook nil
   "*Hook called when scan finished.")
+(defvar mew-summary-final-sentinel-hook nil
+  "*Hook called when scan/inc finished.")
 (defvar mew-summary-exec-hook nil
   "*Hook called when mew-summary-exec finished.")
 (defvar mew-syntax-format-hook nil

根本的には、Mew が Summary を自前で構築するようになった時に、
Mew 側で色付けするべきなのかな。