patch: remove data: URLs from goto-address-url-regexp

[Edward O'Connor]

Hi,

Included is a trivial patch to net/goto-addr.el which removes data: URLs
from goto-address-url-regexp.

I noticed that 'use Data::Dumper;' was being fontified oddly in Perl
files, and tracked it down to this. As far as I know, following such
URLs in Emacs is not terribly useful.


Ted

-- 
Edward O'Connor
address@hidden

Ense petit placidam sub libertate quietem.

*** 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]*\\)address@hidden&*+|\\/.,]*"
--- 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]*\\)address@hidden&*+|\\/.,]*"