X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fmm-archive.el;h=a349650adb7f4b4811f5b97c944cfd13e3a4edcc;hb=1c2ed0ce5abe2181e51f777171f8cd40a547e5a9;hp=5ca6616abb58f60858ac344c9275ebfd2d9b50e6;hpb=cc6f03bae1277e4cc0c6d59ef4aa8441d9bffc29;p=gnus

diff --git a/lisp/mm-archive.el b/lisp/mm-archive.el
index 5ca6616ab..a349650ad 100644
--- a/lisp/mm-archive.el
+++ b/lisp/mm-archive.el
@@ -1,6 +1,6 @@
 ;;; mm-archive.el --- Functions for parsing archive files as MIME
 
-;; Copyright (C) 2012  Free Software Foundation, Inc.
+;; Copyright (C) 2012-2014 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; This file is part of GNU Emacs.
@@ -22,12 +22,19 @@
 
 ;;; Code:
 
+(require 'mm-decode)
+(eval-when-compile
+  (autoload 'gnus-recursive-directory-files "gnus-util")
+  (autoload 'mailcap-extension-to-mime "mailcap"))
+
 (defvar mm-archive-decoders
   '(("application/ms-tnef" t "tnef" "-f" "-" "-C")
     ("application/zip" nil "unzip" "-j" "-x" "%f" "-d")
     ("application/x-gtar-compressed" nil "tar" "xzf" "-" "-C")
     ("application/x-tar" nil "tar" "xf" "-" "-C")))
 
+(defun mm-archive-decoders () mm-archive-decoders)
+
 (defun mm-dissect-archive (handle)
   (let ((decoder (cddr (assoc (car (mm-handle-type handle))
 			      mm-archive-decoders)))