From: Tassilo Horn <tsdh@gnu.org>
Date: Mon, 23 Feb 2015 09:36:06 +0000 (+0000)
Subject: lisp/gnus/mailcap.el: Support PDF Tools for PDF viewing of attachments
X-Git-Tag: emacs-25.0.90~2564^2~312
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=931e7babcb81d74709825580192f9ad58d595b63;p=emacs.git

lisp/gnus/mailcap.el: Support PDF Tools for PDF viewing of attachments

* mailcap.el (mailcap-mime-data): Support `pdf-view-mode' (from PDF
Tools: https://github.com/politza/pdf-tools) for viewing PDF
attachments in emacs.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5f8b092c62a..7a4c463208a 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2015-02-23  Tassilo Horn  <tsdh@gnu.org>
+
+	* mailcap.el (mailcap-mime-data): Support `pdf-view-mode' (from PDF
+	Tools: https://github.com/politza/pdf-tools) for viewing PDF
+	attachments in emacs.
+
 2015-02-23  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* gnus-art.el (gnus-mime-display-single): Avoid "End of buffer" error.
diff --git a/lisp/gnus/mailcap.el b/lisp/gnus/mailcap.el
index 01d8587f06a..9f844139960 100644
--- a/lisp/gnus/mailcap.el
+++ b/lisp/gnus/mailcap.el
@@ -152,6 +152,11 @@ This is a compatibility function for different Emacsen."
       (non-viewer . t)
       (type   . "application/zip")
       ("copiousoutput"))
+     ("pdf"
+      (viewer . pdf-view-mode)
+      (type . "application/pdf")
+      (test . (and (fboundp 'pdf-view-mode)
+		   (eq window-system 'x))))
      ("pdf"
       (viewer . doc-view-mode)
       (type . "application/pdf")