mailcap-mime-types

[Toby Speight <streapadair@gmx.net>]

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)))))