mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +00:00
Code Issues Releases Activity

(mail-extr-all-top-level-domains): Update domain list.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-09-22 03:34:43 +00:00
parent 624c0e9d14
commit e1a34b584c
1 changed files with 98 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

118
lisp/mail/mail-extr.el
View File

@ -1779,93 +1779,171 @@ If ADDRESS contains more than one RFC-822 address, only the first is
(if (nth 2 x)
(format (nth 2 x) (nth 1 x))
(nth 1 x)))))
'(("ag" "Antigua")
'(
;; ISO 3166 codes:
("ae" "United Arab Emirates")
("ag" "Antigua and Barbuda")
("al" "Albania")
("ao" "Angola")
("aq" "Antarctica") ; continent
("ar" "Argentina" "Argentine Republic")
("arpa" t "Advanced Projects Research Agency")
("at" "Austria" "The Republic of %s")
("au" "Australia")
("az" "Azerbaijan")
("bb" "Barbados")
("bd" "Bangladesh")
("be" "Belgium" "The Kingdom of %s")
("bf" "Burkina Faso")
("bg" "Bulgaria")
("bitnet" t "Because It's Time NET")
("bh" "Bahrain")
("bm" "Bermuda")
("bo" "Bolivia" "Republic of %s")
("br" "Brazil" "The Federative Republic of %s")
("bs" "Bahamas")
("bw" "Botswana")
("by" "Belarus")
("bz" "Belize")
("ca" "Canada")
("cg" "Congo")
("ch" "Switzerland" "The Swiss Confederation")
("ci" "Ivory Coast")
("cl" "Chile" "The Republic of %s")
("cm" "Cameroon") ; In .fr domain
("cn" "China" "The People's Republic of %s")
("co" "Columbia")
("com" t "Commercial organizations (U.S.A.)")
("co" "Colombia")
("cr" "Costa Rica" "The Republic of %s")
("cs" "Czechoslovakia")
("cu" "Cuba")
("cy" "Cyprus")
("cz" "Czech Republic")
("de" "Germany")
("dk" "Denmark")
("dm" "Dominica")
("do" "Dominican Republic" "The %s")
("dz" "Algeria")
("ec" "Ecuador" "The Republic of %s")
("edu" t "Educational institutions (U.S.A.)")
("ee" "Estonia")
("eg" "Egypt" "The Arab Republic of %s")
("er" "Eritrea")
("es" "Spain" "The Kingdom of %s")
("fi" "Finland" "The Republic of %s")
("fj" "Fiji")
("fo" "Faroe Islands")
("fr" "France")
("gov" t "Government (U.S.A.)")
("gb" "Great Britain")
("gd" "Grenada")
("ge" "Georgia")
("gf" "Guyana (Fr.)")
("gp" "Guadeloupe (Fr.)")
("gr" "Greece" "The Hellenic Republic (%s)")
("gt" "Guatemala")
("gu" "Guam (U.S.)")
("hk" "Hong Kong")
("hn" "Honduras")
("hr" "Croatia")
("ht" "Haiti")
("hu" "Hungary" "The Hungarian People's Republic") ;???
("id" "Indonesia")
("ie" "Ireland")
("il" "Israel" "The State of %s")
("in" "India" "The Republic of %s")
("int" t "(something British, don't know what)")
("ir" "Iran")
("is" "Iceland" "The Republic of %s")
("it" "Italy" "The Italian Republic")
("jm" "Jamaica")
("jp" "Japan")
("kn" "St. Kitts and Nevis")
("kr" "South Korea")
("ke" "Kenya")
("kn" "St. Kitts, Nevis, and Anguilla")
("kp" "Korea (North)")
("kr" "Korea (South)")
("kw" "Kuwait")
("kz" "Kazachstan")
("lb" "Lebanon")
("lc" "St. Lucia")
("li" "Liechtenstein")
("lk" "Sri Lanka" "The Democratic Socialist Republic of %s")
("mil" t "Military (U.S.A.)")
("ls" "Lesotho")
("lt" "Lithuania")
("lu" "Luxembourg")
("lv" "Latvia")
("ma" "Morocco")
("md" "Moldova")
("mg" "Madagascar")
("mk" "Macedonia")
("ml" "Mali")
("mo" "Macau")
("mt" "Malta")
("mu" "Mauritius")
("mw" "Malawi")
("mx" "Mexico" "The United Mexican States")
("my" "Malaysia" "%s (changed to Myanmar?)") ;???
("mz" "Mozambique")
("na" "Namibia")
("nato" t "North Atlantic Treaty Organization")
("net" t "Network")
("nc" "New Caledonia (Fr.)")
("ne" "Niger") ; In .fr domain
("ni" "Nicaragua" "The Republic of %s")
("nl" "Netherlands" "The Kingdom of the %s")
("no" "Norway" "The Kingdom of %s")
("np" "Nepal") ; Via .in domain
("nz" "New Zealand")
("org" t "Non-commercial organizations (U.S.A.)")
("pa" "Panama")
("pe" "Peru")
("pf" "Polynesia (Fr.)")
("pg" "Papua New Guinea")
("ph" "Philippines" "The Republic of the %s")
("pk" "Pakistan")
("pl" "Poland")
("pr" "Puerto Rico")
("pr" "Puerto Rico (U.S.)")
("pt" "Portugal" "The Portugese Republic")
("py" "Paraguay")
("re" "Reunion (Fr.)") ; In .fr domain
("ro" "Romania")
("ru" "Russian Federation")
("sa" "Saudi Arabia")
("sc" "Seychelles")
("sd" "Sudan")
("se" "Sweden" "The Kingdom of %s")
("sg" "Singapore" "The Republic of %s")
("si" "Slovenia")
("sj" "Svalbard and Jan Mayen Is.") ; In .no domain
("sk" "Slovakia" "The Slovak Republic")
("sn" "Senegal")
("sr" "Suriname")
("su" "Soviet Union")
("sz" "Swaziland")
("tg" "Togo")
("th" "Thailand" "The Kingdom of %s")
("tm" "Turkmenistan") ; In .su domain
("tn" "Tunisia")
("tr" "Turkey" "The Republic of %s")
("tt" "Trinidad and Tobago")
("tw" "Taiwan")
("ua" "Ukraine")
("uk" "United Kingdom" "The %s of Great Britain and Northern Ireland")
("unter-dom" t "(something German)")
("us" "U.S.A." "The United States of America")
("uucp" t "Unix to Unix CoPy")
("us" "United States" "The %s of America")
("uy" "Uruguay" "The Eastern Republic of %s")
("vc" "St. Vincent and the Grenadines")
("ve" "Venezuela" "The Republic of %s")
("vi" "Virgin Islands (U.S.)")
("vn" "Vietnam")
("vu" "Vanuatu")
("yu" "Yugoslavia" "The Socialist Federal Republic of %s")
;; Also said to be Zambia ... (why not Zaire???)
("za" "South Africa" "The Republic of %s (or Zambia? Zaire?)")
("zw" "Zimbabwe" "Republic of %s")
;; fipnet
;; Special top-level domains:
("arpa" t "Advanced Research Projects Agency (U.S. DoD)")
("bitnet" t "Because It's Time NET")
("com" t "Commercial")
("edu" t "Educational")
("gov" t "Government (U.S.)")
("int" t "International (NATO)")
("mil" t "Military (U.S.)")
("nato" t "North Atlantic Treaty Organization")
("net" t "Network")
("org" t "Non-profit Organization")
;;("unter-dom" t "? (Ger.)")
("uucp" t "Unix to Unix CoPy")
;;("fipnet" nil "?")
))
ob))