comparison lisp/mail/mail-extr.el @ 20427:1b4f02e638b8

(mail-extr-all-top-level-domains): More domains.

20426:f3debcf1d078

	     (if (nth 2 x)
		 (format (nth 2 x) (nth 1 x))
	       (nth 1 x)))))
     '(
       ;; ISO 3166 codes:
       ("ae" "United Arab Emirates")
       ("ag" "Antigua and Barbuda")
       ("al" "Albania")
       ("ao" "Angola")
       ("aq" "Antarctica")		; continent
       ("ar" "Argentina"	"Argentine Republic")
       ("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")

       ("ec" "Ecuador"		"The Republic of %s")
       ("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")
       ("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 Republic")	;???
       ("id" "Indonesia")
       ("ie" "Ireland")
       ("il" "Israel"		"The State of %s")
       ("in" "India"		"The Republic of %s")
       ("ir" "Iran")
       ("is" "Iceland"		"The Republic of %s")
       ("it" "Italy"		"The Italian Republic")
       ("jm" "Jamaica")
       ("jp" "Japan")
       ("ke" "Kenya")
       ("kn" "St. Kitts, Nevis, and Anguilla")
       ("kp" "Korea (North)")
       ("kr" "Korea (South)")

       ("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")

       ("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")
       ("pa" "Panama")
       ("pe" "Peru")
       ("pf" "Polynesia (Fr.)")
       ("pg" "Papua New Guinea")

       ("pk" "Pakistan")
       ("pl" "Poland")
       ("pr" "Puerto Rico (U.S.)")
       ("pt" "Portugal"		"The Portuguese Republic")
       ("py" "Paraguay")
       ("re" "Reunion (Fr.)")		; In .fr domain
       ("ro" "Romania")
       ("ru" "Russian Federation")
       ("sa" "Saudi Arabia")
       ("sc" "Seychelles")

       ("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")

       ("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")
       ("za" "South Africa"	"The Republic of %s (or Zambia? Zaire?)")
       ("zw" "Zimbabwe"		"Republic of %s")
       ;; Special top-level domains:
       ("arpa" t		"Advanced Research Projects Agency (U.S. DoD)")
       ("bitnet" t		"Because It's Time NET")
       ("com" t			"Commercial")

20427:1b4f02e638b8

	     (if (nth 2 x)
		 (format (nth 2 x) (nth 1 x))
	       (nth 1 x)))))
     '(
       ;; ISO 3166 codes:
       ("ad" "Andorra")
       ("ae" "United Arab Emirates")
       ("ag" "Antigua and Barbuda")
       ("al" "Albania")
       ("am" "Armenia")
       ("ao" "Angola")
       ("aq" "Antarctica")		; continent
       ("ar" "Argentina"	"Argentine Republic")
       ("at" "Austria"		"The Republic of %s")
       ("au" "Australia")
       ("az" "Azerbaijan")
       ("ba" "Bosnia-Herzegovina")
       ("bb" "Barbados")
       ("bd" "Bangladesh")
       ("be" "Belgium"		"The Kingdom of %s")
       ("bf" "Burkina Faso")
       ("bg" "Bulgaria")

       ("ec" "Ecuador"		"The Republic of %s")
       ("ee" "Estonia")
       ("eg" "Egypt"		"The Arab Republic of %s")
       ("er" "Eritrea")
       ("es" "Spain"		"The Kingdom of %s")
       ("et" "Ethiopia")
       ("fi" "Finland"		"The Republic of %s")
       ("fo" "Faroe Islands")
       ("fr" "France")
       ("ga" "Gabon")
       ("gb" "United Kingdom")
       ("gd" "Grenada")
       ("ge" "Georgia")
       ("gf" "Guyana (Fr.)")
       ("gj" "Fiji")
       ("gl" "Greenland")
       ("gm" "Gambia")
       ("gp" "Guadeloupe (Fr.)")
       ("gr" "Greece"		"The Hellenic Republic (%s)")
       ("gt" "Guatemala")
       ("gu" "Guam (U.S.)")
       ("hk" "Hong Kong")
       ("hn" "Honduras")
       ("hr" "Croatia"		"Croatia (Hrvatska)")
       ("ht" "Haiti")
       ("hu" "Hungary"		"The Hungarian Republic")
       ("id" "Indonesia")
       ("ie" "Ireland")
       ("il" "Israel"		"The State of %s")
       ("im" "Isle of Man"	"The %s")
       ("in" "India"		"The Republic of %s")
       ("ir" "Iran")
       ("is" "Iceland"		"The Republic of %s")
       ("it" "Italy"		"The Italian Republic")
       ("jm" "Jamaica")
       ("jo" "Jordan")
       ("jp" "Japan")
       ("ke" "Kenya")
       ("kn" "St. Kitts, Nevis, and Anguilla")
       ("kp" "Korea (North)")
       ("kr" "Korea (South)")

       ("ls" "Lesotho")
       ("lt" "Lithuania")
       ("lu" "Luxembourg")
       ("lv" "Latvia")
       ("ma" "Morocco")
       ("mc" "Monaco")
       ("md" "Moldova"		"The Republic of %s")
       ("mg" "Madagascar")
       ("mk" "Macedonia")
       ("ml" "Mali")
       ("mo" "Macau")
       ("mt" "Malta")
       ("mu" "Mauritius")
       ("mv" "Maldives")
       ("mw" "Malawi")
       ("mx" "Mexico"		"The United Mexican States")
       ("my" "Malaysia"		"%s (changed to Myanmar?)")		;???
       ("mz" "Mozambique")
       ("na" "Namibia")

       ("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
       ("nu" "Niue")
       ("nz" "New Zealand")
       ("pa" "Panama")
       ("pe" "Peru")
       ("pf" "Polynesia (Fr.)")
       ("pg" "Papua New Guinea")

       ("pk" "Pakistan")
       ("pl" "Poland")
       ("pr" "Puerto Rico (U.S.)")
       ("pt" "Portugal"		"The Portuguese Republic")
       ("py" "Paraguay")
       ("qa" "Qatar")
       ("re" "Reunion (Fr.)")		; In .fr domain
       ("ro" "Romania")
       ("ru" "Russian Federation")
       ("sa" "Saudi Arabia")
       ("sc" "Seychelles")

       ("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")
       ("sm" "San Marino")
       ("sn" "Senegal")
       ("sr" "Suriname")
       ("su" "U.S.S.R."		"The Union of Soviet Socialist Republics")
       ("sz" "Swaziland")
       ("tg" "Togo")
       ("th" "Thailand"		"The Kingdom of %s")
       ("tm" "Turkmenistan")		; In .su domain
       ("tn" "Tunisia")
       ("to" "Tonga")
       ("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")

       ("vc" "St. Vincent and the Grenadines")
       ("ve" "Venezuela"	"The Republic of %s")
       ("vi" "Virgin Islands (U.S.)")
       ("vn" "Vietnam")
       ("vu" "Vanuatu")
       ("yu" "Yugoslavia"	"Yugoslavia, AKA Serbia-Montenegro")
       ("za" "South Africa"	"The Republic of %s")
       ("zw" "Zimbabwe"		"Republic of %s")
       ;; Special top-level domains:
       ("arpa" t		"Advanced Research Projects Agency (U.S. DoD)")
       ("bitnet" t		"Because It's Time NET")
       ("com" t			"Commercial")