From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/32220
Path: main.gmane.org!not-for-mail
From: Toby Speight <streapadair@gmx.net>
Newsgroups: gmane.emacs.gnus.general
Subject: mailcap-mime-types
Date: 16 Aug 2000 14:45:47 +0100
Organization: Citrix Systems <URL:http://citrix.com/>
Sender: owner-ding@hpc.uh.edu
Message-ID: <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 1035168525 18490 80.91.224.250 (21 Oct 2002 02:48:45 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 02:48:45 +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 28AD9D051E
	for <jason@mailhost.sclp.com>; Wed, 16 Aug 2000 09:46:50 -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 IAC16002;
	Wed, 16 Aug 2000 08:46:45 -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:45:46 -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 IAA15738
	for <ding@hpc.uh.edu>; Wed, 16 Aug 2000 08:45:35 -0500 (CDT)
Original-Received: from hqvwall01.citrix.com (hqcon01.citrix.com [206.103.132.2])
	by mailhost.sclp.com (Postfix) with SMTP id 2202CD051E
	for <ding@gnus.org>; Wed, 16 Aug 2000 09:46:04 -0400 (EDT)
Original-Received: from 10.9.1.111 by hqvwall01.citrix.com (InterScan E-Mail VirusWall NT); Wed, 16 Aug 2000 09:45:51 -0400 (Eastern Daylight Time)
Original-Received: by HQEXCHCON01 with Internet Mail Service (5.5.2650.21)
	id <QW9L3VDP>; Wed, 16 Aug 2000 09:45:46 -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 QLGAJNVZ; Wed, 16 Aug 2000 14:45:48 +0100
Original-To: The Gnus Mailing List <ding@gnus.org>
Original-Lines: 23
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: My TOYOTA is built like a ... BAGEL with CREAM CHEESE!!
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:32220
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:32220

The current version of `mailcap-mime-types' returns only those types
that have appropriate filename extensions in mime.types.  Here's one
which also reads mailcap-mime-data to get all types that have handlers
(it still gets those from mime.types - but I don't think it should).

This is useful for `gnus-mime-view-part-as-type', which uses the
result for its (completing-read).  I notice that the mml-attach-*
functions use `mml-minibuffer-read-type' - perhaps that could be
shared instead of applying my change?

(defun mailcap-mime-types ()
  "Return a list of MIME media types."
  (delete nil
          (mm-delete-duplicates
           (apply 'append
                  (mapcar 'cdr mailcap-mime-extensions)
                  (mapcar '(lambda (x)
                             (and (not (string-match "\\.?\\*" (car x)))
                                  (mapcar '(lambda (x)
                                             (and (not (string-match "\\.?\\*" (car x)))
                                                  (cdr (assoc 'type x))))
                                          (cdr x))))
                          mailcap-mime-data)))))