Mercurial > emacs
changeset 87232:0f083156a012
Add declare-function compatibility definition.
Require gnus-int.
(gnus-activate-group, gnus-group-mark-article-read): Declare as functions.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 11 Dec 2007 05:23:37 +0000 |
| parents | f77f4c589557 |
| children | 98afb1afc305 |
| files | lisp/gnus/nnmail.el |
| diffstat | 1 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/nnmail.el Tue Dec 11 05:23:01 2007 +0000 +++ b/lisp/gnus/nnmail.el Tue Dec 11 05:23:37 2007 +0000 @@ -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 @@ ;;; 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 @@ ;; 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.