Fix ```elisp code``` handling in mails

diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el
index 3805384021490b06e65f2998b697a584195e7d04..991f1efa631beff898ec21147635becb956695ac 100644 (file)
--- a/lisp/gnus/mm-uu.el
+++ b/lisp/gnus/mm-uu.el
@@ -148,7 +148,7 @@ This can be either \"inline\" or \"attachment\".")
     (markdown-emacs-sources
      "^```\\(?:elisp\\|emacs-lisp\\|\n(\\)"
      "^```$"
-     ,#'mm-uu-emacs-sources-extract)
+     ,#'mm-uu-markdown-emacs-sources-extract)
     (markdown-diff ;; this should be higher than `git-format-patch'
      "^```\\(?:diff\\|patch\\|\ndiff --git \\)"
      "^```$"
@@ -392,6 +392,13 @@ apply the face `mm-uu-extract'."
                  (list mm-dissect-disposition
                        (cons 'filename file-name))))
 
+(defun mm-uu-markdown-emacs-sources-extract ()
+  (mm-make-handle (mm-uu-copy-to-buffer (+ start-point 3) (- end-point 4))
+                 '("application/emacs-lisp" (charset . gnus-decoded))
+                 nil nil
+                 (list mm-dissect-disposition
+                       (cons 'filename file-name))))
+
 (defun mm-uu-org-src-code-block-extract ()
   (mm-make-handle (mm-uu-copy-to-buffer start-point end-point)
                  '("text/x-org" (charset . gnus-decoded))))