Commit 163a3c6a authored by Glenn Morris's avatar Glenn Morris

Add declare-function compatibility definition.

Require gnus-int.
(gnus-activate-group, gnus-group-mark-article-read): Declare as functions.
parent cdbd069a
......@@ -27,6 +27,10 @@
;;; Code:
;; For Emacs < 22.2.
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
(eval-when-compile (require 'cl))
(require 'gnus) ; for macro gnus-kill-buffer, at least
......@@ -35,6 +39,7 @@
(require 'gnus-util)
(require 'mail-source)
(require 'mm-util)
(require 'gnus-int)
(autoload 'gnus-add-buffer "gnus")
......@@ -1315,6 +1320,9 @@ Eudora has a broken References line, but an OK In-Reply-To."
;;; Utility functions
(declare-function gnus-activate-group "gnus-start"
(group &optional scan dont-check method))
(defun nnmail-do-request-post (accept-func &optional server)
"Utility function to directly post a message to an nnmail-derived group.
Calls ACCEPT-FUNC (which should be `nnchoke-request-accept-article')
......@@ -1854,6 +1862,8 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
;; Compare the time with the current time.
(ignore-errors (time-less-p days (time-since time))))))))
(declare-function gnus-group-mark-article-read "gnus-group" (group article))
(defun nnmail-expiry-target-group (target group)
;; Do not invoke this from nntp-server-buffer! At least nnfolder clears
;; that buffer if the nnfolder group isn't selected.
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