[Erbot-cvs] Changes to erbot/erbc.el

[Pete Kazmier]

Index: erbot/erbc.el
diff -u erbot/erbc.el:1.82 erbot/erbc.el:1.83
--- erbot/erbc.el:1.82  Sat Jan  8 21:35:44 2005
+++ erbot/erbc.el       Sun Jan  9 01:10:42 2005
@@ -820,10 +820,7 @@
                         (string-match fs-web-page-title-p tgt))
                  t))
       (let* ((case-fold-search t)
-             (url (some (lambda (e)
-                          (when (string-match "^http://[^ ]+$" e)
-                            e))
-                        msg)))
+             (url (some 'erbutils-html-url-p msg)))
         (when url
           (setq leave-alone-p nil)
           (setq msg (list "(" "web-page-title" (format "%S" url) ")")))))