Mercurial > emacs
comparison lisp/mail/mail-extr.el @ 91204:53108e6cea98
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-294
author | Miles Bader <miles@gnu.org> |
---|---|
date | Thu, 06 Dec 2007 09:51:45 +0000 |
parents | f55f9811f5d7 e513caccd4ea |
children | 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
91203:db40129142b2 | 91204:53108e6cea98 |
---|---|
1852 ;; | 1852 ;; |
1853 ;; Source: ISO 3166 Maintenance Agency | 1853 ;; Source: ISO 3166 Maintenance Agency |
1854 ;; http://www.iso.org/iso/en/prods-services/iso3166ma/02iso-3166-code-lists/list-en1-semic.txt | 1854 ;; http://www.iso.org/iso/en/prods-services/iso3166ma/02iso-3166-code-lists/list-en1-semic.txt |
1855 ;; http://www.iana.org/domain-names.htm | 1855 ;; http://www.iana.org/domain-names.htm |
1856 ;; http://www.iana.org/cctld/cctld-whois.htm | 1856 ;; http://www.iana.org/cctld/cctld-whois.htm |
1857 ;; Latest change: Mon Jul 8 14:21:59 CEST 2002 | 1857 ;; Latest change: 2007/11/15 |
1858 | 1858 |
1859 (defconst mail-extr-all-top-level-domains | 1859 (defconst mail-extr-all-top-level-domains |
1860 (let ((ob (make-vector 739 0))) | 1860 (let ((ob (make-vector 739 0))) |
1861 (mapc | 1861 (mapc |
1862 (lambda (x) | 1862 (lambda (x) |
1865 (if (nth 2 x) | 1865 (if (nth 2 x) |
1866 (format (nth 2 x) (nth 1 x)) | 1866 (format (nth 2 x) (nth 1 x)) |
1867 (nth 1 x)))) | 1867 (nth 1 x)))) |
1868 '( | 1868 '( |
1869 ;; ISO 3166 codes: | 1869 ;; ISO 3166 codes: |
1870 ("ac" "Ascension Island") | |
1870 ("ad" "Andorra") | 1871 ("ad" "Andorra") |
1871 ("ae" "United Arab Emirates") | 1872 ("ae" "United Arab Emirates") |
1872 ("af" "Afghanistan") | 1873 ("af" "Afghanistan") |
1873 ("ag" "Antigua and Barbuda") | 1874 ("ag" "Antigua and Barbuda") |
1874 ("ai" "Anguilla") | 1875 ("ai" "Anguilla") |
1880 ("ar" "Argentina" "Argentine Republic") | 1881 ("ar" "Argentina" "Argentine Republic") |
1881 ("as" "American Samoa") | 1882 ("as" "American Samoa") |
1882 ("at" "Austria" "The Republic of %s") | 1883 ("at" "Austria" "The Republic of %s") |
1883 ("au" "Australia") | 1884 ("au" "Australia") |
1884 ("aw" "Aruba") | 1885 ("aw" "Aruba") |
1886 ("ax" "Aland Islands") | |
1885 ("az" "Azerbaijan") | 1887 ("az" "Azerbaijan") |
1886 ("ba" "Bosnia-Herzegovina") | 1888 ("ba" "Bosnia-Herzegovina") |
1887 ("bb" "Barbados") | 1889 ("bb" "Barbados") |
1888 ("bd" "Bangladesh") | 1890 ("bd" "Bangladesh") |
1889 ("be" "Belgium" "The Kingdom of %s") | 1891 ("be" "Belgium" "The Kingdom of %s") |
1890 ("bf" "Burkina Faso") | 1892 ("bf" "Burkina Faso") |
1891 ("bg" "Bulgaria") | 1893 ("bg" "Bulgaria") |
1892 ("bh" "Bahrain") | 1894 ("bh" "Bahrain") |
1893 ("bi" "Burundi") | 1895 ("bi" "Burundi") |
1894 ("bj" "Benin") | 1896 ("bj" "Benin") |
1897 ("bl" "Saint Barthelemy") | |
1895 ("bm" "Bermuda") | 1898 ("bm" "Bermuda") |
1896 ("bn" "Brunei Darussalam") | 1899 ("bn" "Brunei Darussalam") |
1897 ("bo" "Bolivia" "Republic of %s") | 1900 ("bo" "Bolivia" "Republic of %s") |
1898 ("br" "Brazil" "The Federative Republic of %s") | 1901 ("br" "Brazil" "The Federative Republic of %s") |
1899 ("bs" "Bahamas") | 1902 ("bs" "Bahamas") |
1931 ("eg" "Egypt" "The Arab Republic of %s") | 1934 ("eg" "Egypt" "The Arab Republic of %s") |
1932 ("eh" "Western Sahara") | 1935 ("eh" "Western Sahara") |
1933 ("er" "Eritrea") | 1936 ("er" "Eritrea") |
1934 ("es" "Spain" "The Kingdom of %s") | 1937 ("es" "Spain" "The Kingdom of %s") |
1935 ("et" "Ethiopia") | 1938 ("et" "Ethiopia") |
1939 ("eu" "European Union") | |
1936 ("fi" "Finland" "The Republic of %s") | 1940 ("fi" "Finland" "The Republic of %s") |
1937 ("fj" "Fiji") | 1941 ("fj" "Fiji") |
1938 ("fk" "Falkland Islands (Malvinas)") | 1942 ("fk" "Falkland Islands (Malvinas)") |
1939 ("fm" "Micronesia" "Federated States of %s") | 1943 ("fm" "Micronesia" "Federated States of %s") |
1940 ("fo" "Faroe Islands") | 1944 ("fo" "Faroe Islands") |
1942 ("ga" "Gabon") | 1946 ("ga" "Gabon") |
1943 ("gb" "United Kingdom") | 1947 ("gb" "United Kingdom") |
1944 ("gd" "Grenada") | 1948 ("gd" "Grenada") |
1945 ("ge" "Georgia") | 1949 ("ge" "Georgia") |
1946 ("gf" "French Guiana") | 1950 ("gf" "French Guiana") |
1951 ("gg" "Guernsey") | |
1947 ("gh" "Ghana") | 1952 ("gh" "Ghana") |
1948 ("gi" "Gibraltar") | 1953 ("gi" "Gibraltar") |
1949 ("gl" "Greenland") | 1954 ("gl" "Greenland") |
1950 ("gm" "Gambia") | 1955 ("gm" "Gambia") |
1951 ("gn" "Guinea") | 1956 ("gn" "Guinea") |
1971 ("io" "British Indian Ocean Territory") | 1976 ("io" "British Indian Ocean Territory") |
1972 ("iq" "Iraq") | 1977 ("iq" "Iraq") |
1973 ("ir" "Iran" "Islamic Republic of %s") | 1978 ("ir" "Iran" "Islamic Republic of %s") |
1974 ("is" "Iceland" "The Republic of %s") | 1979 ("is" "Iceland" "The Republic of %s") |
1975 ("it" "Italy" "The Italian Republic") | 1980 ("it" "Italy" "The Italian Republic") |
1981 ("je" "Jersey") | |
1976 ("jm" "Jamaica") | 1982 ("jm" "Jamaica") |
1977 ("jo" "Jordan") | 1983 ("jo" "Jordan") |
1978 ("jp" "Japan") | 1984 ("jp" "Japan") |
1979 ("ke" "Kenya") | 1985 ("ke" "Kenya") |
1980 ("kg" "Kyrgyzstan") | 1986 ("kg" "Kyrgyzstan") |
1999 ("lv" "Latvia") | 2005 ("lv" "Latvia") |
2000 ("ly" "Libyan Arab Jamahiriya") | 2006 ("ly" "Libyan Arab Jamahiriya") |
2001 ("ma" "Morocco") | 2007 ("ma" "Morocco") |
2002 ("mc" "Monaco") | 2008 ("mc" "Monaco") |
2003 ("md" "Moldova" "The Republic of %s") | 2009 ("md" "Moldova" "The Republic of %s") |
2010 ("me" "Montenegro") | |
2011 ("mf" "Saint Martin (French part)") | |
2004 ("mg" "Madagascar") | 2012 ("mg" "Madagascar") |
2005 ("mh" "Marshall Islands") | 2013 ("mh" "Marshall Islands") |
2006 ("mk" "Macedonia" "The Former Yugoslav Republic of %s") | 2014 ("mk" "Macedonia" "The Former Yugoslav Republic of %s") |
2007 ("ml" "Mali") | 2015 ("ml" "Mali") |
2008 ("mm" "Myanmar") | 2016 ("mm" "Myanmar") |
2047 ("pw" "Palau") | 2055 ("pw" "Palau") |
2048 ("py" "Paraguay") | 2056 ("py" "Paraguay") |
2049 ("qa" "Qatar") | 2057 ("qa" "Qatar") |
2050 ("re" "Reunion (Fr.)") ; In .fr domain | 2058 ("re" "Reunion (Fr.)") ; In .fr domain |
2051 ("ro" "Romania") | 2059 ("ro" "Romania") |
2060 ("rs" "Serbia") | |
2052 ("ru" "Russia" "Russian Federation") | 2061 ("ru" "Russia" "Russian Federation") |
2053 ("rw" "Rwanda") | 2062 ("rw" "Rwanda") |
2054 ("sa" "Saudi Arabia") | 2063 ("sa" "Saudi Arabia") |
2055 ("sb" "Solomon Islands") | 2064 ("sb" "Solomon Islands") |
2056 ("sc" "Seychelles") | 2065 ("sc" "Seychelles") |
2110 ("za" "South Africa" "The Republic of %s") | 2119 ("za" "South Africa" "The Republic of %s") |
2111 ("zm" "Zambia") | 2120 ("zm" "Zambia") |
2112 ("zw" "Zimbabwe" "Republic of %s") | 2121 ("zw" "Zimbabwe" "Republic of %s") |
2113 ;; Generic Domains: | 2122 ;; Generic Domains: |
2114 ("aero" t "Air Transport Industry") | 2123 ("aero" t "Air Transport Industry") |
2124 ("asia" t "Pan-Asia and Asia Pacific community") | |
2115 ("biz" t "Businesses") | 2125 ("biz" t "Businesses") |
2126 ("cat" t "Catalan language and culture") | |
2116 ("com" t "Commercial") | 2127 ("com" t "Commercial") |
2117 ("coop" t "Cooperative Associations") | 2128 ("coop" t "Cooperative Associations") |
2118 ("info" t "Info") | 2129 ("info" t "Info") |
2130 ("jobs" t "Employment") | |
2131 ("mobi" t "Mobile products") | |
2119 ("museum" t "Museums") | 2132 ("museum" t "Museums") |
2120 ("name" t "Individuals") | 2133 ("name" t "Individuals") |
2121 ("net" t "Network") | 2134 ("net" t "Network") |
2122 ("org" t "Non-profit Organization") | 2135 ("org" t "Non-profit Organization") |
2123 ;;("pro" t "Credentialed professionals") | 2136 ("pro" t "Credentialed professionals") |
2137 ("tel" t "Contact data") | |
2138 ("travel" t "Travel industry") | |
2124 ;;("bitnet" t "Because It's Time NET") | 2139 ;;("bitnet" t "Because It's Time NET") |
2125 ("gov" t "United States Government") | 2140 ("gov" t "United States Government") |
2126 ("edu" t "Educational") | 2141 ("edu" t "Educational") |
2127 ("mil" t "United States Military") | 2142 ("mil" t "United States Military") |
2128 ("int" t "International Treaties") | 2143 ("int" t "International Treaties") |