[Mew-dist 05222] Re: mew-end-of-part-string on the top

[Kazu Yamamoto ( 山本和彦 )]

From: Hideyuki SHIRAI <Shirai at example.com>
Subject: [Mew-dist 05220] Re: mew-end-of-part-string on the top
Date: Tue, 30 Jun 1998 13:20:46 +0900

> Emacs20.2では、こんなふうに『改ページ』が入ると
> 
> mew-end-of-message-string の表示が乱れるようです。

すみません。

--かず

Index: mew-summary.el
===================================================================
RCS file: /usr/local/cvsroot/Mew/mew/mew-summary.el,v
retrieving revision 1.69
diff -c -r1.69 mew-summary.el
*** mew-summary.el	1998/06/29 21:17:20	1.69
--- mew-summary.el	1998/06/30 05:05:04
***************
*** 704,724 ****
       (or cache (mew-cache-hit ofld-msg))))) ;; return value
  
  (defun mew-message-set-end-of ()
!   (save-excursion
!     (let ((buffer-read-only nil))
!       (goto-char (point-max))
!       (if (not (bolp)) (insert "\n"))
!       (setq overlay-arrow-string nil)
!       (if (or mew-end-of-message-string mew-end-of-part-string)
! 	  (progn
! 	    (or overlay-arrow-position
! 		(setq overlay-arrow-position (make-marker)))
! 	    (set-marker overlay-arrow-position (point))
! 	    (if (mew-part-p)
! 		(if (mew-summary-end-of-message-p)
! 		    (setq overlay-arrow-string mew-end-of-message-string)
! 		  (setq overlay-arrow-string mew-end-of-part-string))
! 	      (setq overlay-arrow-string mew-end-of-message-string)))))))
  
  (defun mew-summary-display-message (fld msg buf &optional analysis nodisplay)
    ;; message buffer
--- 704,726 ----
       (or cache (mew-cache-hit ofld-msg))))) ;; return value
  
  (defun mew-message-set-end-of ()
!   (let ((buffer-read-only nil))
!     (save-restriction
!       (widen)
!       (save-excursion
! 	(goto-char (point-max))
! 	(if (not (bolp)) (insert "\n"))
! 	(setq overlay-arrow-string nil)
! 	(if (or mew-end-of-message-string mew-end-of-part-string)
! 	    (progn
! 	      (or overlay-arrow-position
! 		  (setq overlay-arrow-position (make-marker)))
! 	      (set-marker overlay-arrow-position (point))
! 	      (if (mew-part-p)
! 		  (if (mew-summary-end-of-message-p)
! 		      (setq overlay-arrow-string mew-end-of-message-string)
! 		    (setq overlay-arrow-string mew-end-of-part-string))
! 		(setq overlay-arrow-string mew-end-of-message-string))))))))
  
  (defun mew-summary-display-message (fld msg buf &optional analysis nodisplay)
    ;; message buffer