[mew-dist 20999] mew-summary-x-face

[Tatsuya Kinoshita]

`C-c C-x'(mew-summary-x-face)で使用するコマンドについてオプション
も指定できるようにするパッチを作りました。

デフォルトでは、uncompface, ikon2xbmという二つのコマンドが使われ
ますが、Debianではikon2xbmが用意されていません。その代わり、Debian
のuncompfaceでは-Xスイッチを指定することでxbmを直接扱えます。

この場合、たとえば次のように設定することで、ikon2xbmなしでも
mew-summary-x-faceが使えるようになります。

  (setq mew-x-face-filter `((,mew-prog-uncompface "-X"))) ;; require compface
  (setq mew-x-face-prog "display") ;; require imagemagick

P.S.

mew-x-face-prog等のデフォルト値には、できればフリーソフトウェア
を指定してほしい。("xv" -> "display", "acroread" -> "xpdf",
"mpeg_play" -> "xine", "netscape" -> "mozilla", "pgp" -> "gpg")

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

diff -F (def -ur mew.orig/mew-summary4.el mew/mew-summary4.el
--- mew.orig/mew-summary4.el	Thu May 23 22:09:42 2002
+++ mew/mew-summary4.el	Sat Jun  1 08:08:49 2002
@@ -458,7 +458,7 @@ (defun mew-summary-x-face ()
   "Display xface."
   (interactive)
   (mew-summary-msg
-   (let ((filters mew-x-face-filter) file xface buf)
+   (let ((filters mew-x-face-filter) filter filter-arg file xface buf)
      (save-excursion
        (set-buffer (mew-buffer-message))
        (when (setq xface (mew-header-get-value mew-x-face:))
@@ -467,11 +467,15 @@ (defun mew-summary-x-face ()
 	 (mew-erase-buffer)
 	 (insert xface)
 	 (while filters
+	   (setq filter (car filters))
+	   (if (stringp filter)
+	       (setq filter-arg nil)
+	     (setq filter-arg (cdr filter))
+	     (setq filter (car filter)))
 	   ;; call-process-region is OK...
 	   (mew-plet
-	    (call-process-region (point-min) (point-max) 
-				 (car filters)
-				 'delete t nil))
+	    (apply (function call-process-region)
+		   (point-min) (point-max) filter 'delete t nil filter-arg))
 	   (setq filters (cdr filters)))
 	 (setq file (mew-make-temp-name))
 	 ;; NEVER use call-process-region for privary reasons