Function: gnus-search-mu-handle-date

gnus-search-mu-handle-date is a byte-compiled function defined in gnus-search.el.gz.

Signature

(gnus-search-mu-handle-date DATE)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-search.el.gz
(defun gnus-search-mu-handle-date (date)
  (if (stringp date)
      date
    (pcase date
      (`(nil ,m nil)
       (nth (1- m) gnus-english-month-names))
      (`(nil nil ,y)
       (number-to-string y))
      ;; mu prefers ISO date YYYY-MM-DD HH:MM:SS
      (`(,d ,m nil)
       (let* ((ct (decode-time))
	      (cm (decoded-time-month ct))
	      (cy (decoded-time-year ct))
	      (y (if (> cm m)
		     cy
		   (1- cy))))
	 (format "%d-%02d-%02d" y m d)))
      (`(nil ,m ,y)
       (format "%d-%02d" y m))
      (`(,d ,m ,y)
       (format "%d-%02d-%02d" y m d)))))