From: Lute Kamstra <lute@gnu.org>
Date: Mon, 11 Apr 2005 16:11:14 +0000 (+0000)
Subject: (nnimap-date-days-ago): Handle byte-compiler warnings differently.
X-Git-Tag: ttn-vms-21-2-B4~1072
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6a748edaab770d2d454208c85cabdc962c58a5b5;p=emacs.git

(nnimap-date-days-ago): Handle byte-compiler warnings differently.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 052a7fdf5fc..514de4501ca 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2005-04-11  Lute Kamstra  <lute@gnu.org>
+
+	* message.el (message-make-date): Handle byte-compiler warnings
+	differently.
+	* nnimap.el (nnimap-date-days-ago): Ditto.
+
 2005-04-10  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* mm-util.el (mm-string-to-multibyte): New function.
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index d7cec7a864f..31d96cdd375 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -1386,10 +1386,10 @@ function is generally only called when Gnus is shutting down."
 	(list (- ms 1) (+ (expt 2 16) ls))
       (list ms ls))))
 
+(eval-when-compile (require 'parse-time))
 (defun nnimap-date-days-ago (daysago)
   "Return date, in format \"3-Aug-1998\", for DAYSAGO days ago."
   (require 'parse-time)
-  (defvar parse-time-months)
   (let* ((time (nnimap-time-substract (current-time) (days-to-time daysago)))
 	 (date (format-time-string
 		(format "%%d-%s-%%Y"