[Mew-dist 15905] patch for b97

[Kazu Yamamoto ( 山本和彦 )]

b97 on Emacs 20.7 でメッセージバッファのスクロールが遅い、"x" が遅い
などの症状が出ている人は、以下のパッチを当てて下さい。

mew-make-postfix-invisible を Emacs 21 でも動かしつつ、ロジックを元に
戻しました。

Emacs 20 のバグなのか、Emacs 21 のバグなのか、はたまた仕様なのかよく分
らないや。

mew-summary-hl は無罪だと思います。

--かず

Index: mew-env.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-env.el,v
retrieving revision 1.99
diff -c -r1.99 mew-env.el
*** mew-env.el	2001/01/11 10:55:21	1.99
--- mew-env.el	2001/01/15 03:33:59
***************
*** 172,183 ****
    (require 'mew-md5)
    ;;
    (defsubst mew-make-postfix-invisible (window window-start)
!     (let ((inhibit-point-motion-hooks t))
        (save-excursion
  	(goto-char window-start)
  	(mew-elet
! 	 (while (search-forward "\r" (window-end window t) t)
! 	   ;; window-end should be called here.
  	   (put-text-property (match-beginning 0)
  			      (progn (end-of-line) (point))
  			      'invisible t)))
--- 172,184 ----
    (require 'mew-md5)
    ;;
    (defsubst mew-make-postfix-invisible (window window-start)
!     (let ((inhibit-point-motion-hooks t)
! 	  (end (window-end window t)))
        (save-excursion
  	(goto-char window-start)
  	(mew-elet
! 	 (while (and (<= (point) end) ;; xxx < or <=?
! 		     (search-forward "\r" end t))
  	   (put-text-property (match-beginning 0)
  			      (progn (end-of-line) (point))
  			      'invisible t)))