From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Simon Josefsson Newsgroups: gmane.emacs.devel Subject: [patch] mail-extr.el fixes Date: Mon, 08 Jul 2002 14:35:26 +0200 Sender: emacs-devel-admin@gnu.org Message-ID: NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1026131750 3062 127.0.0.1 (8 Jul 2002 12:35:50 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 8 Jul 2002 12:35:50 +0000 (UTC) Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 17RXk6-0000nH-00 for ; Mon, 08 Jul 2002 14:35:50 +0200 Original-Received: from fencepost.gnu.org ([199.232.76.164]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 17RXs1-0003xR-00 for ; Mon, 08 Jul 2002 14:44:02 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.35 #1 (Debian)) id 17RXkM-0002ug-00; Mon, 08 Jul 2002 08:36:07 -0400 Original-Received: from 178.230.13.217.in-addr.dgcsystems.net ([217.13.230.178] helo=yxa.extundo.com) by fencepost.gnu.org with esmtp (Exim 3.35 #1 (Debian)) id 17RXjl-0002tO-00 for ; Mon, 08 Jul 2002 08:35:29 -0400 Original-Received: from latte.josefsson.org (yxa.extundo.com [217.13.230.178]) (authenticated bits=0) by yxa.extundo.com (8.12.5/8.12.5) with ESMTP id g68CZQwF005761 for ; Mon, 8 Jul 2002 14:35:26 +0200 Original-To: emacs-devel@gnu.org X-Hashcash: 020708:emacs-devel@gnu.org:ec46a3522630e2e1 Original-Lines: 170 User-Agent: Gnus/5.090007 (Oort Gnus v0.07) Emacs/21.2 (i386-debian-linux-gnu) X-Spam-Status: No, hits=0.0 required=5.0 tests= version=2.20 Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.11 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.devel:5561 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:5561 How about this? 2002-07-08 Simon Josefsson * 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))