[mew-dist 19488] Re: HTML/XML

[Hideyuki SHIRAI ( 白井秀行 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [mew-dist 19483] Re: HTML/XML
Message-ID: <20011024.200829.123554649.shirai at example.com>
Date: Wed, 24 Oct 2001 20:08:29 +0900 (JST)

白井> ぼくもそう思います。

もう一つついでに、これもやらないといけないのでした。

# 帰りの電車で思い出した。

けど、

(if (mew-ct-linebasep ct)
    (if (mew-ct-textp ct)
	(...)
      (setq rcs mew-cs-text-for-write))) <= これ

がこのままで良いのか、良くわかっていません。
Application/Postscript は大丈夫だと思う(本当かなぁ)のですが、
Message/Rfc822 の方が自信がないです。

--  
白井秀行＠勉強になります。みなさま。

*** mew-const.el.orig	Fri Oct 12 17:39:00 2001
--- mew-const.el	Wed Oct 24 22:29:16 2001
***************
*** 79,84 ****
--- 79,85 ----
  
  (defconst mew-ct-txt "Text/Plain")
  (defconst mew-ct-htm "Text/Html")
+ (defconst mew-ct-xml "Text/Xml")
  (defconst mew-ct-msg "Message/Rfc822")
  (defconst mew-ct-ext "Message/External-Body")
  (defconst mew-ct-sts "Message/Delivery-Status")

*** mew-summary.el.orig	Wed Oct 24 19:49:56 2001
--- mew-summary.el	Wed Oct 24 22:29:04 2001
***************
*** 1222,1236 ****
  		;; NEVER use call-process-region for privacy reasons
  		(if (mew-ct-linebasep ct)
  		    (if (mew-ct-textp ct)
! 			(if (string= mew-ct-htm ct)
! 			    (setq rcs (mew-text/html-detect-cs begin end ctl))
  			  (setq rcs (mew-charset-to-cs
  				     (mew-syntax-get-param ctl "charset")))
  			  (unless rcs
  			    (setq rcs
  				  (if mew-decode-broken
  				      (mew-charset-to-cs (mew-charset-guess-region begin end))
! 				    mew-cs-text-for-write))))
  		      (setq rcs mew-cs-text-for-write))
  		  (setq rcs mew-cs-binary))
  		(mew-frwlet
--- 1222,1240 ----
  		;; NEVER use call-process-region for privacy reasons
  		(if (mew-ct-linebasep ct)
  		    (if (mew-ct-textp ct)
! 			(cond
! 			 ((string= mew-ct-htm ct)
! 			  (setq rcs (mew-text/html-detect-cs begin end ctl)))
! 			 ((string= mew-ct-xml ct)
! 			  (setq rcs (mew-text/xml-detect-cs begin end ctl)))
! 			 (t
  			  (setq rcs (mew-charset-to-cs
  				     (mew-syntax-get-param ctl "charset")))
  			  (unless rcs
  			    (setq rcs
  				  (if mew-decode-broken
  				      (mew-charset-to-cs (mew-charset-guess-region begin end))
! 				    mew-cs-text-for-write)))))
  		      (setq rcs mew-cs-text-for-write))
  		  (setq rcs mew-cs-binary))
  		(mew-frwlet