# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1288577957 25200
# Node ID c9da32007d995475bac0b1f7afb3884c669e620f
# Parent  c8afa6dd9295dbd18f30f4a87de4155eed499652
Silence shr.el compilation.
* lisp/gnus/shr.el (declare-function): Add compat stub.
(url-cache-create-filename): Declare.
(mm-disable-multibyte, widget-convert-button): Autoload.

diff -r c8afa6dd9295 -r c9da32007d99 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sun Oct 31 19:11:34 2010 -0700
+++ b/lisp/gnus/ChangeLog	Sun Oct 31 19:19:17 2010 -0700
@@ -1,5 +1,9 @@
 2010-11-01  Glenn Morris  <rgm@gnu.org>
 
+	* shr.el (declare-function): Add compat stub.
+	(url-cache-create-filename): Declare.
+	(mm-disable-multibyte, widget-convert-button): Autoload.
+
 	* smime.el (ldap-search): Declare.
 	(smime-cert-by-ldap-1): Require ldap on Emacs.
 
diff -r c8afa6dd9295 -r c9da32007d99 lisp/gnus/shr.el
--- a/lisp/gnus/shr.el	Sun Oct 31 19:11:34 2010 -0700
+++ b/lisp/gnus/shr.el	Sun Oct 31 19:19:17 2010 -0700
@@ -30,6 +30,10 @@
 
 ;;; Code:
 
+;; For Emacs <22.2 and XEmacs.
+(eval-and-compile
+  (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
+
 (eval-when-compile (require 'cl))
 (require 'browse-url)
 (unless (aref (char-category-set (make-char 'japanese-jisx0208 33 35)) ?>)
@@ -411,6 +415,10 @@
 		     image)))
       image)))
 
+;; url-cache-extract autoloads url-cache.
+(declare-function url-cache-create-filename "url-cache" (url))
+(autoload 'mm-disable-multibyte "mm-util")
+
 (defun shr-get-image-data (url)
   "Get image data for URL.
 Return a string with image data."
@@ -428,6 +436,8 @@
   (apply #'shr-fontize-cont cont types)
   (shr-ensure-paragraph))
 
+(autoload 'widget-convert-button "wid-edit")
+
 (defun shr-urlify (start url)
   (widget-convert-button
    'url-link start (point)