diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/message.el | 1 |
2 files changed, 5 insertions, 0 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 9213b44170c..71d8dc2979b 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2005-03-16 Lute Kamstra <lute@gnu.org> | ||
| 2 | |||
| 3 | * message.el (message-make-date): Require parse-time. | ||
| 4 | |||
| 1 | 2005-03-10 Stefan Monnier <monnier@iro.umontreal.ca> | 5 | 2005-03-10 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 6 | ||
| 3 | * nnimap.el (nnimap-retrieve-headers-from-server): Fix last change. | 7 | * nnimap.el (nnimap-retrieve-headers-from-server): Fix last change. |
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index e579084474e..de56fe2be96 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el | |||
| @@ -4567,6 +4567,7 @@ Otherwise, generate and save a value for `canlock-password' first." | |||
| 4567 | (defun message-make-date (&optional now) | 4567 | (defun message-make-date (&optional now) |
| 4568 | "Make a valid data header. | 4568 | "Make a valid data header. |
| 4569 | If NOW, use that time instead." | 4569 | If NOW, use that time instead." |
| 4570 | (require 'parse-time) | ||
| 4570 | (let* ((now (or now (current-time))) | 4571 | (let* ((now (or now (current-time))) |
| 4571 | (zone (nth 8 (decode-time now))) | 4572 | (zone (nth 8 (decode-time now))) |
| 4572 | (sign "+")) | 4573 | (sign "+")) |