Function: article-make-date-combine-with-lapsed

article-make-date-combine-with-lapsed is a byte-compiled function defined in gnus-art.el.gz.

Signature

(article-make-date-combine-with-lapsed DATE TIME TYPE)

Documentation

Return type of date with lapsed time added.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defun article-make-date-combine-with-lapsed (date time type)
  "Return type of date with lapsed time added."
  (let ((date-string (article-make-date-line date type))
	(segments 3)
	lapsed-string)
    (while (and
            time
	    (setq lapsed-string
		  (concat " (" (article-lapsed-string time segments) ")"))
	    (> (+ (length date-string)
		  (length lapsed-string))
	       (+ fill-column 6))
	    (> segments 0))
      (setq segments (1- segments)))
    (if (> segments 0)
	(concat date-string lapsed-string)
      date-string)))