[Gnus] Simple function to convert Gnus MIME part to Org
Very early version.
This commit is contained in:
parent
76c9ffeec5
commit
b4185de60f
8
gnus.el
8
gnus.el
|
@ -520,6 +520,14 @@ If found, imports the certificate via gpgsm."
|
||||||
(bind-key "C-<return>" #'db/gnus-summary-open-Link gnus-summary-mode-map)
|
(bind-key "C-<return>" #'db/gnus-summary-open-Link gnus-summary-mode-map)
|
||||||
(bind-key "C-<return>" #'db/gnus-summary-open-Link gnus-article-mode-map)
|
(bind-key "C-<return>" #'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
|
;;; Timeout for fetching news
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue