Add more URI schemes to thing-at-point-uri-schemes.

[Diane Murray]

Running (thing-at-point 'url) on a URL starting with "irc:" returns
"http://irc:";.  This is because `thing-at-point-uri-schemes' doesn't
have "irc:" in its definition.

<http://www.iana.org/assignments/uri-schemes.html> doesn't list irc as
an official URI scheme, but it does have quite a few new ones that
haven't been added to `thing-at-point-uri-schemes'.

The following patch adds the new schemes and "irc:".  It also adds two
others that I see often, "mms://" and "mmsh://", which are comparable
to rtsp.


2006-11-18  Diane Murray  <address@hidden>

        * thingatpt.el (thing-at-point-uri-schemes): Added schemes that
        are new to the list at IANA.  Also added irc, mms, mmsh.


--- thingatpt.el        18 Sep 2006 15:04:32 +0200      1.37
+++ thingatpt.el        18 Nov 2006 17:40:22 +0100      
@@ -214,15 +214,18 @@
 ``thing-at-point-url-regexp''.")
 
 (defvar thing-at-point-uri-schemes
-  ;; Officials from http://www.iana.org/assignments/uri-schemes
+  ;; Officials from http://www.iana.org/assignments/uri-schemes.html
   '("ftp://"; "http://"; "gopher://"; "mailto:"; "news:"; "nntp:";
     "telnet://" "wais://" "file:/" "prospero:" "z39.50s:" "z39.50r:"
     "cid:" "mid:" "vemmi:" "service:" "imap:" "nfs:" "acap:" "rtsp:"
     "tip:" "pop:" "data:" "dav:" "opaquelocktoken:" "sip:" "tel:" "fax:"
     "modem:" "ldap:" "https://"; "soap.beep:" "soap.beeps:" "urn:" "go:"
     "afs:" "tn3270:" "mailserver:"
+    "crid:" "dict:" "dns:" "dtn:" "h323:" "im:" "info:" "ipp:"
+    "iris.beep:" "mtqp:" "mupdate:" "pres:" "sips:" "snmp:" "tag:"
+    "tftp:" "xmlrpc.beep:" "xmlrpc.beeps:" "xmpp:"
   ;; Compatibility
-    "snews:";)
+    "snews:"; "irc:" "mms://" "mmsh://")
   "Uniform Resource Identifier (URI) Schemes.")
 
 (defvar thing-at-point-url-regexp