204 |
(let ((head (cdr (assoc (intern (format "X-Diary-%s" (car elt))) |
(let ((head (cdr (assoc (intern (format "X-Diary-%s" (car elt))) |
205 |
headers)))) |
headers)))) |
206 |
(when head |
(when head |
207 |
(nndiary-parse-schedule-value head (cadr elt) (caddr elt))))) |
(nndiary-parse-schedule-value head (cadr elt) (car (cddr elt)))))) |
208 |
nndiary-headers)) |
nndiary-headers)) |
209 |
|
|
210 |
;; #### NOTE: Gnus sometimes gives me a HEADER not corresponding to any |
;; #### NOTE: Gnus sometimes gives me a HEADER not corresponding to any |