anchor.diff:  		    (or
   		     (not (> (length x) 0)) ; bigger than 0
   		     (cl-ppcre::scan "^#" x) ; not a JS hash trick
  -		     (cl-ppcre::scan "^ftp\:\/\/" x))) ; not ftp
  +		     (cl-ppcre::scan "^ftp\:\/\/" x) ; not ftp
  +		     (cl-ppcre::scan "^mailto\:" x) ; not "mailto"
  +		     (cl-ppcre::scan "^feed\:\/\/" x))) ; not a "feed" link
   		  (PURI:URI-PARSE-ERROR (upe) (declare (ignore upe)) t)))
   	     list))
   
  
positive.code:    ;; form # TODO
     ;; Agent slots.
     user-agent
     current-link
     errors
     content
     code
  
negative.code: (defmethod fetch ((agent agent) link)
    "Fetch a URL with a string for the link argument."
    (purge agent)
    (setf (current-url agent) link)
    (with-fetch-attempt agent +agent-timeout+
      (http-request link :redirect 100 :user-agent (user-agent agent))))
  
  