455 |
(while tmp-msg-list |
(while tmp-msg-list |
456 |
(let* ((element (car tmp-msg-list)) |
(let* ((element (car tmp-msg-list)) |
457 |
(prompt-string (concat "Delete " |
(prompt-string (concat "Delete " |
458 |
(prin1-to-string (car (cdr element))) |
;; We want to quote any doublequotes |
459 |
|
;; in the string, as well as put |
460 |
|
;; doublequotes around it. |
461 |
|
(prin1-to-string |
462 |
|
(substring-no-properties |
463 |
|
(car (cdr element)) 0)) |
464 |
" from list? ")) |
" from list? ")) |
465 |
(test-input (y-or-n-p prompt-string))) |
(test-input (y-or-n-p prompt-string))) |
466 |
(setq tmp-msg-list (cdr tmp-msg-list)) |
(setq tmp-msg-list (cdr tmp-msg-list)) |
517 |
(while (and entry-list |
(while (and entry-list |
518 |
(calendar-date-equal |
(calendar-date-equal |
519 |
(calendar-current-date) (car (car entry-list)))) |
(calendar-current-date) (car (car entry-list)))) |
520 |
(let ((time-string (substring (prin1-to-string |
(let ((time-string (cadr (car entry-list)))) |
|
(cadr (car entry-list))) 1 -1))) |
|
|
|
|
521 |
(while (string-match |
(while (string-match |
522 |
"\\([0-9]?[0-9]:[0-9][0-9]\\(am\\|pm\\)?\\).*" |
"\\([0-9]?[0-9]:[0-9][0-9]\\(am\\|pm\\)?\\).*" |
523 |
time-string) |
time-string) |