anchor.diff:  (define-handler (privmsg-event event) (:modulevar notify)
     (let ((newlist ()))
       (dolist (note (uc:config-tree :notes))
  -      (if (and (string-equal (nick event) (nick note))
  -               (string= (channel event) (channel note))
  -               (string= (string-upcase (name (server event))) (server note)))
  +      (if (and (string-equal (nick note) (nick event))
  +               (string= (channel note) (channel event))
  +               (string= (server note) (string-upcase (name (server event))))
  +               (eql (trigger note) :message))
             (progn (v:debug :notify "Delivering note ~a." note)
                    (respond event "~a: ~a wrote to you on ~a : ~a"
                             (nick note) (sender note) (timestamp note) (message note)))
             (push note newlist)))
       (setf (uc:config-tree :notes) (nreverse newlist))))
  +
  +(define-handler (join-event event) (:modulevar notify)
  +  (let ((newlist ()))
  +    (dolist (note (uc:config-tree :notes))
  +      (if (and (string-equal (nick note) (nick event))
  +               (string= (channel note) (channel event))
  +               (string= (server note) (string-upcase (name (server event))))
  +               (eql (trigger note) :join))
  +          (progn (v:debug :notify "Delivering note ~a." note)
  +                 (respond event "~a: ~a wrote to you on ~a : ~a"
  +                          (nick note) (sender note) (timestamp note) (message note)))
  +          (push note newlist)))
  +    (setf (uc:config-tree :notes) (nreverse newlist))))
  
positive.code: 
  (in-package :org.tymoonnext.colleen)
  (defpackage org.tymoonnext.colleen.mod.notify
    (:use :cl :colleen :events :alexandria :local-time)
    (:shadow :load))
  (in-package :org.tymoonnext.colleen.mod.notify)
  
  (defparameter *timestamp-format* '(:long-weekday #\Space (:year 4) #\. (:month 2) #\. (:day 2) #\Space (:hour 2) #\: (:min 2) #\: (:sec 2)))
  
negative.code:                  :nick (aref array 2)
                   :sender (aref array 3)
                   :timestamp (aref array 4)
                   :message (aref array 5)
                   :trigger (aref array 6)))
  
  (define-command notify (recipient &rest message) (:modulevar notify)
    (cond ((string-equal recipient (nick (server event)))
           (respond event "~a: I'm right here." (nick event)))
          ((string-equal recipient (nick event))
           (respond event "~a: Are you feeling lonely?" (nick event)))
          ((string-equal recipient "@join")
           (let ((recipient (pop message)))
             (v:debug :notify "Creating new note by ~a for ~a" (nick event) recipient)
             (push (make-instance 
                    'note 
                    :message (format NIL "~{~a~^ ~}" message) 
                    :sender (nick event) 
                    :nick recipient 
                    :channel (channel event) 
                    :server (string-upcase (name (server event)))
                    :timestamp (format-timestring NIL (now) :format *timestamp-format*)
                    :trigger :join)
                   (uc:config-tree :notes))
             (respond event "~a: Remembered. I will remind ~a when he/she/it next joins." (nick event) recipient)))
          (T
           (v:debug :notify "Creating new note by ~a for ~a" (nick event) recipient)
           (push (make-instance 
  