anchor.diff:           (reply-chat connection (xmpp:from message)
                        title (xmpp::type- message)))))))
   
  -(defun reply-chat (connection to reply kind)
  +(defun reply-nick (from)
  +  (let ((pos (position #\/ from)))
  +    (when pos (subseq from (1+ pos)))))
  +
  +(defun reply-chat (connection to reply kind &key highlight)
     (if (string-equal kind "groupchat")
       (let* ((pos (position #\/ to))
  -           (to (if pos (subseq to 0 pos) to)))
  +           (to (if pos (subseq to 0 pos) to))
  +           (reply (if highlight (format nil "~a: ~a" highlight reply) reply)))
         (xmpp:message connection to reply :type :groupchat))
       (xmpp:message connection to reply :type :chat)))
   
  
positive.code:                      (+ (array-total-size buffer) buff-size)
                       :fill-pointer t))))
  
  (defun get-http-page-title (url)
    (multiple-value-bind (stream status headers) (drakma:http-request url :want-stream t)
      (unwind-protect
           (when (and (= status 200) (search "text/html" (cdr (assoc :content-type headers))))
             (read-until stream #'(lambda (data)
                                    (ppcre:register-groups-bind
                                        (title)
                                        ("(?i)<title>([^<]*)</title>" data :sharedp t)
                                      title))
                         :result-only t))
        (close stream))))
  
  (defun process-common (connection message)
  
negative.code:                  (xmpp::type- message)))
      ((optima.ppcre:ppcre "^say (.*)$" text)
       (reply-chat connection (xmpp:from message)
                   text (xmpp::type- message)
                   :highlight (reply-nick (xmpp:from message))))
      ((optima.ppcre:ppcre "^man ([^:]+):([^/]+)/(.+)$" m f a)
       (reply-chat connection (xmpp:from message)
                   (get-erl-man-info m f a) (xmpp::type- message)))
  