[Mew-dist 04138] a path to display the first part

[Kazu Yamamoto ( 山本和彦 )]

Here is a patch to display the first part with its header at the same
time in Summary mode. I love this.

--Kazu

diff -cr ../tmp/mew-1.93b23/mew-mime.el mew/mew-mime.el
*** ../tmp/mew-1.93b23/mew-mime.el	Sat Feb 21 21:46:14 1998
--- mew/mew-mime.el	Tue Mar 11 03:15:35 1997
***************
*** 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,203 ----
    (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 (car (mew-syntax-get-ct (mew-syntax-get-part body)))
! 		  mew-ct-txt))
!       (mew-summary-display-part part "1" 'non-erase)) ;; nil is single
!      )
      ;; display-part sets citation noheader
      (setq mew-message-citation 'header)
      (set-buffer-modified-p nil) ;; xxx
diff -cr ../tmp/mew-1.93b23/mew-syntax.el mew/mew-syntax.el
*** ../tmp/mew-1.93b23/mew-syntax.el	Sun Mar  1 20:53:39 1998
--- mew/mew-syntax.el	Tue Mar 11 03:24:16 1997
***************
*** 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,527 ----
  				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 (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