4564 |
(when (re-search-forward ",+$" nil t) |
(when (re-search-forward ",+$" nil t) |
4565 |
(replace-match "" t t)))))) |
(replace-match "" t t)))))) |
4566 |
|
|
4567 |
|
(eval-when-compile (require 'parse-time)) |
4568 |
(defun message-make-date (&optional now) |
(defun message-make-date (&optional now) |
4569 |
"Make a valid data header. |
"Make a valid data header. |
4570 |
If NOW, use that time instead." |
If NOW, use that time instead." |
4571 |
(require 'parse-time) |
(require 'parse-time) |
|
(defvar parse-time-weekdays) |
|
|
(defvar parse-time-months) |
|
4572 |
(let* ((now (or now (current-time))) |
(let* ((now (or now (current-time))) |
4573 |
(zone (nth 8 (decode-time now))) |
(zone (nth 8 (decode-time now))) |
4574 |
(sign "+")) |
(sign "+")) |