(mm-dissection-list): Remove.

(mm-dissect-singlepart): Don't push to mm-dissection-list, it's
only used in mm-remove-all-parts.
(mm-remove-all-parts): Remove it, it's never called.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f3e080c..f1c7875 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2003-01-26  Jesper Harder  <harder@ifa.au.dk>
+
+       * mm-decode.el (mm-dissection-list): Remove.
+       (mm-dissect-singlepart): Don't push to mm-dissection-list, it's
+       only used in mm-remove-all-parts.
+       (mm-remove-all-parts): Remove it, it's never called.
+
 2003-01-25  Simon Josefsson  <jas@extundo.com>
 
        * gnus-group.el (gnus-group-make-group): Report errors.

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 41da384..a58611a 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -355,7 +355,6 @@ If not set, `default-directory' will be used."
 
 ;;; Internal variables.
 
-(defvar mm-dissection-list nil)
 (defvar mm-last-shell-command "")
 (defvar mm-content-id-alist nil)
 (defvar mm-postponed-undisplay-list nil)
@@ -552,16 +551,8 @@ for types in mm-keep-viewer-alive-types."
            (if (equal "text/plain" (car ctl))
                (assoc 'format ctl)
              t))
-    (let ((res (mm-make-handle
-               (mm-copy-to-buffer) ctl cte nil cdl description nil id)))
-      (push (car res) mm-dissection-list)
-      res)))
-
-(defun mm-remove-all-parts ()
-  "Remove all MIME handles."
-  (interactive)
-  (mapcar 'mm-remove-part mm-dissection-list)
-  (setq mm-dissection-list nil))
+    (mm-make-handle
+     (mm-copy-to-buffer) ctl cte nil cdl description nil id)))
 
 (defun mm-dissect-multipart (ctl)
   (goto-char (point-min))