From 0d90d5c3d8f060003b3542eaadf76e57b624443f Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 24 Jan 2006 10:27:57 +0000 Subject: [PATCH] (mm-uu-buttonize-original-text-parts): Remove. (mm-uu-dissect-text-parts): Revert 2006-01-23 change. --- lisp/mm-uu.el | 18 ++---------------- 1 file changed, 2 insertions(+), 16 deletions(-) diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el index 67abcf8d1..d0c7f863c 100644 --- 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 -- 2.25.1