[Emacs-diffs] Changes to emacs/lisp/gnus/message.el

[Lute Kamstra]

Index: emacs/lisp/gnus/message.el
diff -c emacs/lisp/gnus/message.el:1.76 emacs/lisp/gnus/message.el:1.77
*** emacs/lisp/gnus/message.el:1.76     Tue Apr  5 04:10:27 2005
--- emacs/lisp/gnus/message.el  Mon Apr 11 16:09:59 2005
***************
*** 4564,4575 ****
        (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 "+"))
--- 4564,4574 ----
        (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 "+"))