Deleting the next appt

Deleting the next appt

[Robert Marshall]

I have - for some days - a number of appointments in my diary that get
added to my appt-list, I get warned about them, I take the required
action and then I want to delete the appointment. 

If I use appt-delete I get asked whether I want to delete every
appointment for the day which eventually provoked me into producing
the following, which only asks about the first appointment in the list,
basically a hack of appt-delete and no doubt common code could be
extracted from the two routines to make the whole thing a bit cleaner

(defun appt-delete-first ()
  "Delete the first appointment from the list of appointments."
  (interactive)
  (let* ((tmp-msg-list appt-time-msg-list))
    (if tmp-msg-list
	(let* ((element (car tmp-msg-list))
	       (prompt-string (concat "Delete "
				      ;; We want to quote any doublequotes
				      ;; in the string, as well as put
				      ;; doublequotes around it.
				      (prin1-to-string
				       (substring-no-properties
					(car (cdr element)) 0))
				      " from list? "))
	   (test-input (y-or-n-p prompt-string)))
	  (setq tmp-msg-list (cdr tmp-msg-list))
	  (if test-input
	      (setq appt-time-msg-list (delq element appt-time-msg-list))))
      (message "no appointments to delete")
      (sit-for 2))
    (appt-check)
    (message "")))

.. just in case anyone else gets similarly frustrated!

Robert
-- 
Poetry's not window cleaning.
It breaks the glass.
-- Chase Twichell