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