/[emacs]/emacs/lisp/gnus/message.el
ViewVC logotype

Diff of /emacs/lisp/gnus/message.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.76 by miles, Tue Apr 5 04:10:27 2005 UTC revision 1.77 by lute, Mon Apr 11 16:09:59 2005 UTC
# Line 4564  Otherwise, generate and save a value for Line 4564  Otherwise, generate and save a value for
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 "+"))

Legend:
Removed from v.1.76  
changed lines
  Added in v.1.77

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26