diff options
Diffstat (limited to 'lisp/mail/mail-extr.el')
-rw-r--r-- | lisp/mail/mail-extr.el | 85 |
1 files changed, 82 insertions, 3 deletions
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index f1a455dce2d..49dfd2ee874 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el @@ -1851,11 +1851,16 @@ place. It affects how `mail-extract-address-components' works." ;; Updated by the RIPE Network Coordination Centre. ;; ;; Source: ISO 3166 Maintenance Agency -;; http://www.iso.org/iso/en/prods-services/iso3166ma/02iso-3166-code-lists/list-en1-semic.txt -;; http://www.iana.org/domain-names.htm -;; http://www.iana.org/cctld/cctld-whois.htm +;; https://www.iso.org/iso/en/prods-services/iso3166ma/02iso-3166-code-lists/list-en1-semic.txt +;; https://www.iana.org/domain-names.htm +;; 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)) |