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.
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))))