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

[Kazu Yamamoto ( 山本和彦 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [Mew-dist 17667] (run-hooks 'mew-thread-display-hook) within original folder?

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

これで直りますか？ anon cvs で update したバージョンに当たります。

--かず


Index: mew-summary.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-summary.el,v
retrieving revision 1.46
diff -c -r1.46 mew-summary.el
*** mew-summary.el	2001/05/29 14:46:52	1.46
--- mew-summary.el	2001/06/01 05:50:00
***************
*** 966,971 ****
--- 966,972 ----
  	     (message "MIME decoding error: %s" (mew-xinfo-get-decode-err)))
  	 (mew-minfo-set-summary vfld)
  	 (select-window win)
+ 	 (set-buffer sumbuf)
  	 ;; summary buffer
  	 (if lines (forward-line lines))
  	 (mew-summary-cursor-postscript))))))
Index: mew-thread.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-thread.el,v
retrieving revision 1.8
diff -c -r1.8 mew-thread.el
*** mew-thread.el	2001/05/28 03:41:55	1.8
--- mew-thread.el	2001/06/01 05:50:00
***************
*** 380,387 ****
  	 (if disp-msg
  	     (mew-summary-jump-message disp-msg)
  	   (goto-char (point-max)))
- 	 (mew-summary-thread-move-cursor)
  	 (mew-summary-display nil)
  	 (message "Displaying thread ... done")
  	 (run-hooks 'mew-thread-display-hook)
  	 (when (mew-debug 'thread)
--- 380,387 ----
  	 (if disp-msg
  	     (mew-summary-jump-message disp-msg)
  	   (goto-char (point-max)))
  	 (mew-summary-display nil)
+ 	 (mew-summary-thread-move-cursor)
  	 (message "Displaying thread ... done")
  	 (run-hooks 'mew-thread-display-hook)
  	 (when (mew-debug 'thread)