[Mew-dist 17667] (run-hooks 'mew-thread-display-hook) within original folder?

[Hideyuki SHIRAI ( 白井秀行 )]

mew-summary-hl.el を使っていて、たまに thread folder で色がつか
ないときがあったので、ず〜〜〜〜と悩んでいたのですが、現象がわかっ
たので報告します。もとはといえばぼくが入れて貰った hook なんです
が ^^;;;

例えば、

(defun hoge ()
  (setq hoge (buffer-name))
  (mew-elet (insert "XXXX\n")))

(add-hook 'mew-thread-display-hook 'hoge)

しておくと、hoge には original folder の名前が入り、"XXXX" もそ
うでした。これにより、mew-thread.el で (run-hooks
'mew-thread-display-hook) するときの current-buffer が orignal
folder であることがわかりました。

現象の再現方法は、orignal folder で、

----------------------
 7028  05/30/2001   3k Tatsuya Kinoshita        [17613] Re: mew-from 
 7029 M05/30/2001   5k KAMEI Ken-ichi           [17614] Re: 進捗 
 7030  05/30/2001   3k KAMEI Ken-ichi           [17615] Re: "to"
 7031  05/30/2001   5k Kazu Yamamoto (山本和彦) [17616] Re: mew-from
 7032 M05/30/2001   4k Tatsuya Kinoshita        [17617] Re: mew-from  <= (*1)
     2  Text/Plain(us-ascii)                                   mew-tats20010530.diff             
 7033  05/30/2001   6k Shuichi KITAGUCHI (北口  [17618] Re: double SMTP fails?
 7034  05/31/2001   3k Kazu Yamamoto (山本和彦) [17619] Re: double SMTP fails?
----------------------
   message buffer
----------------------

(*1) の行にカーソルがある状態で、"tt" したときに 100% 再現出来ま
 した。症状としては run-hook の前に動く、
 
(mew-summary-display nil)

が帰ってくるときに、current-buffer が original folder のままでし
た。

# (mew-summary-jump-message disp-msg) もそうだけど。

このとき、thread folder が下記の様に一行縮むのが原因かもしれない
のですが、根本的な原因は全然わかりません。

----------------------
 7008  05/30/2001   3k ┃　　　　┗Kazu Yamamoto (山本和彦) [17593] Re: auto-det
 7028  05/30/2001   3k ┃　　　　　┗Tatsuya Kinoshita        [17613] Re: mew-from
 7031  05/30/2001   5k ┃　　　　　　┗Kazu Yamamoto (山本和彦) [17616] Re: mew-from
 7032 M05/30/2001   4k ┃　　　　　　　┗Tatsuya Kinoshita        [17617] Re: mew-from
 7041  05/31/2001   3k ┃　　　　　　　　┗Tatsuya Kinoshita        [17626] Re: mew-from 
 7051  05/31/2001   2k ┃　　　　　　　　　┗Kazu Yamamoto (山本和彦) [17637] Re: mew-from 
 7066  05/31/2001   2k ┃　　　　　　　　　　┗Tatsuya Kinoshita        [17651] Re: mew-from 
----------------------

mew-summary-display() を直すべきかもしれないのですが、以下のパッ
チの様にしておけば大丈夫のようです。

## ふと気付くと、このとき mew-summary-thread-move-cursor() も効
## いていなかった。

-- 
白井秀行 (mailto:shirai at example.com)

--- mew-thread.el.~1.72.~	Mon May 28 15:51:54 2001
+++ mew-thread.el	Fri Jun  1 10:54:39 2001
@@ -380,8 +380,9 @@
 	 (if disp-msg
 	     (mew-summary-jump-message disp-msg)
 	   (goto-char (point-max)))
-	 (mew-summary-thread-move-cursor)
 	 (mew-summary-display nil)
+	 (set-buffer vfolder)
+	 (mew-summary-thread-move-cursor)
 	 (message "Displaying thread ... done")
 	 (run-hooks 'mew-thread-display-hook)
 	 (when (mew-debug 'thread)