From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/32222
Path: main.gmane.org!not-for-mail
From: Toby Speight <streapadair@gmx.net>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: mailcap-mime-types
Date: 16 Aug 2000 14:58:40 +0100
Organization: Citrix Systems <URL:http://citrix.com/>
Sender: owner-ding@hpc.uh.edu
Message-ID: <87ya1xgve7.fsf@delivery.cam.eu.citrix.com>
References: <873dk5iak4.fsf@delivery.cam.eu.citrix.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035168526 18499 80.91.224.250 (21 Oct 2002 02:48:46 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 02:48:46 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from spinoza.math.uh.edu (spinoza.math.uh.edu [129.7.128.18])
	by mailhost.sclp.com (Postfix) with ESMTP id EB0CBD051E
	for <jason@mailhost.sclp.com>; Wed, 16 Aug 2000 09:59:17 -0400 (EDT)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by spinoza.math.uh.edu (8.9.1/8.9.1) with ESMTP id IAC16202;
	Wed, 16 Aug 2000 08:59:15 -0500 (CDT)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 16 Aug 2000 08:58:33 -0500 (CDT)
Original-Received: from mailhost.sclp.com (postfix@66-209.196.61.interliant.com [209.196.61.66] (may be forged))
	by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id IAA15883
	for <ding@hpc.uh.edu>; Wed, 16 Aug 2000 08:58:23 -0500 (CDT)
Original-Received: from hqvwall01.citrix.com (hqcon01.citrix.com [206.103.132.2])
	by mailhost.sclp.com (Postfix) with SMTP id 294D9D051E
	for <ding@gnus.org>; Wed, 16 Aug 2000 09:58:52 -0400 (EDT)
Original-Received: from 10.9.1.111 by hqvwall01.citrix.com (InterScan E-Mail VirusWall NT); Wed, 16 Aug 2000 09:58:47 -0400 (Eastern Daylight Time)
Original-Received: by HQEXCHCON01 with Internet Mail Service (5.5.2650.21)
	id <QW9L3V3R>; Wed, 16 Aug 2000 09:58:42 -0400
Original-Received: from delivery.cam.eu.citrix.com ([10.70.128.47]) by hwexch01.ctxuk.citrix.com with SMTP (Microsoft Exchange Internet Mail Service Version 5.5.2650.21)
	id QLGAJNZS; Wed, 16 Aug 2000 14:58:41 +0100
Original-To: The Gnus Mailing List <ding@gnus.org>
Original-Lines: 22
User-Agent: Gnus/5.0803 (Gnus v5.8.3) Emacs/20.7
X-Face: wqk-$Z5Z<l=cm46w2PzL/^7|J6+^Vc2~[,TM-T}=^-$kNN!hAKIR:S3DgyrXy0,gr4tSvDq
 s^'V_8'yd-x{d[[r$0&Uy{L[gs,PP
X-Yow: Yow!  STYROFOAM..
In-Reply-To: Toby Speight's message of "16 Aug 2000 14:45:47 +0100"
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:32222
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:32222

0> In article <873dk5iak4.fsf@delivery.cam.eu.citrix.com>,
0> Toby Speight <URL:mailto:streapadair@gmx.net> ("Toby") wrote:

Toby> I notice that the mml-attach-* functions use
Toby> `mml-minibuffer-read-type' - perhaps that could be shared
Toby> instead of applying my change?

Like this, I mean:

(defun gnus-mime-view-part-as-type (type)
  "Choose a MIME media type, and view the part as such."
  (interactive
   (list
    (let* ((mime-data (cdr (get-text-property (point) 'gnus-data)))
           (name (cdr (or (assoc 'filename (nth 3 mime-data)) (assoc 'name (car mime-data))))))
      (require 'mml)
      (mml-minibuffer-read-type name (car (car mime-data))))))
  (gnus-article-check-buffer)
  (let ((handle (get-text-property (point) 'gnus-data)))
    (setq handle (copy-sequence handle))
    (setcar (cdr handle) (list type))
    (gnus-mm-display-part handle)))