From: Julien Danjou Date: Tue, 25 Jan 2011 19:08:44 +0000 (+0100) Subject: mm: add support for inline javascript X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=3272a40813e863cfac3bdab6a62795e93013ece1 mm: add support for inline javascript Signed-off-by: Julien Danjou --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index db850f1c9..ac487d32f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2011-01-25 Julien Danjou + + * mm-view.el (mm-display-shell-script-inline): Fix typo in docstring. + (mm-display-javascript-inline): New function. + + * mm-decode.el (mm-inline-media-tests): Add application/javascript + viewing function. + 2011-01-25 Katsumi Yamaoka * shr.el (shr-expand-newlines): Fix variable name. diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index 019a0e8f6..d7bc882a8 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -239,6 +239,7 @@ before the external MIME handler is invoked." ("application/x-shellscript" mm-display-shell-script-inline identity) ("application/x-sh" mm-display-shell-script-inline identity) ("text/x-sh" mm-display-shell-script-inline identity) + ("application/javascript" mm-display-javascript-inline identity) ("text/dns" mm-display-dns-inline identity) ("text/x-org" mm-display-org-inline identity) ("text/html" diff --git a/lisp/mm-view.el b/lisp/mm-view.el index e3286b854..d63d20239 100644 --- a/lisp/mm-view.el +++ b/lisp/mm-view.el @@ -636,9 +636,13 @@ (mm-display-inline-fontify handle 'org-mode)) (defun mm-display-shell-script-inline (handle) - "Show an shell script from HANDLE inline." + "Show a shell script from HANDLE inline." (mm-display-inline-fontify handle 'shell-script-mode)) +(defun mm-display-javascript-inline (handle) + "Show JavsScript code from HANDLE inline." + (mm-display-inline-fontify handle 'javascript-mode)) + ;; id-signedData OBJECT IDENTIFIER ::= { iso(1) member-body(2) ;; us(840) rsadsi(113549) pkcs(1) pkcs7(7) 2 } (defvar mm-pkcs7-signed-magic