Guessing based on file extension

[Lars Magne Ingebrigtsen <larsi@gnus.org>]

François suggested the following definition of this function:

(defun mm-interactively-view-part (handle)
     "Display HANDLE using METHOD."
     (let ((type (mm-handle-media-type handle)))
       (when (string-equal type "application/octet-stream")
	 (let ((name (mail-content-type-get (mm-handle-type handle) 'name)))
	   (when name
	     (let ((new-type (mm-default-file-encoding name)))
	       (when new-type
		 (setq type new-type))))))
       (let* ((methods
	       (mapcar (lambda (i) (list (cdr (assoc 'viewer i))))
		       (mailcap-mime-info type 'all)))
	      (method (completing-read "Viewer: " methods)))
	 (mm-display-external (copy-sequence handle) method))))

If the type is "application/octet-stream", then we look at the thing
after the dot, and use that as the "real" type.

On the one hand, this is user friendly.  On the other hand, guessing
is yucky.  One could add a used config variable to control whether to
do it or not, but if that defaults to nil, then that won't be very
used friendly.

So.  Whaddayall think?

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen