Function: pr-article-date

pr-article-date is a byte-compiled function defined in printing.el.gz.

Signature

(pr-article-date)

Documentation

Find the date of an article or mail message in current buffer.

Return only the dayname, if present, weekday, month, and year.

Source Code

;; Defined in /usr/src/emacs/lisp/printing.el.gz
(defun pr-article-date ()
  "Find the date of an article or mail message in current buffer.
Return only the dayname, if present, weekday, month, and year."
  (save-excursion
    (goto-char (point-min))
    (if (re-search-forward
	 "^Date:[ \t]+\\(\\([A-Za-z]+, \\)?[0-9]+ [A-Za-z]+ [0-9]+\\)" nil t)
	(buffer-substring (match-beginning 1) (match-end 1))
      (format-time-string "%Y/%m/%d"))))