Mercurial > emacs

comparison lisp/mail/mail-extr.el @ 46273:9854e85b69c8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-extr-all-top-level-domains): Update names.
author Simon Josefsson <jas@extundo.com>
date Tue, 09 Jul 2002 10:06:17 +0000
parents 503a8e2a9054
children a298684644ca
comparison
equal deleted inserted replaced
46272:2406cf2da1d4 46273:9854e85b69c8
1828 ;; 1828 ;;
1829 ;; This is used during address canonicalization; be careful of format changes. 1829 ;; This is used during address canonicalization; be careful of format changes.
1830 ;; Keep in mind that the country abbreviations follow ISO-3166. There is 1830 ;; Keep in mind that the country abbreviations follow ISO-3166. There is
1831 ;; a U.S. FIPS that specifies a different set of two-letter country 1831 ;; a U.S. FIPS that specifies a different set of two-letter country
1832 ;; abbreviations. 1832 ;; abbreviations.
1833 ;;
1834 ;; Updated by the RIPE Network Coordination Centre.
1835 ;;
1836 ;; Source: ISO 3166 Maintenance Agency
1837 ;; http://www.iso.org/iso/en/prods-services/iso3166ma/02iso-3166-code-lists/list-en1-semic.txt
1838 ;; http://www.iana.org/domain-names.htm
1839 ;; http://www.iana.org/cctld/cctld-whois.htm
1840 ;; Latest change: Mon Jul 8 14:21:59 CEST 2002
1833 1841
1834 (defconst mail-extr-all-top-level-domains 1842 (defconst mail-extr-all-top-level-domains
1835 (let ((ob (make-vector 739 0))) 1843 (let ((ob (make-vector 739 0)))
1836 (mapc 1844 (mapc
1837 (lambda (x) 1845 (lambda (x)
1877 ("bw" "Botswana") 1885 ("bw" "Botswana")
1878 ("by" "Belarus") 1886 ("by" "Belarus")
1879 ("bz" "Belize") 1887 ("bz" "Belize")
1880 ("ca" "Canada") 1888 ("ca" "Canada")
1881 ("cc" "Cocos (Keeling) Islands") 1889 ("cc" "Cocos (Keeling) Islands")
1882 ("cd" "The Democratic Republic of The Congo") 1890 ("cd" "Congo" "The Democratic Republic of the %s")
1883 ("cf" "Central African Republic") 1891 ("cf" "Central African Republic")
1884 ("cg" "Congo") 1892 ("cg" "Congo")
1885 ("ch" "Switzerland" "The Swiss Confederation") 1893 ("ch" "Switzerland" "The Swiss Confederation")
1886 ("ci" "Ivory Coast") ; Cote D'ivoire 1894 ("ci" "Ivory Coast") ; Cote D'ivoire
1887 ("ck" "Cook Islands") 1895 ("ck" "Cook Islands")
1925 ("gm" "Gambia") 1933 ("gm" "Gambia")
1926 ("gn" "Guinea") 1934 ("gn" "Guinea")
1927 ("gp" "Guadeloupe (Fr.)") 1935 ("gp" "Guadeloupe (Fr.)")
1928 ("gq" "Equatorial Guinea") 1936 ("gq" "Equatorial Guinea")
1929 ("gr" "Greece" "The Hellenic Republic (%s)") 1937 ("gr" "Greece" "The Hellenic Republic (%s)")
1930 ("gs" "South Georgia And The South Sandwich Islands") 1938 ("gs" "South Georgia and The South Sandwich Islands")
1931 ("gt" "Guatemala") 1939 ("gt" "Guatemala")
1932 ("gu" "Guam (U.S.)") 1940 ("gu" "Guam (U.S.)")
1933 ("gw" "Guinea-Bissau") 1941 ("gw" "Guinea-Bissau")
1934 ("gy" "Guyana") 1942 ("gy" "Guyana")
1935 ("hk" "Hong Kong") 1943 ("hk" "Hong Kong")
1936 ("hm" "Heard Island And Mcdonald Islands") 1944 ("hm" "Heard Island and Mcdonald Islands")
1937 ("hn" "Honduras") 1945 ("hn" "Honduras")
1938 ("hr" "Croatia" "Croatia (Hrvatska)") 1946 ("hr" "Croatia" "Croatia (Hrvatska)")
1939 ("ht" "Haiti") 1947 ("ht" "Haiti")
1940 ("hu" "Hungary" "The Hungarian Republic") 1948 ("hu" "Hungary" "The Hungarian Republic")
1941 ("id" "Indonesia") 1949 ("id" "Indonesia")
1959 ("kn" "Saint Kitts and Nevis") 1967 ("kn" "Saint Kitts and Nevis")
1960 ("kp" "Korea (North)" "Democratic People's Republic of Korea") 1968 ("kp" "Korea (North)" "Democratic People's Republic of Korea")
1961 ("kr" "Korea (South)" "Republic of Korea") 1969 ("kr" "Korea (South)" "Republic of Korea")
1962 ("kw" "Kuwait") 1970 ("kw" "Kuwait")
1963 ("ky" "Cayman Islands") 1971 ("ky" "Cayman Islands")
1964 ("kz" "Kazakstan") 1972 ("kz" "Kazakhstan")
1965 ("la" "Lao People's Democratic Republic") 1973 ("la" "Lao People's Democratic Republic")
1966 ("lb" "Lebanon") 1974 ("lb" "Lebanon")
1967 ("lc" "Saint Lucia") 1975 ("lc" "Saint Lucia")
1968 ("li" "Liechtenstein") 1976 ("li" "Liechtenstein")
1969 ("lk" "Sri Lanka" "The Democratic Socialist Republic of %s") 1977 ("lk" "Sri Lanka" "The Democratic Socialist Republic of %s")
1980 ("mh" "Marshall Islands") 1988 ("mh" "Marshall Islands")
1981 ("mk" "Macedonia" "The Former Yugoslav Republic of %s") 1989 ("mk" "Macedonia" "The Former Yugoslav Republic of %s")
1982 ("ml" "Mali") 1990 ("ml" "Mali")
1983 ("mm" "Myanmar") 1991 ("mm" "Myanmar")
1984 ("mn" "Mongolia") 1992 ("mn" "Mongolia")
1985 ("mo" "Macau") 1993 ("mo" "Macao")
1986 ("mp" "Northern Mariana Islands") 1994 ("mp" "Northern Mariana Islands")
1987 ("mq" "Martinique") 1995 ("mq" "Martinique")
1988 ("mr" "Mauritania") 1996 ("mr" "Mauritania")
1989 ("ms" "Montserrat") 1997 ("ms" "Montserrat")
1990 ("mt" "Malta") 1998 ("mt" "Malta")
1991 ("mu" "Mauritius") 1999 ("mu" "Mauritius")
1992 ("mv" "Maldives") 2000 ("mv" "Maldives")
1993 ("mw" "Malawi") 2001 ("mw" "Malawi")
1994 ("mx" "Mexico" "The United Mexican States") 2002 ("mx" "Mexico" "The United Mexican States")
1995 ("my" "Malaysia" "%s (changed to Myanmar?)") ;??? 2003 ("my" "Malaysia")
1996 ("mz" "Mozambique") 2004 ("mz" "Mozambique")
1997 ("na" "Namibia") 2005 ("na" "Namibia")
1998 ("nc" "New Caledonia (Fr.)") 2006 ("nc" "New Caledonia (Fr.)")
1999 ("ne" "Niger") ; In .fr domain 2007 ("ne" "Niger") ; In .fr domain
2000 ("nf" "Norfolk Island") 2008 ("nf" "Norfolk Island")
2007 ("nu" "Niue") 2015 ("nu" "Niue")
2008 ("nz" "New Zealand") 2016 ("nz" "New Zealand")
2009 ("om" "Oman") 2017 ("om" "Oman")
2010 ("pa" "Panama") 2018 ("pa" "Panama")
2011 ("pe" "Peru") 2019 ("pe" "Peru")
2012 ("pf" "Polynesia (Fr.)") 2020 ("pf" "French Polynesia")
2013 ("pg" "Papua New Guinea") 2021 ("pg" "Papua New Guinea")
2014 ("ph" "Philippines" "The Republic of the %s") 2022 ("ph" "Philippines" "The Republic of the %s")
2015 ("pk" "Pakistan") 2023 ("pk" "Pakistan")
2016 ("pl" "Poland") 2024 ("pl" "Poland")
2017 ("pm" "Saint Pierre and Miquelon") 2025 ("pm" "Saint Pierre and Miquelon")
2039 ("sl" "Sierra Leone") 2047 ("sl" "Sierra Leone")
2040 ("sm" "San Marino") 2048 ("sm" "San Marino")
2041 ("sn" "Senegal") 2049 ("sn" "Senegal")
2042 ("so" "Somalia") 2050 ("so" "Somalia")
2043 ("sr" "Suriname") 2051 ("sr" "Suriname")
2044 ("st" "Sao Tome And Principe") 2052 ("st" "Sao Tome and Principe")
2045 ("su" "U.S.S.R." "The Union of Soviet Socialist Republics") 2053 ("su" "U.S.S.R." "The Union of Soviet Socialist Republics")
2046 ("sv" "El Salvador") 2054 ("sv" "El Salvador")
2047 ("sy" "Syrian Arab Republic") 2055 ("sy" "Syrian Arab Republic")
2048 ("sz" "Swaziland") 2056 ("sz" "Swaziland")
2049 ("tc" "Turks And Caicos Islands") 2057 ("tc" "Turks and Caicos Islands")
2050 ("td" "Chad") 2058 ("td" "Chad")
2051 ("tf" "French Southern Territories") 2059 ("tf" "French Southern Territories")
2052 ("tg" "Togo") 2060 ("tg" "Togo")
2053 ("th" "Thailand" "The Kingdom of %s") 2061 ("th" "Thailand" "The Kingdom of %s")
2054 ("tj" "Tajikistan") 2062 ("tj" "Tajikistan")
2055 ("tk" "Tokelau") 2063 ("tk" "Tokelau")
2064 ("tl" "East Timor")
2056 ("tm" "Turkmenistan") 2065 ("tm" "Turkmenistan")
2057 ("tn" "Tunisia") 2066 ("tn" "Tunisia")
2058 ("to" "Tonga") 2067 ("to" "Tonga")
2059 ("tp" "East Timor") 2068 ("tp" "East Timor")
2060 ("tr" "Turkey" "The Republic of %s") 2069 ("tr" "Turkey" "The Republic of %s")
2068 ("um" "United States Minor Outlying Islands") 2077 ("um" "United States Minor Outlying Islands")
2069 ("us" "United States" "The %s of America") 2078 ("us" "United States" "The %s of America")
2070 ("uy" "Uruguay" "The Eastern Republic of %s") 2079 ("uy" "Uruguay" "The Eastern Republic of %s")
2071 ("uz" "Uzbekistan") 2080 ("uz" "Uzbekistan")
2072 ("va" "Holy See (Vatican City State)") 2081 ("va" "Holy See (Vatican City State)")
2073 ("vc" "St. Vincent and the Grenadines") 2082 ("vc" "Saint Vincent and the Grenadines")
2074 ("ve" "Venezuela" "The Republic of %s") 2083 ("ve" "Venezuela" "The Republic of %s")
2075 ("vg" "Virgin Islands, British") 2084 ("vg" "Virgin Islands, British")
2076 ("vi" "Virgin Islands, U.S.") 2085 ("vi" "Virgin Islands, U.S.")
2077 ("vn" "Vietnam") 2086 ("vn" "Vietnam")
2078 ("vu" "Vanuatu") 2087 ("vu" "Vanuatu")
2082 ("yt" "Mayotte") 2091 ("yt" "Mayotte")
2083 ("yu" "Yugoslavia" "Yugoslavia, AKA Serbia-Montenegro") 2092 ("yu" "Yugoslavia" "Yugoslavia, AKA Serbia-Montenegro")
2084 ("za" "South Africa" "The Republic of %s") 2093 ("za" "South Africa" "The Republic of %s")
2085 ("zm" "Zambia") 2094 ("zm" "Zambia")
2086 ("zw" "Zimbabwe" "Republic of %s") 2095 ("zw" "Zimbabwe" "Republic of %s")
2087 ;; Special top-level domains: 2096 ;; Generic Domains:
2088 ("arpa" t "Advanced Research Projects Agency (U.S. DoD)") 2097 ("aero" t "Air Transport Industry")
2089 ("bitnet" t "Because It's Time NET") 2098 ("biz" t "Businesses")
2090 ("com" t "Commercial") 2099 ("com" t "Commercial")
2091 ("edu" t "Educational") 2100 ("coop" t "Cooperative Associations")
2092 ("gov" t "Government (U.S.)") 2101 ("info" t "Info")
2093 ("int" t "International (NATO)") 2102 ("museum" t "Museums")
2094 ("mil" t "Military (U.S.)") 2103 ("name" t "Individuals")
2095 ("nato" t "North Atlantic Treaty Organization")
2096 ("net" t "Network") 2104 ("net" t "Network")
2097 ("org" t "Non-profit Organization") 2105 ("org" t "Non-profit Organization")
2098 ;;("unter-dom" t "? (Ger.)") 2106 ;;("pro" t "Credentialed professionals")
2107 ;;("bitnet" t "Because It's Time NET")
2108 ("gov" t "United States Government")
2109 ("edu" t "Educational")
2110 ("mil" t "United States Military")
2111 ("int" t "International Treaties")
2112 ;;("nato" t "North Atlantic Treaty Organization")
2099 ("uucp" t "Unix to Unix CoPy") 2113 ("uucp" t "Unix to Unix CoPy")
2100 ;;("fipnet" nil "?") 2114 ;; Infrastructure Domains:
2115 ("arpa" t "Advanced Research Projects Agency (U.S. DoD)")
2101 )) 2116 ))
2102 ob)) 2117 ob))
2103 2118
2104 ;;;###autoload 2119 ;;;###autoload
2105 (defun what-domain (domain) 2120 (defun what-domain (domain)