[Gnus] Make experimental converter function interactive
This commit is contained in:
parent
d5215d60be
commit
9d601e341e
1
gnus.el
1
gnus.el
|
@ -522,6 +522,7 @@ If found, imports the certificate via gpgsm."
|
||||||
|
|
||||||
(defun db/gnus-html-mime-part-to-org ()
|
(defun db/gnus-html-mime-part-to-org ()
|
||||||
"Convert current gnus article to org mode."
|
"Convert current gnus article to org mode."
|
||||||
|
(interactive)
|
||||||
(let ((return-code (gnus-mime-pipe-part "pandoc -f html -t org")))
|
(let ((return-code (gnus-mime-pipe-part "pandoc -f html -t org")))
|
||||||
(unless (zerop return-code)
|
(unless (zerop return-code)
|
||||||
(error "Error in extracting text"))
|
(error "Error in extracting text"))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user