From: Juri Linkov <juri@linkov.net>
Date: Fri, 24 Sep 2021 06:44:47 +0000 (+0300)
Subject: * lisp/gnus/mm-uu.el (mm-uu-type-alist): Add markdown-diff/-emacs-sources
X-Git-Tag: emacs-28.0.90~695
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c18db73f1c3812bc63e776af99ee061190ff6262;p=emacs.git

* lisp/gnus/mm-uu.el (mm-uu-type-alist): Add markdown-diff/-emacs-sources

(Bug#50763)
---

diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el
index 494221adeec..a52613a092c 100644
--- a/lisp/gnus/mm-uu.el
+++ b/lisp/gnus/mm-uu.el
@@ -145,6 +145,14 @@ This can be either \"inline\" or \"attachment\".")
      ,#'mm-uu-pgp-key-extract
      ,#'mm-uu-gpg-key-skip-to-last
      nil)
+    (markdown-emacs-sources
+     "^```\\(?:elisp\\|emacs-lisp\\|\n(\\)"
+     "^```$"
+     ,#'mm-uu-emacs-sources-extract)
+    (markdown-diff ;; this should be higher than `git-format-patch'
+     "^```\\(?:diff\\|patch\\|\ndiff --git \\)"
+     "^```$"
+     ,#'mm-uu-diff-extract)
     (emacs-sources
      "^;;;?[ \t]*[^ \t]+\\.el[ \t]*--"
      "^;;;?[ \t]*\\([^ \t]+\\.el\\)[ \t]+ends here"