* mm-decode.el (mm-dissect-singlepart): Check that the decoder exists.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f4201a7..eebac32 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-01-31  Lars Ingebrigtsen  <larsi@gnus.org>
 
+       * mm-decode.el (mm-dissect-singlepart): Check that the decoder exists.
+
        * mm-archive.el: New file.
 
        * mm-decode.el (mm-dissect-singlepart): Use it to decode ms-tnef files.

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index a66a9c5..e6407cf 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -656,8 +656,10 @@ Postpone undisplaying of viewers for types in
              t))
     (let ((handle
           (mm-make-handle
-           (mm-copy-to-buffer) ctl cte nil cdl description nil id)))
-      (if (member (car ctl) mm-archive-decoders)
+           (mm-copy-to-buffer) ctl cte nil cdl description nil id))
+         (decoder (assoc (car ctl) mm-archive-decoders)))
+      (if (and decoder
+              (executable-find (cadr decoder)))
          (mm-dissect-archive handle)
        handle))))