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

[Kazu Yamamoto ( 山本和彦 )]

From: Shuichi Kitaguchi <shuuic-k at example.com>
Subject: [Mew-dist 04175] Re: a path to display the first part
Date: Thu, 12 Mar 1998 21:22:21 +0900

> text/plain なファイルを添付しただけのメールだと、最初にある
> 添付されたファイルが第 1 パート目として From: や Subject: と
> 一緒に表示されてしまいます。というわけで、
> 
> ・前の形式と切り換えることができるようにする。
> ・CDP: があれば前の表示形式にする。
> 
> のどちらかの方が嬉しいかな、と思います。

CDP: + filename の場合には本文として引用するのではなく、ファイルとして
表示するようにしました。以下その他のバグもついでに取れるパッチです。お
試しあれ。

--かず
-------------- next part --------------
Index: mew-syntax.el
===================================================================
RCS file: /usr/local/cvsroot/mew/mew-syntax.el,v
retrieving revision 1.15
retrieving revision 1.17
diff -c -r1.15 -r1.17
*** mew-syntax.el	1997/03/10 20:42:48	1.15
--- mew-syntax.el	1998/03/23 08:52:00	1.17
***************
*** 498,503 ****
--- 498,504 ----
  (defun mew-syntax-multipart (msg syntax dec part func body)
    (let* ((ct (car (mew-syntax-get-ct syntax)))
  	 (cd (or (mew-syntax-get-cd syntax) ""))
+ 	 (cdp (mew-syntax-get-cdp syntax))
  	 (cnt mew-syntax-magic)
  	 (num 1)
  	 (len (length syntax)))
***************
*** 512,520 ****
  				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
--- 513,525 ----
  				ct cd
  				(mew-attr-get-icon (mew-attr-by-ct ct)) func))
      (while (< cnt len)
!       (if (and dec
! 	       ;; the first part under message
! 	       body (equal cnt mew-syntax-magic)
! 	       ;; CT: is text/plain but not attached file.
  	       (equal (capitalize (car (mew-syntax-get-ct (aref syntax cnt))))
! 		      mew-ct-txt)
! 	       (or (null cdp) (null (mew-syntax-get-member cdp "filename"))))
  	  ()
  	(mew-syntax-singlepart
  	 msg
***************
*** 597,603 ****
      (if (string= (capitalize mew-ct-txt) ct)
  	(if char
  	    (setq ct (concat ct "(" char ")"))
! 	  (setq ct (concat ct "(guess)"))))
  
      (if (null privacy)
  	(if (null cte)
--- 602,610 ----
      (if (string= (capitalize mew-ct-txt) ct)
  	(if char
  	    (setq ct (concat ct "(" char ")"))
! 	  (if dec
! 	      (setq ct (concat ct "(guess)")))
! 	  (setq ct (concat ct "(us-ascii)"))))
  
      (if (null privacy)
  	(if (null cte)