Function: message-make-expires-date

message-make-expires-date is a byte-compiled function defined in message.el.gz.

Signature

(message-make-expires-date DAYS)

Documentation

Make date string for the Expires header. Expiry in DAYS days.

In posting styles use ("Expires" (make-expires-date 30)).

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-make-expires-date (days)
  "Make date string for the Expires header.  Expiry in DAYS days.

In posting styles use `(\"Expires\" (make-expires-date 30))'."
  (let* ((cur (decode-time nil nil 'integer))
	 (nday (+ days (decoded-time-day cur))))
    (setf (decoded-time-day cur) nday)
    (message-make-date (encode-time cur))))