Hi Benjamin,
> Thanks, Marco. Well, it at least helps to update me to a non-obsolete
> sexp method.
>
> I have no idea how to check what's actually been pushed to `appt` to see
> whether the updated org-class really behaves differently to
> org-diary-class in this respect. (So I'll have to see tomorrow how
> `appt` behaves.)
You can use
M-x appt-delete
for scanning through your current appointments. For each appointment
you will be asked for deletion. Saying 'no' just keeps the appointment.
You might even look at variable `appt-time-msg-list' or use the
following function to see a list of your current appointments.
#v+
(defun mw-appt-display-list ()
"List the current appointments.
This is an amendment to the appt-family of functions. Sometimes
you might want to know the upcoming appts."
(interactive)
(if (not (boundp 'appt-time-msg-list))
(message "`appt-time-msg-list' not even bound. Consider M-x
org-agenda-to-appt.")
(if appt-time-msg-list
(let ((tmp-msg-list appt-time-msg-list)
(message-string ""))
(dolist (element tmp-msg-list)
(setq message-string
(concat message-string
(prin1-to-string
(substring-no-properties (cadr element) 0))
"\n")))
(if (< 0 (length message-string))
(message (substring message-string 0 -1))))
(message "No appts scheduled for today."))))
#v-
Best wishes, Marco
--
http://www.wahlzone.de
GPG: 0x49010A040A3AE6F2
