mm: add support for inline javascript

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db850f1..ac487d3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2011-01-25  Julien Danjou  <julien@danjou.info>
+
+       * 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  <yamaoka@jpl.org>
 
        * shr.el (shr-expand-newlines): Fix variable name.

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 019a0e8..d7bc882 100644 (file)
--- 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 e3286b8..d63d202 100644 (file)
--- 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