(mm-uu-buttonize-original-text-parts): Remove.

(mm-uu-dissect-text-parts): Revert 2006-01-23 change.

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index 67abcf8..d0c7f86 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -618,13 +618,6 @@ value of `mm-uu-text-plain-type'."
        (setq result (cons "multipart/mixed" (nreverse result))))
       result)))
 
-(defcustom mm-uu-buttonize-original-text-parts nil
-  "Non-nil means that the originals of dissected parts get buttons.
-This variable is overridden by `gnus-inhibit-mime-unbuttonizing'."
-  :type 'boolean
-  :version "23.0"
-  :group 'gnus-article-mime)
-
 (defun mm-uu-dissect-text-parts (handle)
   "Dissect text parts and put uu handles into HANDLE.
 If `mm-uu-buttonize-original-text-parts' is non-nil, the part that HANDLE
@@ -651,15 +644,8 @@ points will always get a button."
                                   encoding type)
                                  (mm-uu-dissect t (mm-handle-type handle)))
                              (mm-uu-dissect t (mm-handle-type handle))))))
-              (if (or mm-uu-buttonize-original-text-parts
-                      (and (boundp 'gnus-inhibit-mime-unbuttonizing)
-                           (symbol-value 'gnus-inhibit-mime-unbuttonizing)))
-                  (let ((parent (copy-sequence handle)))
-                    (mm-handle-set-disposition parent '("attachment"))
-                    (mm-handle-set-description parent "The original part of")
-                    (setcdr handle (cons parent (cdr children))))
-                (kill-buffer buffer)
-                (setcdr handle (cdr children)))
+              (kill-buffer buffer)
+              (setcdr handle (cdr children))
               (setcar handle (car children)) ;; "multipart/mixed"
               (mapc 'mm-uu-dissect-text-parts (cdr children)))))
          (t