[Mew-dist 17177] Re: wv

[Kazu Yamamoto ( 山本和彦 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [Mew-dist 17170] Re: wv

> この方法も残したいので、『汎用的な枠組み』の方がありがたいです。

えーと、現在以下のようになっています。

mew-prog-* が
		SPC			C-cC-e
'symbol：	symbolを呼び出す	何もしない
'(sym1 sym2)：	sym1 を呼び出す		sym2 を呼び出す
("str" ....)：	PROGROM と表示		"str" を呼び出す

デフォルトは、

(defvar mew-prog-html            '(mew-mime-text/html mew-mime-text/html-ext))
(defvar mew-prog-text/html         'mew-mime-text/html-w3m) ;; See w3m.el
(defvar mew-prog-text/html-ext     "netscape")
(defvar mew-prog-text/html-ext-arg '("-remote" "openFile(%s)")
  "%s will be replaced with a file name.")

となっていますので、SPC で w3m、C-cC-e で netscap が呼び出されます。

arg-hack とかはなくなり、すっきりしました。

--かず

P.S.

mew-mime-text/html-w3m は以下のようにして下さい。ローカル変数が本当に
必要なのかは検証していません。

(defun mew-mime-text/html-w3m (begin end)
  "View Text/Html contents with w3m rendering output."
  (mew-elet
   (let ((file (format "%s.html" (mew-make-temp-name)))
	 (w3m-display-inline-image mew-w3m-auto-insert-image)
	 w3m-force-redisplay	;; don't redraw
	 charset wcs)
     (setq charset (mew-syntax-get-param params "charset"))
     (if charset 
	 (setq wcs (mew-charset-to-cs charset))
       (setq wcs mew-cs-text-for-write))
     (mew-frwlet
      mew-cs-dummy wcs
      (w3m-region begin end)))))