Commit 0f7cbeb9 authored by Glenn Morris's avatar Glenn Morris
Browse files

Add declare-function compatibility definition.

(w3-parse-buffer, gnus-group-make-rss-group): Declare as functions.
parent 444f6b28
...@@ -27,6 +27,10 @@ ...@@ -27,6 +27,10 @@
;;; Code: ;;; Code:
;; For Emacs < 22.2.
(eval-and-compile
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
(eval-when-compile (require 'cl)) (eval-when-compile (require 'cl))
(require 'gnus) (require 'gnus)
...@@ -418,6 +422,8 @@ otherwise return nil." ...@@ -418,6 +422,8 @@ otherwise return nil."
nnrss-compatible-encoding-alist))))) nnrss-compatible-encoding-alist)))))
(mm-coding-system-p 'utf-8))) (mm-coding-system-p 'utf-8)))
(declare-function w3-parse-buffer "ext:w3-parse" (&optional buff))
(defun nnrss-fetch (url &optional local) (defun nnrss-fetch (url &optional local)
"Fetch URL and put it in a the expected Lisp structure." "Fetch URL and put it in a the expected Lisp structure."
(mm-with-unibyte-buffer (mm-with-unibyte-buffer
...@@ -784,6 +790,8 @@ which RSS 2.0 allows." ...@@ -784,6 +790,8 @@ which RSS 2.0 allows."
(push (list group nnrss-group-max) nnrss-server-data))) (push (list group nnrss-group-max) nnrss-server-data)))
(nnrss-save-server-data server)))) (nnrss-save-server-data server))))
(declare-function gnus-group-make-rss-group "gnus-group" (&optional url))
(defun nnrss-opml-import (opml-file) (defun nnrss-opml-import (opml-file)
"OPML subscriptions import. "OPML subscriptions import.
Read the file and attempt to subscribe to each Feed in the file." Read the file and attempt to subscribe to each Feed in the file."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment