procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add some top level domains

Browse source 
* lisp/mail/mail-extr.el (mail-extr-all-top-level-domains): Add
some geographic domains.
This commit is contained in:
Stefan Kangas 2020-10-21 14:49:04 +02:00
parent 8532fa41bb
commit d72696d3b1
1 changed files with 79 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

79
lisp/mail/mail-extr.el
View file

@ -1856,6 +1856,11 @@ place. It affects how `mail-extract-address-components' works."
;; https://www.iana.org/cctld/cctld-whois.htm
;; Latest change: 2007/11/15
;; FIXME: There are over 1500 top level domains, the vast majority of
;; which are not in the below list. Should they be?
;; https://data.iana.org/TLD/tlds-alpha-by-domain.txt
;; https://en.wikipedia.org/wiki/List_of_Internet_top-level_domains
(defconst mail-extr-all-top-level-domains
(let ((ob (make-vector 739 0)))
(mapc
@ -2145,6 +2150,80 @@ place. It affects how `mail-extract-address-components' works."
("uucp" t "Unix to Unix CoPy")
;; Infrastructure Domains:
("arpa" t "Advanced Research Projects Agency (U.S. DoD)")
;; Geographic Domains:
("abudhabi" "Abu Dhabi")
("africa" "Africa")
("alsace" "Alsace, France")
("amsterdam" "Amsterdam, The Netherlands")
("arab" "League of Arab States")
("asia" "Asia-Pacific region")
("bar" "Bar, Montenegro")
("barcelona" "Barcelona, Spain")
("bayern" "Bavaria, Germany")
("bcn" "Barcelona, Spain")
("berlin" "Berlin, Germany")
("boston" "Boston, Massachusetts")
("brussels" "Brussels, Belgium")
("budapest" "Budapest, Hungary")
("bzh" "Brittany, France")
("capetown" "Cape Town, South Africa")
("cat" "Catalonia, Spain")
("cologne" "Cologne, Germany")
("corsica" "Corsica, France")
("cymru" "Wales, United Kingdom")
("doha" "Doha")
("dubai" "Dubai")
("durban" "Durban, South Africa")
("eus" "Basque, Spain and France")
("frl" "Friesland, Netherlands")
("gal" "Galicia, Spain")
("gent" "Ghent, Belgium")
("hamburg" "Hamburg, Germany")
("helsinki" "Helsinki, Finland")
("irish" "Ireland")
("ist" "İstanbul, Turkey")
("istanbul" "İstanbul, Turkey")
("joburg" "Johannesburg, South Africa")
("kiwi" "New Zealanders")
("koeln" "Cologne, Germany")
("krd" "Kurdistan")
("kyoto" "Kyoto, Japan")
("lat" "Latin America")
("london" "London, United Kingdom")
("madrid" "Madrid, Spain")
("melbourne" "Melbourne, Australia")
("miami" "Miami, Florida")
("nagoya" "Nagoya, Japan")
("nrw" "North Rhine-Westphalia, Germany")
("nyc" "New York City, New York")
("okinawa" "Okinawa, Japan")
("osaka" "Osaka, Japan")
("paris" "Paris, France")
("quebec" "Québec, Canada")
("rio" "Rio de Janeiro, Brazil")
("ruhr" "Ruhr, Germany")
("ryukyu" "Ryukyu Islands, Japan")
("saarland" "Saarland, Germany")
("scot" "Scotland, United Kingdom")
("stockholm" "Stockholm, Sweden")
("swiss" "Switzerland")
("sydney" "Sydney, Australia")
("taipei" "Taipei, Taiwan")
("tatar" "Tatars")
("tirol" "Tyrol, Austria")
("tokyo" "Tokyo, Japan")
("vegas" "Las Vegas, Nevada")
("wales" "Wales, United Kingdom")
("wien" "Vienna, Austria")
("yokohama" "Yokohama, Japan")
("zuerich" "Zurich, Switzerland")
;; Internationalized Geographic Domains:
("xn--1qqw23a" "Foshan, China")
("xn--xhq521b" "Guangdong, China")
("xn--80adxhks" "Moscow, Russia")
("xn--p1acf" "Russia")
("xn--mgbca7dzdo" "Abu Dhabi")
("xn--ngbrx" "Arab")
))
ob))