From: Glenn Morris <rgm@gnu.org>
Date: Wed, 24 Mar 2010 03:21:53 +0000 (-0700)
Subject: * mail-source.el (gnus-message): Declare.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~671
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=16d8cf52c66762b5ddf440ab7796d524b94e7d2b;p=emacs.git

* mail-source.el (gnus-message): Declare.
(mail-source-delete-old-incoming): Require gnus-util.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 59b3ae87d80..88c2280f6a3 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2010-03-24  Glenn Morris  <rgm@gnu.org>
+
+	* mail-source.el (gnus-message): Declare.
+	(mail-source-delete-old-incoming): Require gnus-util.
+
 2010-03-23  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* gnus-art.el (canlock-verify): Autoload it for Emacs 21.
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el
index 44edd703638..46f9169a6a3 100644
--- a/lisp/gnus/mail-source.el
+++ b/lisp/gnus/mail-source.el
@@ -1,7 +1,7 @@
 ;;; mail-source.el --- functions for fetching mail
 
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008, 2009, 2010  Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: news, mail
@@ -574,10 +574,13 @@ Return the number of files that were found."
 		      (error "Cannot get new mail"))
 		    0)))))))))
 
+(declare-function gnus-message "gnus-util" (level &rest args))
+
 (defun mail-source-delete-old-incoming (&optional age confirm)
   "Remove incoming files older than AGE days.
 If CONFIRM is non-nil, ask for confirmation before removing a file."
   (interactive "P")
+  (require 'gnus-util)
   (let* ((high2days (/ 65536.0 60 60 24));; convert high bits to days
 	 (low2days  (/ 1.0 65536.0))     ;; convert low bits to days
 	 (diff (if (natnump age) age 30));; fallback, if no valid AGE given