Mercurial > emacs
comparison lisp/gnus/mm-decode.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | 7782e54757bb |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49597:e88404e8f2cf | 49598:0d8b17d428b5 |
|---|---|
| 162 "message/partial" "application/emacs-lisp" | 162 "message/partial" "application/emacs-lisp" |
| 163 "application/pgp-signature") | 163 "application/pgp-signature") |
| 164 "List of media types that are to be displayed inline." | 164 "List of media types that are to be displayed inline." |
| 165 :type '(repeat string) | 165 :type '(repeat string) |
| 166 :group 'mime-display) | 166 :group 'mime-display) |
| 167 | 167 |
| 168 (defcustom mm-automatic-display | 168 (defcustom mm-automatic-display |
| 169 '("text/plain" "text/enriched" "text/richtext" "text/html" | 169 '("text/plain" "text/enriched" "text/richtext" "text/html" |
| 170 "text/x-vcard" "image/.*" "message/delivery-status" "multipart/.*" | 170 "text/x-vcard" "image/.*" "message/delivery-status" "multipart/.*" |
| 171 "message/rfc822" "text/x-patch" "application/pgp-signature" | 171 "message/rfc822" "text/x-patch" "application/pgp-signature" |
| 172 "application/emacs-lisp") | 172 "application/emacs-lisp") |
| 464 (mm-mailcap-command | 464 (mm-mailcap-command |
| 465 method file (mm-handle-type handle))) | 465 method file (mm-handle-type handle))) |
| 466 (mm-handle-set-undisplayer handle (cons file buffer))) | 466 (mm-handle-set-undisplayer handle (cons file buffer))) |
| 467 (message "Displaying %s..." (format method file)) | 467 (message "Displaying %s..." (format method file)) |
| 468 'external))))))) | 468 'external))))))) |
| 469 | 469 |
| 470 (defun mm-mailcap-command (method file type-list) | 470 (defun mm-mailcap-command (method file type-list) |
| 471 (let ((ctl (cdr type-list)) | 471 (let ((ctl (cdr type-list)) |
| 472 (beg 0) | 472 (beg 0) |
| 473 (uses-stdin t) | 473 (uses-stdin t) |
| 474 out sub total) | 474 out sub total) |
| 491 (if uses-stdin | 491 (if uses-stdin |
| 492 (progn | 492 (progn |
| 493 (push "<" out) | 493 (push "<" out) |
| 494 (push (mm-quote-arg file) out))) | 494 (push (mm-quote-arg file) out))) |
| 495 (mapconcat 'identity (nreverse out) ""))) | 495 (mapconcat 'identity (nreverse out) ""))) |
| 496 | 496 |
| 497 (defun mm-remove-parts (handles) | 497 (defun mm-remove-parts (handles) |
| 498 "Remove the displayed MIME parts represented by HANDLES." | 498 "Remove the displayed MIME parts represented by HANDLES." |
| 499 (if (and (listp handles) | 499 (if (and (listp handles) |
| 500 (bufferp (car handles))) | 500 (bufferp (car handles))) |
| 501 (mm-remove-part handles) | 501 (mm-remove-part handles) |