anchor.diff:  
   (defmethod examine-message ((self base-module)
                              (message irc:irc-quit-message))
  +  (when (member (source message) (authnicks-of self) :test #'string-equal)
  +    (log:log-message :info "De-authenticating ~a due to quit." (source message))
  +    (setf (authnicks-of self)
  +          (delete (source message) (authnicks-of self) :test #'string-equal)))
     (when (and (string= (source message) (nickname-of self))
                (string/= (nickname (user (connection message)))
                          (nickname-of self)))
  
positive.code: (defun dispatch-module-event (message)
    (with-simple-restart (continue "Continue from signal in message hook")
      (dolist (module *active-modules*)
        (unless (access-denied module message)
          (examine-message module message)))
      (dolist (module *active-modules*)
        (unless (access-denied module message)
          (when (handle-message module message)
            (return-from dispatch-module-event t))))
      t))
  
negative.code:           (delete (first (arguments message)) (autojoins-of self) :test #'string-equal))
      (write-to-file (data-path "autojoins.lisp") (autojoins-of self))))
  
  (defun access-denied (base-module module message &optional command)
    "Returns NIL if the message should be responded to.  Returns a
    function to be called if access was denied."
  
  