[Mew-dist 03486] Text/Html (was Re: 始めてまして。 )

[OKUNISHI Fujikazu]

>>> "Fri, 23 Jan 1998 16:38:23 +0900" に発信されたメッセージ
>>> [Mew-dist : No.03484] にて
>>> "太" == Hiromu Ota (Hiro) <hiro at example.com> が仰るには..

XEmacs は使ってないので 1. はパスするとして、

太> ２、MEWに新しいCTを追加したい。
太> Text/Htmlと言う新しいラベルを追加して、その時は、外部コマンドで
太> HTML fileを読みたいのですが。どうしたらいいのでしょうか？

Text/* はバッファに表示するのがポリシーだろうと思って流してませんでし
た。以下は今後ともマージされる可能性は低いという前提でお試しください。

1. 以下の mew-summary.el へのパッチを当ててバイトコンパイルしなおす。
   Text/* の場合に *internal* で書き出すのを防ぐためです。

2. あと C-T: を拡張する必要があるので mew-init-hook でやればいいと思い
   ます。こんな↓かんじでしょうか?

;; このへんは mew-os2.el でやってるので以下は確認してません。もし動か
;; なかったら mew-os2 を真似て mew-unix.el を改造するのが確実です。

(add-hook 'mew-init-hook
 (lambda()
  (if (not (boundp 'mew-prog-html))
    (progn
     ;; X だったら async は nil でもいいのかな?
     (setq mew-prog-html '("＊VIEWER＊" ("＊GEOMETRYがなんたら＊" "他") t))
     (setq mew-mime-content-type (append '(
           ("text/html"
	    "\\.htm?l$"
	    nil
	    mew-prog-html
	    mew-icon-text)
       ) mew-mime-content-type ))))))

こうしててもやっぱりバッファで見たくなったら C-[TAB] で従来通りです。

--ふ
-------------- next part --------------
--- mew-summary.el.orig	Fri Dec 26 13:32:28 1997
+++ mew-summary.el	Sun Jan 25 13:15:08 1998
@@ -914,8 +914,11 @@
 	      (setq file (make-temp-name mew-temp-file))
 	      (set-buffer (mew-current-get 'cache))
 	      ;; NEVER use call-process-region for privary reasons
-	      (mew-flet
-	       (write-region begin end file nil 'no-msg))
+	      (if (mew-member-case-equal ct mew-mime-content-type-text-list)
+	        (mew-frwlet mew-cs-noconv mew-cs-outfile
+	         (write-region begin end file nil 'no-msg))
+	        (mew-flet
+	         (write-region begin end file nil 'no-msg)) )
 	      (if async
 		  (mew-mime-start-process program options file)
 		(mew-mime-call-process program options file))