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:    (%nickname :initarg :nick :initform NIL :accessor nick)
     (%sender :initarg :sender :initform NIL :accessor sender)
     (%timestamp :initarg :timestamp :initform NIL :accessor timestamp)
     (%message :initarg :message :initform NIL :accessor message)
     (%trigger :initarg :trigger :initform :message :accessor trigger)))
  
  (defmethod print-object ((note note) stream)
    (print-unreadable-object (note stream :type T)
      (format stream "~a ~a ~a ~a -> ~a" (timestamp note) (server note) (channel note) (sender note) (nick note))))
  
  (uc:define-serializer (note note T)
    (make-array 7 :initial-contents (list (server note) (channel note) (nick note) (sender note) (timestamp note) (message note) (trigger note))))
  
  (uc:define-deserializer (note array T)
    (make-instance 'note
  