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 5f8b092c62adbe41d421171d3e2fabba111f6d8a..7a4c463208ab9eb6479ee6fd73fd0ae652008240 100644 (file)
--- 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 01d8587f06a66e1b579b12f92586d24bb9d443fc..9f84413996020c0676e2c5c111d78981b7eafcd3 100644 (file)
--- 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")