From cdbd069ad0f04009a01b31bf775b1e3fb30b9c41 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 11 Dec 2007 05:23:01 +0000 Subject: [PATCH] Add declare-function compatibility definition. (gnus-group-mark-article-read): Declare as a function. --- lisp/gnus/nnmaildir.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lisp/gnus/nnmaildir.el b/lisp/gnus/nnmaildir.el index 829b3761cd3..05c19c27ee1 100644 --- a/lisp/gnus/nnmaildir.el +++ b/lisp/gnus/nnmaildir.el @@ -61,6 +61,10 @@ ) ] +;; For Emacs < 22.2. +(eval-and-compile + (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) + (eval-and-compile (require 'nnheader) (require 'gnus) @@ -1439,6 +1443,8 @@ by nnmaildir-request-article.") (defun nnmaildir-active-number (gname) 0) +(declare-function gnus-group-mark-article-read "gnus-group" (group article)) + (defun nnmaildir-request-expire-articles (ranges &optional gname server force) (let ((no-force (not force)) (group (nnmaildir--prepare server gname)) -- 2.39.2