From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/19998 Path: main.gmane.org!not-for-mail From: Karl Kleinpaste Newsgroups: gmane.emacs.gnus.general Subject: [patch] mm-uu-dissect's disposition choice should be selectable Date: 22 Dec 1998 11:22:01 -0500 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 X-Trace: main.gmane.org 1035158282 14706 80.91.224.250 (20 Oct 2002 23:58:02 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 23:58:02 +0000 (UTC) Return-Path: Original-Received: from karazm.math.uh.edu (karazm.math.uh.edu [129.7.128.1]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id LAA06541 for ; Tue, 22 Dec 1998 11:23:30 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by karazm.math.uh.edu (8.9.1/8.9.1) with ESMTP id KAB21464; Tue, 22 Dec 1998 10:23:12 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 22 Dec 1998 10:23:16 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id KAA10537 for ; Tue, 22 Dec 1998 10:23:04 -0600 (CST) Original-Received: from beaver.jprc.com (BEAVER.JPRC.COM [207.86.147.217]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id LAA06525 for ; Tue, 22 Dec 1998 11:22:39 -0500 (EST) Original-Received: (from karl@localhost) by beaver.jprc.com (8.8.7/8.8.7) id LAA16126; Tue, 22 Dec 1998 11:22:01 -0500 Original-To: ding@gnus.org X-Face: "5(T0tZd{6}pd~YzBG8O/*EW,.]6]@`m^e;fv65W^Y&=d"M\1H}>T~4_.kcDD.O~y3k)a6h R;Nmi>9|>Nm${2IpM0^RcUEa\jcq?KOP)C&~x51l~zCHTulL^_T|u0I^kB'z@]{`2YjQu User-Agent: Gnus/5.070066 (Pterodactyl Gnus v0.66) XEmacs/20.4 (Emerald) Precedence: list X-Majordomo: 1.94.jlt7 Original-Lines: 46 Xref: main.gmane.org gmane.emacs.gnus.general:19998 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:19998 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 * 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"))))