(message-make-expires-date): Use `message-make-date'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8a27d89..51e581b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,7 @@
        (message-mode-map): Add key binding.
        (message-mode-field-menu): Add menu entry.
        (message-mode): Document it.
+       (message-make-expires-date): Use `message-make-date'.
 
 2005-10-04  Josh Huber  <huber@alum.wpi.edu>
 

diff --git a/lisp/message.el b/lisp/message.el
index 97fa87f..756cc44 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4712,8 +4712,7 @@ In posting styles use `(\"Expires\" (make-expires-date 30))'."
   (let* ((cur (decode-time (current-time)))
         (nday (+ days (nth 3 cur))))
     (setf (nth 3 cur) nday)
-    (format-time-string "%a, %d %b %Y %H:%M:%S %Z"
-                       (apply 'encode-time cur))))
+    (message-make-date (apply 'encode-time cur))))
 
 (defun message-make-message-id ()
   "Make a unique Message-ID."