[patch] mm-uu-dissect's disposition choice should be selectable

[patch] mm-uu-dissect's disposition choice should be selectable

[Karl Kleinpaste]

Prior to p0.66, mm-uu-dissect had a hard-coded disposition of
"attachment," which I preferred, because I often want to mark a set
of articles with `#' and then do something to them without display
such as `X U'.  In p0.66, this hard-coded disposition was changed to
"inline," which is (for me) a major waste of CPU and time because I
don't want the contents displayed, I just want them decoded.  I can
understand why a default of "inline" would be wanted, but it ought to
be selectable.

Unfortunately, it doesn't appear that anything in mm-*.el uses
defcustom, so I just added a configurable setting with defvar.

1998-12-22  Karl Kleinpaste  <karl@justresearch.com>

	* mm-uu.el (mm-dissect-disposition): New variable.
	(mm-uu-dissect): Use it.

--- mm-uu.el.~1~	Tue Dec 15 12:31:53 1998
+++ mm-uu.el	Tue Dec 22 11:13:38 1998
@@ -68,6 +68,8 @@
 (defvar mm-uu-identifier-alist
   '((?% . postscript) (?b . uu) (?: . binhex) (?# . shar)))
 
+(defvar mm-dissect-disposition "inline")
+
 ;;;### autoload
 
 (defun mm-uu-dissect ()
@@ -135,7 +137,7 @@
 			       "application/octet-stream"))
 		     mm-uu-decode-function nil 
 		     (if (and file-name (not (equal file-name "")))
-			 (list "inline" (cons 'filename file-name)))))
+			 (list mm-dissect-disposition (cons 'filename file-name)))))
 	      ((eq type 'binhex)
 	       (mm-make-handle (mm-uu-copy-to-buffer start-char end-char) 
 		     (list (or (and file-name
@@ -145,7 +147,7 @@
 			       "application/octet-stream"))
 		     mm-uu-binhex-decode-function nil 
 		     (if (and file-name (not (equal file-name "")))
-			 (list "inline" (cons 'filename file-name)))))
+			 (list mm-dissect-disposition (cons 'filename file-name)))))
 	      ((eq type 'shar)
 	       (mm-make-handle (mm-uu-copy-to-buffer start-char end-char) 
 		     '("application/x-shar"))))