Commit 16d8cf52 authored by Glenn Morris's avatar Glenn Morris
Browse files

* mail-source.el (gnus-message): Declare.

(mail-source-delete-old-incoming): Require gnus-util.
parent 1d94ebb0
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.
......
;;; 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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment