Gnus development mailing list
 help / color / mirror / Atom feed
From: Michael Sperber <sperber@deinprogramm.de>
To: ding@gnus.org
Subject: PATCH: Conditionalize `doc-view-mode'
Date: Tue, 20 Oct 2015 11:09:06 +0200	[thread overview]
Message-ID: <y9lio61gb4d.fsf@deinprogramm.de> (raw)

[-- Attachment #1: Type: text/plain, Size: 157 bytes --]


This patch unbreaks PDF viewing on XEmacs.  (Well, partly, see next
patch.)  If somebody could apply it, that would be much appreciated.

-- 
Regards,
Mike

[-- Attachment #2: Type: text/plain, Size: 1107 bytes --]

commit d07342afa746c44f10a0ae1aa344b3c31b28cfdf
Author: Mike Sperber <sperber@deinprogramm.de>
Date:   Tue Oct 20 11:05:57 2015 +0200

    	* mailcap.el (mailcap-mime-data): Conditonalize `doc-view-mode', which
    	does not exist on XEmacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 979a845..3e2f0e1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-10-20  Michael Sperber  <mike@xemacs.org>
+
+	* mailcap.el (mailcap-mime-data): Conditonalize `doc-view-mode', which
+	does not exist on XEmacs.
+
 2015-10-18  Michael Sperber  <mike@xemacs.org>
 
 	* nnml.el (nnml-retrieve-groups, nnml-request-scan): 
diff --git a/lisp/mailcap.el b/lisp/mailcap.el
index 9f84413..a3348c6 100644
--- a/lisp/mailcap.el
+++ b/lisp/mailcap.el
@@ -160,7 +160,8 @@ This is a compatibility function for different Emacsen."
      ("pdf"
       (viewer . doc-view-mode)
       (type . "application/pdf")
-      (test . (eq window-system 'x)))
+      (test . (and (fboundp 'doc-view-mode)
+		   (eq window-system 'x))))
      ("pdf"
       (viewer . "gv -safer %s")
       (type . "application/pdf")

             reply	other threads:[~2015-10-20  9:09 UTC|newest]

Thread overview: 2+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2015-10-20  9:09 Michael Sperber [this message]
2015-10-20 11:11 ` Katsumi Yamaoka

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=y9lio61gb4d.fsf@deinprogramm.de \
    --to=sperber@deinprogramm.de \
    --cc=ding@gnus.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).