comparison lisp/gnus/gnus-art.el @ 87187:54ba9c058e4a

(declare-function): Add compatibility declaration. (w3-region, w3m-region, Info-menu): Declare as functions.

87186:b37f01064ecf

;;; Commentary:

;;; Code:

(eval-when-compile
  (require 'cl))
(defvar tool-bar-map)
(defvar w3m-minor-mode-map)

	     ((functionp func)
	      (funcall func))
	     (t
	      (apply (car func) (cdr func))))))))))

(defun gnus-article-wash-html-with-w3 ()
  "Wash the current buffer with w3."
  (mm-setup-w3)
  (let ((w3-strict-width (window-width))
	(url-standalone-mode t)
	(url-gateway-unplugged t)
	(w3-honor-stylesheets nil))
    (condition-case ()
	(w3-region (point-min) (point-max))
      (error))))

(defun gnus-article-wash-html-with-w3m ()
  "Wash the current buffer with emacs-w3m."
  (mm-setup-w3m)
  (let ((w3m-safe-url-regexp mm-w3m-safe-url-regexp)

(defun gnus-button-handle-info-url-kde (url)
  "Fetch KDE style info URL."
  (gnus-info-find-node (gnus-url-unhex-string url)))

(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'.
  (info)
  (Info-directory)

87187:54ba9c058e4a

;;; Commentary:

;;; 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)
(defvar w3m-minor-mode-map)

	     ((functionp func)
	      (funcall func))
	     (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)
  (let ((w3-strict-width (window-width))
	(url-standalone-mode t)
	(url-gateway-unplugged t)
	(w3-honor-stylesheets nil))
    (condition-case ()
	(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)
  (let ((w3m-safe-url-regexp mm-w3m-safe-url-regexp)

(defun gnus-button-handle-info-url-kde (url)
  "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'.
  (info)
  (Info-directory)