164 |
"List of media types that are to be displayed inline." |
"List of media types that are to be displayed inline." |
165 |
:type '(repeat string) |
:type '(repeat string) |
166 |
:group 'mime-display) |
:group 'mime-display) |
167 |
|
|
168 |
(defcustom mm-automatic-display |
(defcustom mm-automatic-display |
169 |
'("text/plain" "text/enriched" "text/richtext" "text/html" |
'("text/plain" "text/enriched" "text/richtext" "text/html" |
170 |
"text/x-vcard" "image/.*" "message/delivery-status" "multipart/.*" |
"text/x-vcard" "image/.*" "message/delivery-status" "multipart/.*" |
466 |
(mm-handle-set-undisplayer handle (cons file buffer))) |
(mm-handle-set-undisplayer handle (cons file buffer))) |
467 |
(message "Displaying %s..." (format method file)) |
(message "Displaying %s..." (format method file)) |
468 |
'external))))))) |
'external))))))) |
469 |
|
|
470 |
(defun mm-mailcap-command (method file type-list) |
(defun mm-mailcap-command (method file type-list) |
471 |
(let ((ctl (cdr type-list)) |
(let ((ctl (cdr type-list)) |
472 |
(beg 0) |
(beg 0) |
493 |
(push "<" out) |
(push "<" out) |
494 |
(push (mm-quote-arg file) out))) |
(push (mm-quote-arg file) out))) |
495 |
(mapconcat 'identity (nreverse out) ""))) |
(mapconcat 'identity (nreverse out) ""))) |
496 |
|
|
497 |
(defun mm-remove-parts (handles) |
(defun mm-remove-parts (handles) |
498 |
"Remove the displayed MIME parts represented by HANDLES." |
"Remove the displayed MIME parts represented by HANDLES." |
499 |
(if (and (listp handles) |
(if (and (listp handles) |