# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1197165858 0
# Node ID 54ba9c058e4afffdbe64d81e8653ecbf8bcc4ccb
# Parent  b37f01064ecfd017b038f91b2aea3d7dabd527c6
(declare-function): Add compatibility declaration.
(w3-region, w3m-region, Info-menu): Declare as functions.

diff -r b37f01064ecf -r 54ba9c058e4a lisp/gnus/gnus-art.el
--- a/lisp/gnus/gnus-art.el	Sat Dec 08 22:56:04 2007 +0000
+++ b/lisp/gnus/gnus-art.el	Sun Dec 09 02:04:18 2007 +0000
@@ -27,6 +27,9 @@
 
 ;;; Code:
 
+;; For Emacs < 22.2.
+(eval-and-compile
+  (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
 (eval-when-compile
   (require 'cl))
 (defvar tool-bar-map)
@@ -2705,6 +2708,9 @@
 	     (t
 	      (apply (car func) (cdr func))))))))))
 
+;; External.
+(declare-function w3-region "ext:w3-display" (st nd))
+
 (defun gnus-article-wash-html-with-w3 ()
   "Wash the current buffer with w3."
   (mm-setup-w3)
@@ -2716,6 +2722,9 @@
 	(w3-region (point-min) (point-max))
       (error))))
 
+;; External.
+(declare-function w3m-region "ext:w3m" (start end &optional url charset))
+
 (defun gnus-article-wash-html-with-w3m ()
   "Wash the current buffer with emacs-w3m."
   (mm-setup-w3m)
@@ -7682,6 +7691,9 @@
   "Fetch KDE style info URL."
   (gnus-info-find-node (gnus-url-unhex-string url)))
 
+;; (info) will autoload info.el
+(declare-function Info-menu "info" (menu-item &optional fork))
+
 (defun gnus-button-handle-info-keystrokes (url)
   "Call `info' when pushing the corresponding URL button."
   ;; For links like `C-h i d m gnus RET', `C-h i d m CC Mode RET'.