comparison lisp/gnus/message.el @ 61462:7296705f27fd

(message-make-date): Handle byte-compiler warnings differently.

61461:7924ec3eef18

	(goto-char (point-min))
	;; Remove trailing commas.
	(when (re-search-forward ",+$" nil t)
	  (replace-match "" t t))))))

(defun message-make-date (&optional now)
  "Make a valid data header.
If NOW, use that time instead."
  (require 'parse-time)
  (defvar parse-time-weekdays)
  (defvar parse-time-months)
  (let* ((now (or now (current-time)))
	 (zone (nth 8 (decode-time now)))
	 (sign "+"))
    (when (< zone 0)
      (setq sign "-")

61462:7296705f27fd

	(goto-char (point-min))
	;; Remove trailing commas.
	(when (re-search-forward ",+$" nil t)
	  (replace-match "" t t))))))

(eval-when-compile (require 'parse-time))
(defun message-make-date (&optional now)
  "Make a valid data header.
If NOW, use that time instead."
  (require 'parse-time)
  (let* ((now (or now (current-time)))
	 (zone (nth 8 (decode-time now)))
	 (sign "+"))
    (when (< zone 0)
      (setq sign "-")