Function: gnus-diary-delay-format-english

gnus-diary-delay-format-english is a byte-compiled function defined in gnus-diary.el.gz.

Signature

(gnus-diary-delay-format-english PAST DELAY)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-diary.el.gz
(defun gnus-diary-delay-format-english (past delay)
  (if (null delay)
      "now!"
    ;; Keep only a precision of two degrees
    (and (> (length delay) 1) (setcdr (cdr delay) nil))
    (concat (unless past "in ")
	    (let ((str "")
		  del)
	      (while (setq del (pop delay))
		(setq str (concat str
				  (int-to-string (car del)) " "
				  (symbol-name (cdr del))
				  (and (> (car del) 1) "s")
				  (if delay ", "))))
	      str)
	    (and past " ago"))))