[patch] mail-extr.el fixes

[Simon Josefsson]

How about this?

2002-07-08  Simon Josefsson  <address@hidden>

        * mail/mail-extr.el (mail-extr-all-top-level-domains): Update names.

Index: mail-extr.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/mail-extr.el,v
retrieving revision 1.36
diff -u -p -r1.36 mail-extr.el
--- mail-extr.el        19 Nov 2001 23:16:21 -0000      1.36
+++ mail-extr.el        8 Jul 2002 12:34:48 -0000
@@ -142,7 +142,7 @@
 ;; Tue Mar 23 21:23:18 1993  Joe Wells  (jbw at csd.bu.edu)
 ;; 
 ;;     * Made mail-full-name-prefixes a user-customizable variable.
-;;        Allow passing the address as a buffer as well as as a string.
+;;        Allow passing the address as a buffer as well as a string.
 ;;        Allow [ and ] as name characters (Finnish character set).
 ;; 
 ;; Mon Mar 22 21:20:56 1993  Joe Wells  (jbw at bigbird.bu.edu)
@@ -1830,6 +1830,14 @@ ADDRESS may be a string or a buffer.  If
 ;; 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,7 +1887,7 @@ ADDRESS may be a string or a buffer.  If
        ("bz" "Belize")
        ("ca" "Canada")
        ("cc" "Cocos (Keeling) Islands")
-       ("cd" "The Democratic Republic of The Congo")
+       ("cd" "Congo"            "The Democratic Republic of the %s")
        ("cf" "Central African Republic")
        ("cg" "Congo")
        ("ch" "Switzerland"     "The Swiss Confederation")
@@ -1927,13 +1935,13 @@ ADDRESS may be a string or a buffer.  If
        ("gp" "Guadeloupe (Fr.)")
        ("gq" "Equatorial Guinea")
        ("gr" "Greece"          "The Hellenic Republic (%s)")
-       ("gs" "South Georgia And The South Sandwich Islands")
+       ("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")
+       ("hm" "Heard Island and Mcdonald Islands")
        ("hn" "Honduras")
        ("hr" "Croatia"         "Croatia (Hrvatska)")
        ("ht" "Haiti")
@@ -1961,7 +1969,7 @@ ADDRESS may be a string or a buffer.  If
        ("kr" "Korea (South)"   "Republic of Korea")
        ("kw" "Kuwait")
        ("ky" "Cayman Islands")
-       ("kz" "Kazakstan")
+       ("kz" "Kazakhstan")
        ("la" "Lao People's Democratic Republic")
        ("lb" "Lebanon")
        ("lc" "Saint Lucia")
@@ -1982,7 +1990,7 @@ ADDRESS may be a string or a buffer.  If
        ("ml" "Mali")
        ("mm" "Myanmar")
        ("mn" "Mongolia")
-       ("mo" "Macau")
+       ("mo" "Macao")
        ("mp" "Northern Mariana Islands")
        ("mq" "Martinique")
        ("mr" "Mauritania")
@@ -1992,7 +2000,7 @@ ADDRESS may be a string or a buffer.  If
        ("mv" "Maldives")
        ("mw" "Malawi")
        ("mx" "Mexico"          "The United Mexican States")
-       ("my" "Malaysia"                "%s (changed to Myanmar?)")             
;???
+       ("my" "Malaysia")
        ("mz" "Mozambique")
        ("na" "Namibia")
        ("nc" "New Caledonia (Fr.)")
@@ -2009,7 +2017,7 @@ ADDRESS may be a string or a buffer.  If
        ("om" "Oman")
        ("pa" "Panama")
        ("pe" "Peru")
-       ("pf" "Polynesia (Fr.)")
+       ("pf" "French Polynesia")
        ("pg" "Papua New Guinea")
        ("ph" "Philippines"     "The Republic of the %s")
        ("pk" "Pakistan")
@@ -2041,18 +2049,19 @@ ADDRESS may be a string or a buffer.  If
        ("sn" "Senegal")
        ("so" "Somalia")
        ("sr" "Suriname")
-       ("st" "Sao Tome And Principe")
+       ("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")
+       ("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,10 +2079,11 @@ ADDRESS may be a string or a buffer.  If
        ("uy" "Uruguay"         "The Eastern Republic of %s")
        ("uz" "Uzbekistan")
        ("va" "Holy See (Vatican City State)")
-       ("vc" "St. Vincent and the Grenadines")
+       ("vc" "Saint Vincent and the Grenadines")
        ("ve" "Venezuela"       "The Republic of %s")
        ("vg" "Virgin Islands, British")
        ("vi" "Virgin Islands, U.S.")
+       ("vn" "Viet Nam")
        ("vn" "Vietnam")
        ("vu" "Vanuatu")
        ("wf" "Wallis and Futuna")
@@ -2084,20 +2094,26 @@ ADDRESS may be a string or a buffer.  If
        ("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")
+       ;; Generic Domains:
+       ("aero" t                "Air Transport Industry")
+       ("biz" t                 "Businesses")
        ("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")
+       ("coop" t                "Cooperative Associations")
+       ("info" t                "Info")
+       ("museum" t              "Museums")
+       ("name" t                "Individuals")
        ("net" t                        "Network")
        ("org" t                        "Non-profit Organization")
-       ;;("unter-dom" t                "? (Ger.)")
+       ;;("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")
-       ;;("fipnet" nil         "?")
+       ;; Infrastructure Domains:
+       ("arpa" t               "Advanced Research Projects Agency (U.S. DoD)")
        ))
     ob))