[Emacs-diffs] Changes to emacs/lisp/mail/mail-extr.el

[Simon Josefsson]

Index: emacs/lisp/mail/mail-extr.el
diff -c emacs/lisp/mail/mail-extr.el:1.37 emacs/lisp/mail/mail-extr.el:1.38
*** emacs/lisp/mail/mail-extr.el:1.37   Mon Jul  8 07:42:57 2002
--- emacs/lisp/mail/mail-extr.el        Tue Jul  9 06:06:17 2002
***************
*** 1830,1835 ****
--- 1830,1843 ----
  ;; Keep in mind that the country abbreviations follow ISO-3166.  There is
  ;; a U.S. FIPS that specifies a different set of two-letter country
  ;; abbreviations.
+ ;;
+ ;; 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
+ ;; Latest change: Mon Jul  8 14:21:59 CEST 2002
  
  (defconst mail-extr-all-top-level-domains
    (let ((ob (make-vector 739 0)))
***************
*** 1879,1885 ****
         ("bz" "Belize")
         ("ca" "Canada")
         ("cc" "Cocos (Keeling) Islands")
!        ("cd" "The Democratic Republic of The Congo")
         ("cf" "Central African Republic")
         ("cg" "Congo")
         ("ch" "Switzerland"    "The Swiss Confederation")
--- 1887,1893 ----
         ("bz" "Belize")
         ("ca" "Canada")
         ("cc" "Cocos (Keeling) Islands")
!        ("cd" "Congo"            "The Democratic Republic of the %s")
         ("cf" "Central African Republic")
         ("cg" "Congo")
         ("ch" "Switzerland"    "The Swiss Confederation")
***************
*** 1927,1939 ****
         ("gp" "Guadeloupe (Fr.)")
         ("gq" "Equatorial Guinea")
         ("gr" "Greece"         "The Hellenic Republic (%s)")
!        ("gs" "South Georgia And The South Sandwich Islands")
         ("gt" "Guatemala")
         ("gu" "Guam (U.S.)")
         ("gw" "Guinea-Bissau")
         ("gy" "Guyana")
         ("hk" "Hong Kong")
!        ("hm" "Heard Island And Mcdonald Islands")
         ("hn" "Honduras")
         ("hr" "Croatia"                "Croatia (Hrvatska)")
         ("ht" "Haiti")
--- 1935,1947 ----
         ("gp" "Guadeloupe (Fr.)")
         ("gq" "Equatorial Guinea")
         ("gr" "Greece"         "The Hellenic Republic (%s)")
!        ("gs" "South Georgia and The South Sandwich Islands")
         ("gt" "Guatemala")
         ("gu" "Guam (U.S.)")
         ("gw" "Guinea-Bissau")
         ("gy" "Guyana")
         ("hk" "Hong Kong")
!        ("hm" "Heard Island and Mcdonald Islands")
         ("hn" "Honduras")
         ("hr" "Croatia"                "Croatia (Hrvatska)")
         ("ht" "Haiti")
***************
*** 1961,1967 ****
         ("kr" "Korea (South)"  "Republic of Korea")
         ("kw" "Kuwait")
         ("ky" "Cayman Islands")
!        ("kz" "Kazakstan")
         ("la" "Lao People's Democratic Republic")
         ("lb" "Lebanon")
         ("lc" "Saint Lucia")
--- 1969,1975 ----
         ("kr" "Korea (South)"  "Republic of Korea")
         ("kw" "Kuwait")
         ("ky" "Cayman Islands")
!        ("kz" "Kazakhstan")
         ("la" "Lao People's Democratic Republic")
         ("lb" "Lebanon")
         ("lc" "Saint Lucia")
***************
*** 1982,1988 ****
         ("ml" "Mali")
         ("mm" "Myanmar")
         ("mn" "Mongolia")
!        ("mo" "Macau")
         ("mp" "Northern Mariana Islands")
         ("mq" "Martinique")
         ("mr" "Mauritania")
--- 1990,1996 ----
         ("ml" "Mali")
         ("mm" "Myanmar")
         ("mn" "Mongolia")
!        ("mo" "Macao")
         ("mp" "Northern Mariana Islands")
         ("mq" "Martinique")
         ("mr" "Mauritania")
***************
*** 1992,1998 ****
         ("mv" "Maldives")
         ("mw" "Malawi")
         ("mx" "Mexico"         "The United Mexican States")
!        ("my" "Malaysia"               "%s (changed to Myanmar?)")             
;???
         ("mz" "Mozambique")
         ("na" "Namibia")
         ("nc" "New Caledonia (Fr.)")
--- 2000,2006 ----
         ("mv" "Maldives")
         ("mw" "Malawi")
         ("mx" "Mexico"         "The United Mexican States")
!        ("my" "Malaysia")
         ("mz" "Mozambique")
         ("na" "Namibia")
         ("nc" "New Caledonia (Fr.)")
***************
*** 2009,2015 ****
         ("om" "Oman")
         ("pa" "Panama")
         ("pe" "Peru")
!        ("pf" "Polynesia (Fr.)")
         ("pg" "Papua New Guinea")
         ("ph" "Philippines"    "The Republic of the %s")
         ("pk" "Pakistan")
--- 2017,2023 ----
         ("om" "Oman")
         ("pa" "Panama")
         ("pe" "Peru")
!        ("pf" "French Polynesia")
         ("pg" "Papua New Guinea")
         ("ph" "Philippines"    "The Republic of the %s")
         ("pk" "Pakistan")
***************
*** 2041,2058 ****
         ("sn" "Senegal")
         ("so" "Somalia")
         ("sr" "Suriname")
!        ("st" "Sao Tome And Principe")
         ("su" "U.S.S.R." "The Union of Soviet Socialist Republics")
         ("sv" "El Salvador")
         ("sy" "Syrian Arab Republic")
         ("sz" "Swaziland")
!        ("tc" "Turks And Caicos Islands")
         ("td" "Chad")
         ("tf" "French Southern Territories")
         ("tg" "Togo")
         ("th" "Thailand"               "The Kingdom of %s")
         ("tj" "Tajikistan")
         ("tk" "Tokelau")
         ("tm" "Turkmenistan")
         ("tn" "Tunisia")
         ("to" "Tonga")
--- 2049,2067 ----
         ("sn" "Senegal")
         ("so" "Somalia")
         ("sr" "Suriname")
!        ("st" "Sao Tome and Principe")
         ("su" "U.S.S.R." "The Union of Soviet Socialist Republics")
         ("sv" "El Salvador")
         ("sy" "Syrian Arab Republic")
         ("sz" "Swaziland")
!        ("tc" "Turks and Caicos Islands")
         ("td" "Chad")
         ("tf" "French Southern Territories")
         ("tg" "Togo")
         ("th" "Thailand"               "The Kingdom of %s")
         ("tj" "Tajikistan")
         ("tk" "Tokelau")
+        ("tl" "East Timor")
         ("tm" "Turkmenistan")
         ("tn" "Tunisia")
         ("to" "Tonga")
***************
*** 2070,2076 ****
         ("uy" "Uruguay"                "The Eastern Republic of %s")
         ("uz" "Uzbekistan")
         ("va" "Holy See (Vatican City State)")
!        ("vc" "St. Vincent and the Grenadines")
         ("ve" "Venezuela"      "The Republic of %s")
         ("vg" "Virgin Islands, British")
         ("vi" "Virgin Islands, U.S.")
--- 2079,2085 ----
         ("uy" "Uruguay"                "The Eastern Republic of %s")
         ("uz" "Uzbekistan")
         ("va" "Holy See (Vatican City State)")
!        ("vc" "Saint Vincent and the Grenadines")
         ("ve" "Venezuela"      "The Republic of %s")
         ("vg" "Virgin Islands, British")
         ("vi" "Virgin Islands, U.S.")
***************
*** 2084,2103 ****
         ("za" "South Africa"   "The Republic of %s")
         ("zm" "Zambia")
         ("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")
!        ("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))
  
--- 2093,2118 ----
         ("za" "South Africa"   "The Republic of %s")
         ("zm" "Zambia")
         ("zw" "Zimbabwe"               "Republic of %s")
!        ;; Generic Domains:
!        ("aero" t                "Air Transport Industry")
!        ("biz" t                 "Businesses")
         ("com" t                       "Commercial")
!        ("coop" t                "Cooperative Associations")
!        ("info" t                "Info")
!        ("museum" t              "Museums")
!        ("name" t                "Individuals")
         ("net" t                       "Network")
         ("org" t                       "Non-profit Organization")
!        ;;("pro" t                 "Credentialed professionals")
!        ;;("bitnet" t          "Because It's Time NET")
!        ("gov" t                       "United States Government")
!        ("edu" t                       "Educational")
!        ("mil" t                       "United States Military")
!        ("int" t                       "International Treaties")
!        ;;("nato" t            "North Atlantic Treaty Organization")
         ("uucp" t              "Unix to Unix CoPy")
!        ;; Infrastructure Domains:
!        ("arpa" t              "Advanced Research Projects Agency (U.S. DoD)")
         ))
      ob))