Mercurial > emacs

comparison lisp/mail/mail-extr.el @ 38363:413a99578997

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-extr-all-top-level-domains): Increase the size of the obarray. (mail-extr-all-top-level-domains): Add more toplevel domains, add more long names. From: Per Starback <starback@ling.uu.se>.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 11 Jul 2001 11:17:44 +0000
parents aca2b7839d21
children 253f761ad37b
comparison
equal deleted inserted replaced
38362:0bb8ff53e7ba 38363:413a99578997
1 ;;; mail-extr.el --- extract full name and address from RFC 822 mail header. 1 ;;; mail-extr.el --- extract full name and address from RFC 822 mail header.
2 2
3 ;; Copyright (C) 1991, 1992, 1993, 1994, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1991, 1992, 1993, 1994, 1997, 2001
4 ;; Free Software Foundation, Inc.
4 5
5 ;; Author: Joe Wells <jbw@cs.bu.edu> 6 ;; Author: Joe Wells <jbw@cs.bu.edu>
6 ;; Maintainer: FSF 7 ;; Maintainer: FSF
7 ;; Keywords: mail 8 ;; Keywords: mail
8 9
1840 ;; Keep in mind that the country abbreviations follow ISO-3166. There is 1841 ;; Keep in mind that the country abbreviations follow ISO-3166. There is
1841 ;; a U.S. FIPS that specifies a different set of two-letter country 1842 ;; a U.S. FIPS that specifies a different set of two-letter country
1842 ;; abbreviations. 1843 ;; abbreviations.
1843 1844
1844 (defconst mail-extr-all-top-level-domains 1845 (defconst mail-extr-all-top-level-domains
1845 (let ((ob (make-vector 509 0))) 1846 (let ((ob (make-vector 739 0)))
1846 (mapcar 1847 (mapcar
1847 (function 1848 (function
1848 (lambda (x) 1849 (lambda (x)
1849 (put (intern (downcase (car x)) ob) 1850 (put (intern (downcase (car x)) ob)
1850 'domain-name 1851 'domain-name
1853 (nth 1 x))))) 1854 (nth 1 x)))))
1854 '( 1855 '(
1855 ;; ISO 3166 codes: 1856 ;; ISO 3166 codes:
1856 ("ad" "Andorra") 1857 ("ad" "Andorra")
1857 ("ae" "United Arab Emirates") 1858 ("ae" "United Arab Emirates")
1859 ("af" "Afghanistan")
1858 ("ag" "Antigua and Barbuda") 1860 ("ag" "Antigua and Barbuda")
1861 ("ai" "Anguilla")
1859 ("al" "Albania") 1862 ("al" "Albania")
1860 ("am" "Armenia") 1863 ("am" "Armenia")
1864 ("an" "Netherlands Antilles")
1861 ("ao" "Angola") 1865 ("ao" "Angola")
1862 ("aq" "Antarctica") ; continent 1866 ("aq" "Antarctica") ; continent
1863 ("ar" "Argentina" "Argentine Republic") 1867 ("ar" "Argentina" "Argentine Republic")
1868 ("as" "American Samoa")
1864 ("at" "Austria" "The Republic of %s") 1869 ("at" "Austria" "The Republic of %s")
1865 ("au" "Australia") 1870 ("au" "Australia")
1871 ("aw" "Aruba")
1866 ("az" "Azerbaijan") 1872 ("az" "Azerbaijan")
1867 ("ba" "Bosnia-Herzegovina") 1873 ("ba" "Bosnia-Herzegovina")
1868 ("bb" "Barbados") 1874 ("bb" "Barbados")
1869 ("bd" "Bangladesh") 1875 ("bd" "Bangladesh")
1870 ("be" "Belgium" "The Kingdom of %s") 1876 ("be" "Belgium" "The Kingdom of %s")
1871 ("bf" "Burkina Faso") 1877 ("bf" "Burkina Faso")
1872 ("bg" "Bulgaria") 1878 ("bg" "Bulgaria")
1873 ("bh" "Bahrain") 1879 ("bh" "Bahrain")
1880 ("bi" "Burundi")
1881 ("bj" "Benin")
1874 ("bm" "Bermuda") 1882 ("bm" "Bermuda")
1883 ("bn" "Brunei Darussalam")
1875 ("bo" "Bolivia" "Republic of %s") 1884 ("bo" "Bolivia" "Republic of %s")
1876 ("br" "Brazil" "The Federative Republic of %s") 1885 ("br" "Brazil" "The Federative Republic of %s")
1877 ("bs" "Bahamas") 1886 ("bs" "Bahamas")
1887 ("bt" "Bhutan")
1888 ("bv" "Bouvet Island")
1878 ("bw" "Botswana") 1889 ("bw" "Botswana")
1879 ("by" "Belarus") 1890 ("by" "Belarus")
1880 ("bz" "Belize") 1891 ("bz" "Belize")
1881 ("ca" "Canada") 1892 ("ca" "Canada")
1893 ("cc" "Cocos (Keeling) Islands")
1894 ("cd" "The Democratic Republic of The Congo")
1895 ("cf" "Central African Republic")
1882 ("cg" "Congo") 1896 ("cg" "Congo")
1883 ("ch" "Switzerland" "The Swiss Confederation") 1897 ("ch" "Switzerland" "The Swiss Confederation")
1884 ("ci" "Ivory Coast") 1898 ("ci" "Ivory Coast") ; Cote D'ivoire
1899 ("ck" "Cook Islands")
1885 ("cl" "Chile" "The Republic of %s") 1900 ("cl" "Chile" "The Republic of %s")
1886 ("cm" "Cameroon") ; In .fr domain 1901 ("cm" "Cameroon") ; In .fr domain
1887 ("cn" "China" "The People's Republic of %s") 1902 ("cn" "China" "The People's Republic of %s")
1888 ("co" "Colombia") 1903 ("co" "Colombia")
1889 ("cr" "Costa Rica" "The Republic of %s") 1904 ("cr" "Costa Rica" "The Republic of %s")
1890 ("cs" "Czechoslovakia")
1891 ("cu" "Cuba") 1905 ("cu" "Cuba")
1906 ("cv" "Cape Verde")
1907 ("cx" "Christmas Island")
1892 ("cy" "Cyprus") 1908 ("cy" "Cyprus")
1893 ("cz" "Czech Republic") 1909 ("cz" "Czech Republic")
1894 ("de" "Germany") 1910 ("de" "Germany")
1911 ("dj" "Djibouti")
1895 ("dk" "Denmark") 1912 ("dk" "Denmark")
1896 ("dm" "Dominica") 1913 ("dm" "Dominica")
1897 ("do" "Dominican Republic" "The %s") 1914 ("do" "Dominican Republic" "The %s")
1898 ("dz" "Algeria") 1915 ("dz" "Algeria")
1899 ("ec" "Ecuador" "The Republic of %s") 1916 ("ec" "Ecuador" "The Republic of %s")
1900 ("ee" "Estonia") 1917 ("ee" "Estonia")
1901 ("eg" "Egypt" "The Arab Republic of %s") 1918 ("eg" "Egypt" "The Arab Republic of %s")
1919 ("eh" "Western Sahara")
1902 ("er" "Eritrea") 1920 ("er" "Eritrea")
1903 ("es" "Spain" "The Kingdom of %s") 1921 ("es" "Spain" "The Kingdom of %s")
1904 ("et" "Ethiopia") 1922 ("et" "Ethiopia")
1905 ("fi" "Finland" "The Republic of %s") 1923 ("fi" "Finland" "The Republic of %s")
1924 ("fj" "Fiji")
1925 ("fk" "Falkland Islands (Malvinas)")
1926 ("fm" "Micronesia" "Federated States of %s")
1906 ("fo" "Faroe Islands") 1927 ("fo" "Faroe Islands")
1907 ("fr" "France") 1928 ("fr" "France")
1908 ("ga" "Gabon") 1929 ("ga" "Gabon")
1909 ("gb" "United Kingdom") 1930 ("gb" "United Kingdom")
1910 ("gd" "Grenada") 1931 ("gd" "Grenada")
1911 ("ge" "Georgia") 1932 ("ge" "Georgia")
1912 ("gf" "Guyana (Fr.)") 1933 ("gf" "French Guiana")
1913 ("gj" "Fiji") 1934 ("gh" "Ghana")
1935 ("gi" "Gibraltar")
1914 ("gl" "Greenland") 1936 ("gl" "Greenland")
1915 ("gm" "Gambia") 1937 ("gm" "Gambia")
1938 ("gn" "Guinea")
1916 ("gp" "Guadeloupe (Fr.)") 1939 ("gp" "Guadeloupe (Fr.)")
1940 ("gq" "Equatorial Guinea")
1917 ("gr" "Greece" "The Hellenic Republic (%s)") 1941 ("gr" "Greece" "The Hellenic Republic (%s)")
1942 ("gs" "South Georgia And The South Sandwich Islands")
1918 ("gt" "Guatemala") 1943 ("gt" "Guatemala")
1919 ("gu" "Guam (U.S.)") 1944 ("gu" "Guam (U.S.)")
1945 ("gw" "Guinea-Bissau")
1946 ("gy" "Guyana")
1920 ("hk" "Hong Kong") 1947 ("hk" "Hong Kong")
1948 ("hm" "Heard Island And Mcdonald Islands")
1921 ("hn" "Honduras") 1949 ("hn" "Honduras")
1922 ("hr" "Croatia" "Croatia (Hrvatska)") 1950 ("hr" "Croatia" "Croatia (Hrvatska)")
1923 ("ht" "Haiti") 1951 ("ht" "Haiti")
1924 ("hu" "Hungary" "The Hungarian Republic") 1952 ("hu" "Hungary" "The Hungarian Republic")
1925 ("id" "Indonesia") 1953 ("id" "Indonesia")
1926 ("ie" "Ireland") 1954 ("ie" "Ireland")
1927 ("il" "Israel" "The State of %s") 1955 ("il" "Israel" "The State of %s")
1928 ("im" "Isle of Man" "The %s") 1956 ("im" "Isle of Man" "The %s") ; NOT in ISO 3166-1 of 2001-02-26
1929 ("in" "India" "The Republic of %s") 1957 ("in" "India" "The Republic of %s")
1930 ("ir" "Iran") 1958 ("io" "British Indian Ocean Territory")
1959 ("iq" "Iraq")
1960 ("ir" "Iran" "Islamic Republic of %s")
1931 ("is" "Iceland" "The Republic of %s") 1961 ("is" "Iceland" "The Republic of %s")
1932 ("it" "Italy" "The Italian Republic") 1962 ("it" "Italy" "The Italian Republic")
1933 ("jm" "Jamaica") 1963 ("jm" "Jamaica")
1934 ("jo" "Jordan") 1964 ("jo" "Jordan")
1935 ("jp" "Japan") 1965 ("jp" "Japan")
1936 ("ke" "Kenya") 1966 ("ke" "Kenya")
1937 ("kn" "St. Kitts, Nevis, and Anguilla") 1967 ("kg" "Kyrgyzstan")
1938 ("kp" "Korea (North)") 1968 ("kh" "Cambodia")
1939 ("kr" "Korea (South)") 1969 ("ki" "Kiribati")
1970 ("km" "Comoros")
1971 ("kn" "Saint Kitts and Nevis")
1972 ("kp" "Korea (North)" "Democratic People's Republic of Korea")
1973 ("kr" "Korea (South)" "Republic of Korea")
1940 ("kw" "Kuwait") 1974 ("kw" "Kuwait")
1941 ("kz" "Kazakhstan") 1975 ("ky" "Cayman Islands")
1976 ("kz" "Kazakstan")
1977 ("la" "Lao People's Democratic Republic")
1942 ("lb" "Lebanon") 1978 ("lb" "Lebanon")
1943 ("lc" "St. Lucia") 1979 ("lc" "Saint Lucia")
1944 ("li" "Liechtenstein") 1980 ("li" "Liechtenstein")
1945 ("lk" "Sri Lanka" "The Democratic Socialist Republic of %s") 1981 ("lk" "Sri Lanka" "The Democratic Socialist Republic of %s")
1982 ("lr" "Liberia")
1946 ("ls" "Lesotho") 1983 ("ls" "Lesotho")
1947 ("lt" "Lithuania") 1984 ("lt" "Lithuania")
1948 ("lu" "Luxembourg") 1985 ("lu" "Luxembourg")
1949 ("lv" "Latvia") 1986 ("lv" "Latvia")
1987 ("ly" "Libyan Arab Jamahiriya")
1950 ("ma" "Morocco") 1988 ("ma" "Morocco")
1951 ("mc" "Monaco") 1989 ("mc" "Monaco")
1952 ("md" "Moldova" "The Republic of %s") 1990 ("md" "Moldova" "The Republic of %s")
1953 ("mg" "Madagascar") 1991 ("mg" "Madagascar")
1954 ("mk" "Macedonia") 1992 ("mh" "Marshall Islands")
1993 ("mk" "Macedonia" "The Former Yugoslav Republic of %s")
1955 ("ml" "Mali") 1994 ("ml" "Mali")
1995 ("mm" "Myanmar")
1996 ("mn" "Mongolia")
1956 ("mo" "Macau") 1997 ("mo" "Macau")
1998 ("mp" "Northern Mariana Islands")
1999 ("mq" "Martinique")
2000 ("mr" "Mauritania")
2001 ("ms" "Montserrat")
1957 ("mt" "Malta") 2002 ("mt" "Malta")
1958 ("mu" "Mauritius") 2003 ("mu" "Mauritius")
1959 ("mv" "Maldives") 2004 ("mv" "Maldives")
1960 ("mw" "Malawi") 2005 ("mw" "Malawi")
1961 ("mx" "Mexico" "The United Mexican States") 2006 ("mx" "Mexico" "The United Mexican States")
1962 ("my" "Malaysia" "%s (changed to Myanmar?)") ;??? 2007 ("my" "Malaysia" "%s (changed to Myanmar?)") ;???
1963 ("mz" "Mozambique") 2008 ("mz" "Mozambique")
1964 ("na" "Namibia") 2009 ("na" "Namibia")
1965 ("nc" "New Caledonia (Fr.)") 2010 ("nc" "New Caledonia (Fr.)")
1966 ("ne" "Niger") ; In .fr domain 2011 ("ne" "Niger") ; In .fr domain
2012 ("nf" "Norfolk Island")
2013 ("ng" "Nigeria")
1967 ("ni" "Nicaragua" "The Republic of %s") 2014 ("ni" "Nicaragua" "The Republic of %s")
1968 ("nl" "Netherlands" "The Kingdom of the %s") 2015 ("nl" "Netherlands" "The Kingdom of the %s")
1969 ("no" "Norway" "The Kingdom of %s") 2016 ("no" "Norway" "The Kingdom of %s")
1970 ("np" "Nepal") ; Via .in domain 2017 ("np" "Nepal") ; Via .in domain
2018 ("nr" "Nauru")
1971 ("nu" "Niue") 2019 ("nu" "Niue")
1972 ("nz" "New Zealand") 2020 ("nz" "New Zealand")
2021 ("om" "Oman")
1973 ("pa" "Panama") 2022 ("pa" "Panama")
1974 ("pe" "Peru") 2023 ("pe" "Peru")
1975 ("pf" "Polynesia (Fr.)") 2024 ("pf" "Polynesia (Fr.)")
1976 ("pg" "Papua New Guinea") 2025 ("pg" "Papua New Guinea")
1977 ("ph" "Philippines" "The Republic of the %s") 2026 ("ph" "Philippines" "The Republic of the %s")
1978 ("pk" "Pakistan") 2027 ("pk" "Pakistan")
1979 ("pl" "Poland") 2028 ("pl" "Poland")
2029 ("pm" "Saint Pierre and Miquelon")
2030 ("pn" "Pitcairn")
1980 ("pr" "Puerto Rico (U.S.)") 2031 ("pr" "Puerto Rico (U.S.)")
2032 ("ps" "Palestinian Territory, Occupied")
1981 ("pt" "Portugal" "The Portuguese Republic") 2033 ("pt" "Portugal" "The Portuguese Republic")
2034 ("pw" "Palau")
1982 ("py" "Paraguay") 2035 ("py" "Paraguay")
1983 ("qa" "Qatar") 2036 ("qa" "Qatar")
1984 ("re" "Reunion (Fr.)") ; In .fr domain 2037 ("re" "Reunion (Fr.)") ; In .fr domain
1985 ("ro" "Romania") 2038 ("ro" "Romania")
1986 ("ru" "Russian Federation") 2039 ("ru" "Russia" "Russian Federation")
2040 ("rw" "Rwanda")
1987 ("sa" "Saudi Arabia") 2041 ("sa" "Saudi Arabia")
2042 ("sb" "Solomon Islands")
1988 ("sc" "Seychelles") 2043 ("sc" "Seychelles")
1989 ("sd" "Sudan") 2044 ("sd" "Sudan")
1990 ("se" "Sweden" "The Kingdom of %s") 2045 ("se" "Sweden" "The Kingdom of %s")
1991 ("sg" "Singapore" "The Republic of %s") 2046 ("sg" "Singapore" "The Republic of %s")
2047 ("sh" "Saint Helena")
1992 ("si" "Slovenia") 2048 ("si" "Slovenia")
1993 ("sj" "Svalbard and Jan Mayen Is.") ; In .no domain 2049 ("sj" "Svalbard and Jan Mayen") ; In .no domain
1994 ("sk" "Slovakia" "The Slovak Republic") 2050 ("sk" "Slovakia" "The Slovak Republic")
2051 ("sl" "Sierra Leone")
1995 ("sm" "San Marino") 2052 ("sm" "San Marino")
1996 ("sn" "Senegal") 2053 ("sn" "Senegal")
2054 ("so" "Somalia")
1997 ("sr" "Suriname") 2055 ("sr" "Suriname")
1998 ("su" "U.S.S.R." "The Union of Soviet Socialist Republics") 2056 ("st" "Sao Tome And Principe")
2057 ("su" "U.S.S.R." "The Union of Soviet Socialist Republics")
2058 ("sv" "El Salvador")
2059 ("sy" "Syrian Arab Republic")
1999 ("sz" "Swaziland") 2060 ("sz" "Swaziland")
2061 ("tc" "Turks And Caicos Islands")
2062 ("td" "Chad")
2063 ("tf" "French Southern Territories")
2000 ("tg" "Togo") 2064 ("tg" "Togo")
2001 ("th" "Thailand" "The Kingdom of %s") 2065 ("th" "Thailand" "The Kingdom of %s")
2002 ("tm" "Turkmenistan") ; In .su domain 2066 ("tj" "Tajikistan")
2067 ("tk" "Tokelau")
2068 ("tm" "Turkmenistan")
2003 ("tn" "Tunisia") 2069 ("tn" "Tunisia")
2004 ("to" "Tonga") 2070 ("to" "Tonga")
2071 ("tp" "East Timor")
2005 ("tr" "Turkey" "The Republic of %s") 2072 ("tr" "Turkey" "The Republic of %s")
2006 ("tt" "Trinidad and Tobago") 2073 ("tt" "Trinidad and Tobago")
2007 ("tw" "Taiwan") 2074 ("tv" "Tuvalu")
2075 ("tw" "Taiwan" "%s, Province of China")
2076 ("tz" "Tanzania" "United Republic of %s")
2008 ("ua" "Ukraine") 2077 ("ua" "Ukraine")
2078 ("ug" "Uganda")
2009 ("uk" "United Kingdom" "The %s of Great Britain and Northern Ireland") 2079 ("uk" "United Kingdom" "The %s of Great Britain and Northern Ireland")
2080 ("um" "United States Minor Outlying Islands")
2010 ("us" "United States" "The %s of America") 2081 ("us" "United States" "The %s of America")
2011 ("uy" "Uruguay" "The Eastern Republic of %s") 2082 ("uy" "Uruguay" "The Eastern Republic of %s")
2083 ("uz" "Uzbekistan")
2084 ("va" "Holy See (Vatican City State)")
2012 ("vc" "St. Vincent and the Grenadines") 2085 ("vc" "St. Vincent and the Grenadines")
2013 ("ve" "Venezuela" "The Republic of %s") 2086 ("ve" "Venezuela" "The Republic of %s")
2014 ("vi" "Virgin Islands (U.S.)") 2087 ("vg" "Virgin Islands, British")
2088 ("vi" "Virgin Islands, U.S.")
2015 ("vn" "Vietnam") 2089 ("vn" "Vietnam")
2016 ("vu" "Vanuatu") 2090 ("vu" "Vanuatu")
2091 ("wf" "Wallis and Futuna")
2092 ("ws" "Samoa")
2093 ("ye" "Yemen")
2094 ("yt" "Mayotte")
2017 ("yu" "Yugoslavia" "Yugoslavia, AKA Serbia-Montenegro") 2095 ("yu" "Yugoslavia" "Yugoslavia, AKA Serbia-Montenegro")
2018 ("za" "South Africa" "The Republic of %s") 2096 ("za" "South Africa" "The Republic of %s")
2097 ("zm" "Zambia")
2019 ("zw" "Zimbabwe" "Republic of %s") 2098 ("zw" "Zimbabwe" "Republic of %s")
2020 ;; Special top-level domains: 2099 ;; Special top-level domains:
2021 ("arpa" t "Advanced Research Projects Agency (U.S. DoD)") 2100 ("arpa" t "Advanced Research Projects Agency (U.S. DoD)")
2022 ("bitnet" t "Because It's Time NET") 2101 ("bitnet" t "Because It's Time NET")
2023 ("com" t "Commercial") 2102 ("com" t "Commercial")