*** code/emacs/lisp/net/goto-addr.el	Tue Aug  2 09:58:56 2005
--- /Users/ted/Desktop/goto-addr.el	Tue Oct 25 16:08:49 2005
***************
*** 105,116 ****
    "A regular expression probably matching an e-mail address.")
  
  (defvar goto-address-url-regexp
!   (concat "\\<\\("
! 	  (mapconcat 'identity
! 		     (delete "mailto:" (copy-sequence thing-at-point-uri-schemes))
! 		     "\\|")
! 	  "\\)"
!           thing-at-point-url-path-regexp)
    ;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|"
    ;; 	  "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:"
    ;; 	  "[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*"
--- 105,119 ----
    "A regular expression probably matching an e-mail address.")
  
  (defvar goto-address-url-regexp
!   (concat
!    "\\<\\("
!    (mapconcat 'identity
!               (delete "mailto:"
!                       (delete "data:"
!                               (copy-sequence thing-at-point-uri-schemes)))
!               "\\|")
!    "\\)"
!    thing-at-point-url-path-regexp)
    ;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|"
    ;; 	  "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:"
    ;; 	  "[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*"