Make eww use mailcap when displaying PDF files

Fixes: debbugs:19270
* net/eww.el (eww-display-pdf): Let mailcap determine how to
display PDF files.

diff --git a/etc/NEWS b/etc/NEWS
index 9d204cfe8ad2ecc559aa97f0bed4f96a4de622db..bb749e875013a168d469c72976efd5e5d284e3ec 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -210,6 +210,8 @@ xml.el/libxml2 DOM, and a new package dom.el has been added to
 interact with this DOM.  See the Emacs Lisp manual for interface
 details.
 
+*** `mailcap-mime-data' is now consulted when displaying PDF files.
+
 ** Message mode
 
 *** text/html messages that contain inline image parts will be

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 26572c3649ffeafbb26d21bfbe39ea3e029b6916..2fc3562ac5a1e0e116c3521957f0f7abd5320984 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-12-05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * net/eww.el (eww-display-pdf): Let mailcap determine how to
+       display PDF files (bug#19270).
+
 2014-12-05  Juri Linkov  <juri@linkov.net>
 
        Compare with the most recent window by default.

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 73abd26d8c507141590698b38114a1a8d5f86ced..e88afb503264c893ee061b18915f912dabe8430c 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -493,6 +493,7 @@ See the `eww-search-prefix' variable for the search engine used."
        (shr-put-image data nil))
       (goto-char (point-min)))))
 
+(declare-function mailcap-view-mime "mailcap" (type))
 (defun eww-display-pdf ()
   (let ((data (buffer-substring (point) (point-max))))
     (switch-to-buffer (get-buffer-create "*eww pdf*"))
@@ -500,7 +501,7 @@ See the `eww-search-prefix' variable for the search engine used."
          (inhibit-read-only t))
       (erase-buffer)
       (insert data)
-      (doc-view-mode)))
+      (mailcap-view-mime "application/pdf")))
   (goto-char (point-min)))
 
 (defun eww-setup-buffer ()