[Mew-dist 04142] Re: a path to display the first part

[Kazu Yamamoto ( 山本和彦 )]

Please throw away the old patch. Apply this one, instead.

--Kazu

Index: mew-mime.el
===================================================================
RCS file: /usr/local/cvsroot/mew/mew-mime.el,v
retrieving revision 1.11
diff -c -r1.11 mew-mime.el
*** mew-mime.el	1998/02/21 12:46:14	1.11
--- mew-mime.el	1997/03/10 19:14:38
***************
*** 184,196 ****
    (let* ((hbegin (mew-syntax-get-begin part))
  	 (hend   (mew-syntax-get-end   part))
  	 (cache  (mew-current-get 'cache))
  	 (buffer-read-only nil))
      (insert-buffer-substring cache hbegin hend)
      (mew-decode-syntax-insert-privacy)
      (insert "\n")
      (mew-header-arrange)
!     (if (mew-syntax-singlepart-p (mew-syntax-get-part part))
! 	(mew-summary-display-part part nil 'non-erase)) ;; nil is single
      ;; display-part sets citation noheader
      (setq mew-message-citation 'header)
      (set-buffer-modified-p nil) ;; xxx
--- 184,204 ----
    (let* ((hbegin (mew-syntax-get-begin part))
  	 (hend   (mew-syntax-get-end   part))
  	 (cache  (mew-current-get 'cache))
+ 	 (body   (mew-syntax-get-part part))
  	 (buffer-read-only nil))
      (insert-buffer-substring cache hbegin hend)
      (mew-decode-syntax-insert-privacy)
      (insert "\n")
      (mew-header-arrange)
!     (cond
!      ((mew-syntax-singlepart-p body)
!       (mew-summary-display-part part nil 'non-erase)) ;; nil is single
!      ((and (mew-syntax-multipart-p body)
! 	   (equal (capitalize (car (mew-syntax-get-ct (mew-syntax-get-part body))))
! 		  mew-ct-txt))
!       (mew-summary-display-part part "1" 'non-erase)
!       (mew-current-set 'part nil)) ;; clear part
!      )
      ;; display-part sets citation noheader
      (setq mew-message-citation 'header)
      (set-buffer-modified-p nil) ;; xxx
Index: mew-syntax.el
===================================================================
RCS file: /usr/local/cvsroot/mew/mew-syntax.el,v
retrieving revision 1.14
diff -c -r1.14 mew-syntax.el
*** mew-syntax.el	1998/03/01 11:53:39	1.14
--- mew-syntax.el	1997/03/10 19:07:29
***************
*** 512,524 ****
  				ct cd
  				(mew-attr-get-icon (mew-attr-by-ct ct)) func))
      (while (< cnt len)
!       (mew-syntax-singlepart
!        msg
!        (aref syntax cnt)
!        dec
!        (if part (concat part "." (int-to-string num)) (int-to-string num))
!        func
!        nil)
        (setq cnt (1+ cnt))
        (setq num (1+ num)))
      (if dec 
--- 512,528 ----
  				ct cd
  				(mew-attr-get-icon (mew-attr-by-ct ct)) func))
      (while (< cnt len)
!       (if (and dec (null part) (equal cnt mew-syntax-magic)
! 	       (equal (capitalize (car (mew-syntax-get-ct (aref syntax cnt))))
! 		      mew-ct-txt))
! 	  ()
! 	(mew-syntax-singlepart
! 	 msg
! 	 (aref syntax cnt)
! 	 dec
! 	 (if part (concat part "." (int-to-string num)) (int-to-string num))
! 	 func
! 	 nil))
        (setq cnt (1+ cnt))
        (setq num (1+ num)))
      (if dec