Missing domains in M-x what-domain (diff included)

[era eriksson]

This bug report will be sent to the Free Software Foundation,
 not to your local site managers!!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

In GNU Emacs 20.3.2 (i386-debian-linux-gnu, X toolkit)
 of Thu Jan 28 1999 on raven
configured using `configure  i386-debian-linux-gnu --prefix=/usr 
--sharedstatedir=/var/lib --libexecdir=/usr/lib --localstatedir=/var/lib 
--infodir=/usr/info --with-pop=yes --with-x=yes --with-x-toolkit=yes'

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

I found some domain names to be missing from mail-extr.el.
I have hacked them in, based on a file countries.gz which
was installed on my Debian system and which appears to be
part of the GNU miscfiles package. (It contained a lot of
typos, some of which may have made it here, but I hope I
managed to correct all the obvious ones.) I also checked
against another source which I found on the Internet
(http://www.ics.uci.edu/pub/websoft/wwwstat/country-codes.txt)
although that is clearly not authoritative or comprehensive
either. But this is a start.

I have downloaded the Emacs 20.7 sources and verified that the
version of mail-extr.el in there was identical to the older one
I have here.

Hope this helps,

/* era */


Index: mail-extr.el
===================================================================
RCS file: /usr/local/cvsroot/contrib/emacs/mail-extr.el,v
retrieving revision 1.1
retrieving revision 1.3
diff -u -r1.1 -r1.3
--- mail-extr.el        2001/09/27 09:23:21     1.1
+++ mail-extr.el        2001/09/27 10:53:56     1.3
@@ -122,6 +122,10 @@
 
 ;;; Change Log: 
 ;; 
+;; Thu Sep 27 12:25:01 2001  era eriksson (era@iki.fi)
+;;
+;;     * updated with missing domains, based on complete (?) ISO 3166
+;;
 ;; Thu Feb 17 17:57:33 1994  Jamie Zawinski (jwz@lucid.com)
 ;;
 ;;     * merged with jbw's latest version
@@ -1866,14 +1870,19 @@
        ;; ISO 3166 codes:
        ("ad" "Andorra")
        ("ae" "United Arab Emirates")
+       ("af" "Afghanistan")            ; TODO: look for official name
        ("ag" "Antigua and Barbuda")
+       ("ai" "Anguilla")               ; TODO: look for official name
        ("al" "Albania")
        ("am" "Armenia")
+       ("an" "Netherlands Antilles")   ; TODO: look for official name
        ("ao" "Angola")
        ("aq" "Antarctica")             ; continent
        ("ar" "Argentina"       "Argentine Republic")
+       ("as" "American Samoa")         ; TODO: look for official name
        ("at" "Austria"         "The Republic of %s")
        ("au" "Australia")
+       ("aw" "Aruba")                  ; TODO: look for official name
        ("az" "Azerbaijan")
        ("ba" "Bosnia-Herzegovina")
        ("bb" "Barbados")
@@ -1882,27 +1891,38 @@
        ("bf" "Burkina Faso")
        ("bg" "Bulgaria")
        ("bh" "Bahrain")
+       ("bi" "Burundi")                        ; TODO: look for official name
+       ("bj" "Benin")                  ; TODO: look for official name
        ("bm" "Bermuda")
+       ("bn" "Brunei")                 ; TODO: look for official name
        ("bo" "Bolivia"         "Republic of %s")
        ("br" "Brazil"          "The Federative Republic of %s")
        ("bs" "Bahamas")
+       ("bt" "Bhutan")                 ; TODO: look for official name
+       ("bv" "Bouvet Island")          ; TODO: look for official name
        ("bw" "Botswana")
        ("by" "Belarus")
        ("bz" "Belize")
        ("ca" "Canada")
+       ("cc" "Cocos (Keeling) Islands")        ; TODO: look for official name
+       ("cf" "Central African Republic") ; TODO: look for official name
        ("cg" "Congo")
        ("ch" "Switzerland"     "The Swiss Confederation")
        ("ci" "Ivory Coast")
+       ("ck" "Cook Islands")           ; TODO: look for official name
        ("cl" "Chile"           "The Republic of %s")
        ("cm" "Cameroon")               ; In .fr domain
        ("cn" "China"           "The People's Republic of %s")
        ("co" "Colombia")
        ("cr" "Costa Rica"      "The Republic of %s")
-       ("cs" "Czechoslovakia")
+       ("cs" "Czechoslovakia")         ; No SOA (any longer, I guess)
        ("cu" "Cuba")
+       ("cv" "Cape Verde")             ; TODO: look for official name
+       ("cx" "Christmas Islands")      ; TODO: look for official name
        ("cy" "Cyprus")
        ("cz" "Czech Republic")
        ("de" "Germany")
+       ("dj" "Djibouti")               ; TODO: look for official name
        ("dk" "Denmark")
        ("dm" "Dominica")
        ("do" "Dominican Republic"      "The %s")
@@ -1910,10 +1930,14 @@
        ("ec" "Ecuador"         "The Republic of %s")
        ("ee" "Estonia")
        ("eg" "Egypt"           "The Arab Republic of %s")
+       ;("eh" "Western Sahara")                ; No SOA (yet?)
        ("er" "Eritrea")
        ("es" "Spain"           "The Kingdom of %s")
-       ("et" "Ethiopia")
+       ("et" "Ethiopia")               ; DNS gives me "temporary failure"
        ("fi" "Finland"         "The Republic of %s")
+       ("fj" "Fiji")                   ; TODO: look for official name
+       ("fk" "Falkland Islands")       ; TODO: look for official name?
+       ("fm" "Micronesia")             ; TODO: look for official name
        ("fo" "Faroe Islands")
        ("fr" "France")
        ("ga" "Gabon")
@@ -1921,112 +1945,178 @@
        ("gd" "Grenada")
        ("ge" "Georgia")
        ("gf" "Guyana (Fr.)")
-       ("gj" "Fiji")
+       ("gh" "Ghana")                  ; TODO: look for official name
+       ("gi" "Gibraltar")              ; TODO: look for official name?
+       ;("gj" "Fiji")                  ; This must have been a typo
        ("gl" "Greenland")
        ("gm" "Gambia")
+       ("gn" "Guinea")                 ; TODO: look for official name
        ("gp" "Guadeloupe (Fr.)")
+       ("gq" "Equatorial Guinea")      ; TODO: look for official name
        ("gr" "Greece"          "The Hellenic Republic (%s)")
+       ("gs" "S. Georgia and S. Sandwich Islands") ; TODO: look for off. name
        ("gt" "Guatemala")
        ("gu" "Guam (U.S.)")
+       ("gw" "Guinea-Bissau")          ; TODO: look for official name
+       ("gy" "Guyana")                 ; TODO: look for official name
        ("hk" "Hong Kong")
+       ("hm" "Heard and McDonald Islands") ; TODO: look for official name
        ("hn" "Honduras")
        ("hr" "Croatia"         "Croatia (Hrvatska)")
        ("ht" "Haiti")
        ("hu" "Hungary"         "The Hungarian Republic")
+       ;("hv" "Upper Volta")           ; this is now Burkina Faso
        ("id" "Indonesia")
        ("ie" "Ireland")
        ("il" "Israel"          "The State of %s")
        ("im" "Isle of Man"     "The %s")
        ("in" "India"           "The Republic of %s")
+       ("io" "British Indian Ocean Territory") ; TODO: look for official name?
+       ("iq" "Iraq")                   ; TODO: look for official name
        ("ir" "Iran")
        ("is" "Iceland"         "The Republic of %s")
        ("it" "Italy"           "The Italian Republic")
        ("jm" "Jamaica")
        ("jo" "Jordan")
        ("jp" "Japan")
+       ;("jt" "Johnston Island")       ; No SOA
        ("ke" "Kenya")
-       ("kn" "St. Kitts, Nevis, and Anguilla")
-       ("kp" "Korea (North)")
+       ("kg" "Kyrgyzstan")             ; TODO: look for official name
+       ("kh" "Cambodia")               ; TODO: look for official name
+       ("ki" "Kiribati")               ; TODO: look for official name
+       ("km" "Comoros")                        ; TODO: look for official name
+       ("kn" "St. Christopher (St. Kitts) and Nevis")
+       ("kp" "Korea (North)")          ; No SOA
        ("kr" "Korea (South)")
        ("kw" "Kuwait")
+       ("ky" "Cayman Islands")         ; TODO: look for official name
        ("kz" "Kazakhstan")
+       ("la" "Laos")                   ; TODO: look for official name
        ("lb" "Lebanon")
        ("lc" "St. Lucia")
        ("li" "Liechtenstein")
        ("lk" "Sri Lanka"       "The Democratic Socialist Republic of %s")
+       ("lr" "Liberia")                        ; TODO: look for official name
        ("ls" "Lesotho")
        ("lt" "Lithuania")
        ("lu" "Luxembourg")
        ("lv" "Latvia")
+       ("ly" "Libya")                  ; TODO: look for official name
        ("ma" "Morocco")
        ("mc" "Monaco")
        ("md" "Moldova"         "The Republic of %s")
        ("mg" "Madagascar")
+       ("mh" "Marshall Islands")       ; TODO: look for official name
+       ;("mi" "Midway Islands")                ; No SOA
        ("mk" "Macedonia")
        ("ml" "Mali")
+       ("mm" "Myanmar"         "%s (Burma)") ; TODO: look for official name
+       ("mn" "Mongolia")               ; TODO: look for official name
        ("mo" "Macau")
+       ("mp" "Northern Mariana Islands") ; TODO: look for official name
+       ("mq" "Martinique")             ; TODO: look for official name
+       ("mr" "Mauretania")             ; TODO: look for official name
+       ("ms" "Montserrat")             ; TODO: look for official name
        ("mt" "Malta")
        ("mu" "Mauritius")
        ("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.)")
-       ("ne" "Niger")                  ; In .fr domain
+       ("ne" "Niger")
+       ("nf" "Norfolk Island")         ; TODO: look for official name
+       ("ng" "Nigeria")                        ; TODO: look for official name
        ("ni" "Nicaragua"       "The Republic of %s")
        ("nl" "Netherlands"     "The Kingdom of the %s")
        ("no" "Norway"          "The Kingdom of %s")
-       ("np" "Nepal")                  ; Via .in domain
+       ("np" "Nepal")
+       ("nr" "Nauru")                  ; TODO: look for official name
+       ;("nt" "Neutral Zone (?)")      ; No SOA
        ("nu" "Niue")
        ("nz" "New Zealand")
+       ("om" "Oman")                   ; TODO: look for official name
        ("pa" "Panama")
+       ;("pc" "Pacific Islands (U.S.)")        ; No SOA
        ("pe" "Peru")
        ("pf" "Polynesia (Fr.)")
        ("pg" "Papua New Guinea")
        ("ph" "Philippines"     "The Republic of the %s")
        ("pk" "Pakistan")
        ("pl" "Poland")
+       ("pm" "St. Pierre and Miquelon")        ; TODO: look for official name
+       ("pn" "Pitcairn")               ; TODO: look for official name
        ("pr" "Puerto Rico (U.S.)")
        ("pt" "Portugal"                "The Portuguese Republic")
+       ("pw" "Palau")                  ; TODO: look for official name
        ("py" "Paraguay")
        ("qa" "Qatar")
        ("re" "Reunion (Fr.)")          ; In .fr domain
        ("ro" "Romania")
        ("ru" "Russian Federation")
+       ("rw" "Rwanda")                 ; TODO: look for official name
        ("sa" "Saudi Arabia")
+       ("sb" "Solomon Islands")                ; TODO: look for official name
        ("sc" "Seychelles")
-       ("sd" "Sudan")
+       ("sd" "Sudan")                  ; No SOA
        ("se" "Sweden"          "The Kingdom of %s")
        ("sg" "Singapore"       "The Republic of %s")
+       ("sh" "St. Helena")             ; TODO: look for official name
        ("si" "Slovenia")
        ("sj" "Svalbard and Jan Mayen Is.") ; In .no domain
        ("sk" "Slovakia"                "The Slovak Republic")
+       ("sl" "Sierra Leone")           ; TODO: look for official name
        ("sm" "San Marino")
        ("sn" "Senegal")
+       ("so" "Somalia")                        ; TODO: look for official name
        ("sr" "Suriname")
+       ;; This one should properly be S\~ao Tom\'e and Principe
+       ("st" "Sao Tome and Principe")  ; TODO: look for official name
        ("su" "U.S.S.R."                "The Union of Soviet Socialist 
Republics")
+       ("sv" "El Salvador")            ; TODO: look for official name
+       ("sy" "Syria")                  ; TODO: look for official name
        ("sz" "Swaziland")
+       ("tc" "Turks and Caicos Islands") ; TODO: look for official name
+       ("td" "Chad")                   ; TODO: look for official name
+       ("tf" "French Southern Territories") ; TODO: look for official name
        ("tg" "Togo")
        ("th" "Thailand"                "The Kingdom of %s")
+       ("tj" "Tajikistan")             ; TODO: look for official name
+       ("tk" "Tokelau")                        ; TODO: look for official name
        ("tm" "Turkmenistan")           ; In .su domain
        ("tn" "Tunisia")
        ("to" "Tonga")
+       ("tp" "East Timor")             ; TODO: look for official name
        ("tr" "Turkey"          "The Republic of %s")
        ("tt" "Trinidad and Tobago")
+       ("tv" "Tuvalu")                 ; TODO: look for official name
        ("tw" "Taiwan")
+       ("tz" "Tanzania")               ; TODO: look for official name
        ("ua" "Ukraine")
+       ("ug" "Uganda")                 ; TODO: look for official name
        ("uk" "United Kingdom"  "The %s of Great Britain and Northern Ireland")
+       ("um" "U.S. Minor Outlying Islands") ; TODO: look for official name
        ("us" "United States"   "The %s of America")
        ("uy" "Uruguay"         "The Eastern Republic of %s")
+       ("uz" "Uzbekistan")             ; TODO: look for official name
+       ("va" "Vatican City State" "%s (Holy See)")
        ("vc" "St. Vincent and the Grenadines")
        ("ve" "Venezuela"       "The Republic of %s")
+       ("vg" "Virgin Islands (U.K.)")  ; TODO: look for official name
        ("vi" "Virgin Islands (U.S.)")
        ("vn" "Vietnam")
        ("vu" "Vanuatu")
+       ("wf" "Wallis and Futuna Islands") ; TODO: look for official name
+       ;("wk" "Wake Island")           ; No SOA
+       ("ws" "Western Samoa")          ; TODO: look for official name
+       ("ye" "Yemen")                  ; TODO: look for official name
+       ("yt" "Mayotte")                        ; TODO: look for official name
        ("yu" "Yugoslavia"      "Yugoslavia, AKA Serbia-Montenegro")
        ("za" "South Africa"    "The Republic of %s")
+       ("zm" "Zambia")                 ; TODO: look for official name
+       ;("zr" "Zaire")                 ; Obsolete? No SOA
        ("zw" "Zimbabwe"                "Republic of %s")
        ;; Special top-level domains:
        ("arpa" t               "Advanced Research Projects Agency (U.S. DoD)")
@@ -2036,7 +2126,7 @@
        ("gov" t                        "Government (U.S.)")
        ("int" t                        "International (NATO)")
        ("mil" t                        "Military (U.S.)")
-       ("nato" t               "North Atlantic Treaty Organization")
+       ("nato" t               "North Atlantic Treaty Organization") ; No SOA
        ("net" t                        "Network")
        ("org" t                        "Non-profit Organization")
        ;;("unter-dom" t                "? (Ger.)")



Recent input:
SPC b e f backspace c a u s e SPC t h e y SPC a p p 
e a r s SPC backspace backspace e d SPC t o SPC b e 
SPC t y p o s , SPC a n d / o r SPC d i d SPC n o t 
SPC h a v e SPC a n SPC S O P A backspace backspace 
A SPC r e c o r d SPC i n SPC D O backspace N S C-c 
C-c escape x r e p o tab r tab return

Recent messages:
Loading vc...
Loading derived...
Loading derived...done
Loading vc...done
Enter a change comment.  Type C-c C-c when done.
Checking in /home/era/work/contrib/emacs/mail-extr.el...
Checking in /home/era/work/contrib/emacs/mail-extr.el...done
Making completion list...
Loading emacsbug...
Loading emacsbug...done

-- 
 Too much to say to fit into this .signature anyway: <http://www.iki.fi/era/>
  Fight spam in Europe: <http://www.euro.cauce.org/> * Sign the EU petition