dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[Gnus] Simple function to convert Gnus MIME part to Org 

Very early version.
This commit is contained in:
Daniel - 2018-08-05 10:17:53 +02:00
parent 76c9ffeec5
commit b4185de60f
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnus.el
View File

@ -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-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