* lisp/gnus/shr.el (libxml-parse-html-region): Declare.

(shr-render-buffer): Explicit error if no libxml2 support.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 53db82cd5b3df930987b21e19dcf5c6be0ce85de..7184d3e71b36c08776ae7a63596ad62729e53c9a 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-06-18  Glenn Morris  <rgm@gnu.org>
+
+       * shr.el (libxml-parse-html-region): Declare.
+       (shr-render-buffer): Explicit error if no libxml2 support.
+
 2013-06-17  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * auth-source.el (auth-source-current-line): New function.

diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index 2d0c9107fd690b9a4dfc4cda2af92eb52dbdbc85..06abde9e38160e07d8b0fc527063522ed6656daf 100644 (file)
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -142,10 +142,14 @@ cid: URL as the argument.")
     map))
 
 ;; Public functions and commands.
+(declare-function libxml-parse-html-region "xml.c"
+                 (start end &optional base-url))
 
 (defun shr-render-buffer (buffer)
   "Display the HTML rendering of the current buffer."
   (interactive (list (current-buffer)))
+  (or (fboundp 'libxml-parse-html-region)
+      (error "This function requires Emacs to be compiled with libxml2"))
   (pop-to-buffer "*html*")
   (erase-buffer)
   (shr-insert-document