mailcap-mime-types

mailcap-mime-types

[Toby Speight]

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

Re: mailcap-mime-types

[Toby Speight]

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