anchor.diff:                  (ppcre:regex-replace-all "\\s+" snippet " "))
      100))
   
  -(defun generic-uri-summary (response headers)
  -  (multiple-value-bind (type subtype)
  -      (drakma:get-content-type headers)
  -    (alexandria:switch ((concatenate 'string type "/" subtype) :test #'string=)
  -      ("text/html"
  -       (let* ((dom (plump:parse response))
  -              (titles (and dom (plump:get-elements-by-tag-name dom "title")))
  -              (title-text-node (and titles (plump:first-child (first titles)))))
  -         (when title-text-node
  -           (format-snippet (plump:text title-text-node)))))
  -      ("text/plain"
  -       (format-snippet response)))))
  +(defun generic-uri-summary (response content-type)
  +  (alexandria:switch (content-type :test #'string=)
  +    ("text/html"
  +     (let* ((dom (plump:parse response))
  +            (titles (and dom (plump:get-elements-by-tag-name dom "title")))
  +            (title-text-node (and titles (plump:first-child (first titles)))))
  +       (when title-text-node
  +         (format-snippet (plump:text title-text-node)))))
  +    ("text/plain"
  +     (format-snippet response))))
   
   (defun retrieve-uri-summary (uri)
     (handler-case
  
positive.code:                             (message irc:irc-privmsg-message))
    (ppcre:do-matches-as-strings  (uri-string "https?:\\/\\/[-a-zA-Z0-9@:%._\\+~#=]{2,256}\\.[a-z]{2,6}\\b[-a-zA-Z0-9@:%_\\+.~#&//=]*\\??[-a-zA-Z0-9@:%_\\+.~#&//=]*" (second (arguments message)) nil :sharedp t)
      (when (< (length uri-string) 2083)
        ;; save url
        (pushnew uri-string (urls-of module) :test #'string=)
        (save-urls module)
  
negative.code:           (let* ((buf (make-string 8196))
                   (len (read-sequence buf response)))
              (close response)
              (generic-uri-summary (subseq buf 0 len)
                                   (multiple-value-bind (type subtype)
                                       (drakma:get-content-type headers)
                                     (concatenate 'string type "/" subtype))))))
      (usocket:ns-host-not-found-error ()
        "ERROR: Host not found")))
  
  