From: Miles Bader <miles@gnu.org>
Date: Mon, 4 Apr 2005 22:36:41 +0000 (+0000)
Subject: Revision: miles@gnu.org--gnu-2005/gnus--devo--0--patch-88
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=8017b553c63563d6135f9c42894e37d4202b436e;p=gnus

Revision: miles@gnu.org--gnu-2005/gnus--devo--0--patch-88

Merge from gnus--rel--5.10

Patches applied:

 * gnus--rel--5.10  (patch 57)

   - Update from CVS

005-04-04  Reiner Steib  <Reiner.Steib@gmx.de>

   * lisp/message.el (message-make-date): Revert previous change.

   * lisp/nnimap.el (nnimap-date-days-ago): Revert previous change and add
   defvars in order to silence the byte compiler inside the defun

   * lisp/gnus-demon.el (parse-time-string): Added autoload.

   * lisp/gnus-delay.el (parse-time-string): Added autoload.

   * lisp/gnus-art.el (parse-time-string): Added autoload.

2005-03-23  Lute Kamstra  <lute@gnu.org>

   * lisp/time-date.el: Add comment on time value formats.
   Don't require parse-time.
   (with-decoded-time-value): New macro.
   (encode-time-value): New function.
   (time-to-seconds, time-less-p, time-subtract, time-add): Use them.
   (days-to-time): Return a valid time value when arg is huge.
   (time-since): Use time-subtract.
   (time-to-number-of-days): Use time-to-seconds.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1e9435600..37b9ecfb3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,16 @@
 005-04-04  Reiner Steib  <Reiner.Steib@gmx.de>
 
+	* message.el (message-make-date): Revert previous change.
+
+	* nnimap.el (nnimap-date-days-ago): Revert previous change and add
+	defvars in order to silence the byte compiler inside the defun
+
+	* gnus-demon.el (parse-time-string): Added autoload.
+
+	* gnus-delay.el (parse-time-string): Added autoload.
+
+	* gnus-art.el (parse-time-string): Added autoload.
+
 	* message.el (parse-time): Require for `parse-time-string'.
 
 	* nnimap.el (parse-time): Require for `parse-time-string'.
@@ -34,6 +45,17 @@
 
 	* nnmaildir.el: Replace `illegal' with `invalid'.
 
+2005-03-23  Lute Kamstra  <lute@gnu.org>
+
+	* time-date.el: Add comment on time value formats.
+	Don't require parse-time.
+	(with-decoded-time-value): New macro.
+	(encode-time-value): New function.
+	(time-to-seconds, time-less-p, time-subtract, time-add): Use them.
+	(days-to-time): Return a valid time value when arg is huge.
+	(time-since): Use time-subtract.
+	(time-to-number-of-days): Use time-to-seconds.
+
 2005-03-22  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* gnus-start.el (gnus-display-time-event-handler):
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index dcecf49d5..f8a3d680d 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -49,6 +49,7 @@
 (autoload 'gnus-msg-mail "gnus-msg" nil t)
 (autoload 'gnus-button-mailto "gnus-msg")
 (autoload 'gnus-button-reply "gnus-msg" nil t)
+(autoload 'parse-time-string "parse-time" nil nil)
 (autoload 'ansi-color-apply-on-region "ansi-color")
 
 (defgroup gnus-article nil
diff --git a/lisp/gnus-delay.el b/lisp/gnus-delay.el
index 02335e844..371d9e07b 100644
--- a/lisp/gnus-delay.el
+++ b/lisp/gnus-delay.el
@@ -37,6 +37,7 @@
 
 (require 'nndraft)
 (require 'gnus-draft)
+(autoload 'parse-time-string "parse-time" nil nil)
 
 ;;;###autoload
 (defgroup gnus-delay nil
diff --git a/lisp/gnus-demon.el b/lisp/gnus-demon.el
index 5c011af9b..86ba34ee2 100644
--- a/lisp/gnus-demon.el
+++ b/lisp/gnus-demon.el
@@ -40,6 +40,8 @@
       (require 'timer-funcs)
     (require 'timer)))
 
+(autoload 'parse-time-string "parse-time" nil nil)
+
 (defgroup gnus-demon nil
   "Demonic behaviour."
   :group 'gnus)
diff --git a/lisp/message.el b/lisp/message.el
index 79589789c..c1b9f9250 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -47,7 +47,6 @@
 (require 'mail-parse)
 (require 'mml)
 (require 'rfc822)
-(require 'parse-time)
 
 (defgroup message '((user-mail-address custom-variable)
 		    (user-full-name custom-variable))
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 682f44e24..2b969f872 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -69,7 +69,6 @@
 (require 'gnus-range)
 (require 'gnus-start)
 (require 'gnus-int)
-(require 'parse-time)
 
 (eval-when-compile (require 'cl))
 
@@ -1445,6 +1444,8 @@ function is generally only called when Gnus is shutting down."
 
 (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"