Re: Guessing based on file extension

[Kim-Minh Kaplan <kmkaplan@vocatex.fr>]

[-- Attachment #1: Type: text/plain, Size: 568 bytes --]

Steinar Bang writes:

> Hm... indeed.  If it did, I would lose one of the two reasons I
> currently have for dragging my heels wrt. a switch to IMAP: editing
> the MIME types of attachments (the other one is reparenting of
> articles, both are related to article editing).

Ohh, I must have forgotten to post a patch that fixes a bug in the
MIME parts menus on the "View As Type..." entry.  I just upgraded it
with François Pinard's idea: default to a guessing based on file
extension.  Now you can easily view attached parts without editing the
article.

Kim-Minh.



[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: =?nil?b?bW9kaWZpY2F0aW9uIHRvIGdudXMtYXJ0LmVs?= --]
[-- Type: text/x-elisp, Size: 992 bytes --]

(defun gnus-mime-view-part-as-type-internal ()
  (gnus-article-check-buffer)
  (let* ((name (mail-content-type-get
		(mm-handle-type (get-text-property (point) 'gnus-data))
		'name))
	 (def-type (and name (mm-default-file-encoding name))))
    (and def-type (cons def-type 0))))

(defun gnus-mime-view-part-as-type (mime-type)
  "Choose a MIME media type, and view the part as such."
  (interactive
   (list (completing-read
	  "View as MIME type: "
	  (mapcar (lambda (i) (list i i)) (mailcap-mime-types))
	  nil nil
	  (gnus-mime-view-part-as-type-internal))))
  (gnus-article-check-buffer)
  (let* ((handle (get-text-property (point) 'gnus-data)))
    (gnus-mm-display-part
     (mm-make-handle (mm-handle-buffer handle)
		     (cons mime-type (cdr (mm-handle-type handle)))
		     (mm-handle-encoding handle)
		     (mm-handle-undisplayer handle)
		     (mm-handle-disposition handle)
		     (mm-handle-description handle)
		     (mm-handle-cache handle)
		     (mm-handle-id handle)))))