From 163a3c6aee8034d447e4f066307f32d8aa010e59 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 11 Dec 2007 05:23:37 +0000 Subject: [PATCH] Add declare-function compatibility definition. Require gnus-int. (gnus-activate-group, gnus-group-mark-article-read): Declare as functions. --- lisp/gnus/nnmail.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el index e05c286b1ab..06e6db5f792 100644 --- a/lisp/gnus/nnmail.el +++ b/lisp/gnus/nnmail.el @@ -27,6 +27,10 @@ ;;; Code: +;; For Emacs < 22.2. +(eval-and-compile + (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) (eval-and-compile (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. -- 2.39.2