Function: feedmail-default-date-generator

feedmail-default-date-generator is a byte-compiled function defined in feedmail.el.gz.

Signature

(feedmail-default-date-generator MAYBE-FILE)

Documentation

Default function for generating Date: header contents.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/feedmail.el.gz
     (nth 3 feedmail-sender-line)))))	; folding


(defun feedmail-default-date-generator (maybe-file)
  "Default function for generating Date: header contents."
  (feedmail-say-debug ">in-> feedmail-default-date-generator")
  (let ((attr (and maybe-file (file-attributes maybe-file))))
    (when attr
      (feedmail-say-debug (concat "4 cre " (feedmail-rfc822-date (file-attribute-access-time attr))))
      (feedmail-say-debug (concat "5 mod " (feedmail-rfc822-date (file-attribute-modification-time attr))))
      (feedmail-say-debug (concat "6 sta " (feedmail-rfc822-date (file-attribute-status-change-time attr)))))
    (feedmail-rfc822-date (and attr (not feedmail-queue-use-send-time-for-date)
			       (file-attribute-modification-time attr)))))