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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 052a7fdf5fc63092524e87df700ccba5900885b9..514de4501ca53d350c3ed86652c3028019bc8d7f 100644 (file)
--- 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 d7cec7a864f420ff91bb8b60324095c100db42b6..31d96cdd37594c2c7a24c4f789e3afd1e3361753 100644 (file)
--- 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"