Advising appt-mode

[Richard Lewis]

Hi there,

I'm trying to make appt-mode display popup messages on my desktop
(using a small wrapper function for libnotify) by advising the
appt-check function like this:

(defadvice appt-check (after appt-notify)
  (when (and appt-issue-message appt-time-msg-list)
    (when (and (<= min-to-app appt-message-warning-time)
               (>= min-to-app 0))
      (rjl/notify (format "%s <b>in %d minutes</b>" (cadr (car 
appt-time-msg-list)) min-to-app) "Appointment"))))

I've not tried using defadvice before and this attempt isn't
working. It doesn't even work if I remove both the (when) conditions
and leave just the (rjl/notify) call. (BTW, (rjl/notify) works fine in
all other contexts.)

Any ideas?
-- 
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Richard Lewis
ISMS, Computing
Goldsmiths, University of London
JID: ironchicken@jabber.earth.li
http://www.richard-lewis.me.uk/
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+-------------------------------------------------------+
|Please avoid sending me Word or PowerPoint attachments.|
|http://www.gnu.org/philosophy/no-word-attachments.html |
+-------------------------------------------------------+