From b4185de60f21f9eb3abc016dba4db19294d93add Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sun, 5 Aug 2018 10:17:53 +0200 Subject: [PATCH] [Gnus] Simple function to convert Gnus MIME part to Org Very early version. --- gnus.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/gnus.el b/gnus.el index 26aad76..6997761 100644 --- a/gnus.el +++ b/gnus.el @@ -520,6 +520,14 @@ If found, imports the certificate via gpgsm." (bind-key "C-" #'db/gnus-summary-open-Link gnus-summary-mode-map) (bind-key "C-" #'db/gnus-summary-open-Link gnus-article-mode-map) +(defun db/gnus-html-mime-part-to-org () + "Convert current gnus article to org mode." + (let ((return-code (gnus-mime-pipe-part "pandoc -f html -t org"))) + (unless (zerop return-code) + (error "Error in extracting text")) + (with-current-buffer "*Shell Command Output*" + (kill-ring-save (point-min) (point-max))))) + ;;; Timeout for fetching news