[Mew-dist 1643] viewer program

[YAMAMOTO Toru]

山本＠日本電気通信システムです。

mew の問題ではなく、私の elisp の理解不足の問題なのですが、
よろしければ御教示頂けないでしょうか。お願い致します。

環境は、
    SunOS e1hs01 4.1.4-JL 1 sun4m
    xemacs-20.3-b18
    mew-1.88
    ImageMagick-3.8.8
です。

別に $25 を支払うのが嫌なわけではないのですが、"xv" ではなく
ImageMagic の "display" をインストールして使っています。

で、いつもは mew.el と mew-mime.el の "xv" を "display" に変換して
からインストールしていたのですが、ふと「.emacs で切替えようかな？」
と思いまして、

mew-1.88 に対してつぎのパートにつけたパッチをつくって
.emacs に
(setq mew-viewer-prog  "display")

と記述したあとで、tiff ファイルを表示させようとしても表示されません。
この時の CT: CTE: は以下の様になっています。

Content-Type: Image/Tiff
Content-Transfer-Encoding: base64
Content-Description: sample.tif

ちなみに、"xv" -> "display" に置き換えただけの場合はちゃんと表示されます。

-------------- next part --------------
--- mew.el.org	Thu Aug 21 20:06:13 1997
+++ mew.el	Thu Aug 21 20:06:49 1997
@@ -234,11 +234,17 @@
 Otherwise, not displayed.")
 
 ;;
+;; viewer program
+;;
+
+(defvar mew-viewer-prog "xv")
+
+;;
 ;; X face
 ;;
 ;; Use highlight-headers-hack-x-face-p on XEmacs instead.
 (defvar mew-x-face-filter '("uncompface" "ikon2xbm"))
-(defvar mew-x-face-prog "xv")
+(defvar mew-x-face-prog mew-viewer-prog)
 (defvar mew-x-face-args nil)
 (defvar mew-x-face-file "~/.xface"
   "*If non-nil and the file exists, X-Face: fields is inserted.")
--- mew-mime.el.org	Thu Aug 21 19:08:58 1997
+++ mew-mime.el	Thu Aug 21 20:07:59 1997
@@ -74,7 +74,7 @@
     "base64"
     (if (and mew-xemacs-p (featurep 'gif))
 	'(mew-mime-image/gif () nil)
-      '("xv" ("-geometry" "+0+0") t))
+      '(mew-viewer-prog ("-geometry" "+0+0") t))
     (if (boundp 'mew-icon-image) mew-icon-image)
     )
    (list
@@ -83,35 +83,35 @@
     "base64"
     (if (and mew-xemacs-p (featurep 'jpeg))
 	'(mew-mime-image/jpeg () nil)
-      '("xv" ("-geometry" "+0+0") t))
+      '(mew-viewer-prog ("-geometry" "+0+0") t))
     (if (boundp 'mew-icon-image) mew-icon-image)
     )
    (list
     "image/x-xwd"
     "\\.xwd$"
     "base64"
-    '("xv" ("-geometry" "+0+0") t)
+    '(mew-viewer-prog ("-geometry" "+0+0") t)
     (if (boundp 'mew-icon-image) mew-icon-image)
     )
    (list
     "image/x-xbm"
     "\\.xbm$"
     "base64"
-    '("xv" ("-geometry" "+0+0") t)
+    '(mew-viewer-prog ("-geometry" "+0+0") t)
     (if (boundp 'mew-icon-image) mew-icon-image)
     )
    (list
     "image/x-bmp"
     "\\.bmp$"
     "base64"
-    '("xv" ("-geometry" "+0+0") t)
+    '(mew-viewer-prog ("-geometry" "+0+0") t)
     (if (boundp 'mew-icon-image) mew-icon-image)
     )
    (list
     "image/.*"
     "^$"
     "base64"
-    '("xv" ("-geometry" "+0+0") t)
+    '(mew-viewer-prog ("-geometry" "+0+0") t)
     (if (boundp 'mew-icon-image) mew-icon-image)
     )
    (list