diff options
| -rw-r--r-- | lisp/gnus/message.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 0722ec1177b..c07b6c34d3c 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el | |||
| @@ -4564,12 +4564,11 @@ Otherwise, generate and save a value for `canlock-password' first." | |||
| 4564 | (when (re-search-forward ",+$" nil t) | 4564 | (when (re-search-forward ",+$" nil t) |
| 4565 | (replace-match "" t t)))))) | 4565 | (replace-match "" t t)))))) |
| 4566 | 4566 | ||
| 4567 | (eval-when-compile (require 'parse-time)) | ||
| 4567 | (defun message-make-date (&optional now) | 4568 | (defun message-make-date (&optional now) |
| 4568 | "Make a valid data header. | 4569 | "Make a valid data header. |
| 4569 | If NOW, use that time instead." | 4570 | If NOW, use that time instead." |
| 4570 | (require 'parse-time) | 4571 | (require 'parse-time) |
| 4571 | (defvar parse-time-weekdays) | ||
| 4572 | (defvar parse-time-months) | ||
| 4573 | (let* ((now (or now (current-time))) | 4572 | (let* ((now (or now (current-time))) |
| 4574 | (zone (nth 8 (decode-time now))) | 4573 | (zone (nth 8 (decode-time now))) |
| 4575 | (sign "+")) | 4574 | (sign "+")) |