[mew-dist 29080] mew-image-alist 非対応の画像フォーマットでエラー

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

リリース前に気づけば良かったのですが、mew-image-alist で対応して
いないのだけど、Emacs が表示出来るような画像データでエラーになり
ます。(funcall nil)。

# 例えば、Meadow + MS-BMP

diff -ub でとったパッチです。インデントしてくださいね。


Index: mew-gemacs.el
===================================================================
RCS file: /cvsmew/mew/mew-gemacs.el,v
retrieving revision 1.55
diff -u -u -b -r1.55 mew-gemacs.el
--- mew-gemacs.el	4 Jun 2009 00:21:13 -0000	1.55
+++ mew-gemacs.el	27 Nov 2009 09:01:00 -0000
@@ -277,6 +277,7 @@
       (mew-plet
        (insert-buffer-substring cache begin end)
        (mew-set-buffer-multibyte nil)
+       (when (and prog prog2 func-size)
        (goto-char (point-min))
        (setq image-size (funcall func-size))
        (setq image-width (car image-size))
@@ -302,7 +303,7 @@
 	     (call-process-region (point-min) (point-max) prog2
 				  t '(t nil) nil)
 	   (setq format 'pbm))
-	 (message "Resizing image...done"))
+	   (message "Resizing image...done")))
        (setq image (mew-buffer-substring (point-min) (point-max)))))
     (mew-elet
      (condition-case nil