[elpa] externals/hiddenquote 5de4c8e 12/14: Tell the hidden-quote source that we want the JSON content

[Stefan Monnier]

branch: externals/hiddenquote
commit 5de4c8e1d1c01f132ea708a5720346503810ec7a
Author: Mauro Aranda <maurooaranda@gmail.com>
Commit: Mauro Aranda <maurooaranda@gmail.com>

    Tell the hidden-quote source that we want the JSON content
    
    * hiddenquote.el (hiddenquote-get-hidden-quote-puzzle): Bind
    url-mime-accept-string to application/json.
---
 hiddenquote.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/hiddenquote.el b/hiddenquote.el
index 61cf5a3..0423633 100644
--- a/hiddenquote.el
+++ b/hiddenquote.el
@@ -70,6 +70,7 @@
 (require 'json)
 
 (defvar json-pretty-print-max-secs) ; json.el
+(defvar url-mime-accept-string) ; url-vars.el
 
 ;; Customization.
 (defgroup hiddenquote nil
@@ -1160,6 +1161,7 @@ puzzle Nº."
          (url "http://mauroaranda.com/puzzles/hidden-quote-puzzle/";)
          (file (and num (hiddenquote-expand-puzzle-file-name
                          (format "%s.ipuz" num) "hidden-quote")))
+         (url-mime-accept-string "application/json")
          puzzle)
     (if (and file (file-exists-p file)) ; Look for the file locally first.
         (progn