X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fmm-decode.el;h=8076b2ea06db2a80093d49f25df560db1636fefe;hb=789c31bee0f2558e907a9d174afae38fc44092d6;hp=0484d8a01521da0a5696a082057892605b5dc7ec;hpb=e956dc630148097fcc7d6448d0d249e9c5fc8c87;p=gnus

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 0484d8a01..8076b2ea0 100644
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -29,7 +29,6 @@
 
 (require 'mail-parse)
 (require 'mm-bodies)
-(require 'mm-archive)
 (eval-when-compile (require 'cl)
 		   (require 'term))
 
@@ -42,6 +41,10 @@
 (autoload 'mm-extern-cache-contents "mm-extern")
 (autoload 'mm-insert-inline "mm-view")
 
+(autoload 'mm-archive-decoders "mm-archive")
+(autoload 'mm-archive-dissect-and-inline "mm-archive")
+(autoload 'mm-dissect-archive "mm-archive")
+
 (defvar gnus-current-window-configuration)
 
 (add-hook 'gnus-exit-gnus-hook 'mm-destroy-postponed-undisplay-list)
@@ -574,7 +577,9 @@ Postpone undisplaying of viewers for types in
 (autoload 'message-fetch-field "message")
 
 (defun mm-dissect-buffer (&optional no-strict-mime loose-mime from)
-  "Dissect the current buffer and return a list of MIME handles."
+  "Dissect the current buffer and return a list of MIME handles.
+If NO-STRICT-MIME, don't require the message to have a
+MIME-Version header before proceeding."
   (save-excursion
     (let (ct ctl type subtype cte cd description id result)
       (save-restriction
@@ -672,7 +677,7 @@ Postpone undisplaying of viewers for types in
     (let ((handle
 	   (mm-make-handle
 	    (mm-copy-to-buffer) ctl cte nil cdl description nil id))
-	  (decoder (assoc (car ctl) mm-archive-decoders)))
+	  (decoder (assoc (car ctl) (mm-archive-decoders))))
       (if (and decoder
 	       ;; Do automatic decoding
 	       (cadr decoder)