diff options
| author | Glenn Morris <rgm@gnu.org> | 2010-03-23 20:21:53 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2010-03-23 20:21:53 -0700 |
| commit | 16d8cf52c66762b5ddf440ab7796d524b94e7d2b (patch) | |
| tree | 0ce82bbac13a932415ef1fafd1ce01d99c8f78f5 /lisp/gnus/mail-source.el | |
| parent | 1d94ebb00c022b55edc14fffce7e000643ea00a3 (diff) | |
| download | emacs-16d8cf52c66762b5ddf440ab7796d524b94e7d2b.tar.gz | |
* mail-source.el (gnus-message): Declare.
(mail-source-delete-old-incoming): Require gnus-util.
Diffstat (limited to 'lisp/gnus/mail-source.el')
| -rw-r--r-- | lisp/gnus/mail-source.el | 7 |
1 files changed, 5 insertions, 2 deletions
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 |