From: yamaoka <yamaoka>
Date: Thu, 4 Aug 2005 14:41:22 +0000 (+0000)
Subject: Synch to No Gnus 200508041313.
X-Git-Tag: t-gnus-6_17_4-quimby-~437
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=091eea4d890bd3f4d6f76827e06296c22f2a1a0a;p=elisp%2Fgnus.git-

Synch to No Gnus 200508041313.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14ff64d..bd052d5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,7 @@
 	(gnus-button-mid-or-mail-regexp, gnus-button-alist): Use it.
 	(gnus-button-alist): Improve regexp for domain part of the MIDs
 	for news:localpart@domain buttons.
+	(gnus-button-ctan-directory-regexp): Update.
 
 2005-08-02  Katsumi Yamaoka  <yamaoka@jpl.org>
 
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 870bfd2..95b78ca 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -6406,12 +6406,11 @@ The function must take one argument, the string naming the URL."
 		 (regexp :tag "Other")))
 
 (defcustom gnus-button-ctan-directory-regexp
-  (concat
-   "\\(?:"
-   "biblio\\|digests\\|dviware\\|fonts\\|graphics\\|help\\|"
-   "indexing\\|info\\|language\\|macros\\|support\\|systems\\|"
-   "tds\\|tools\\|usergrps\\|web\\|nonfree\\|obsolete"
-   "\\)")
+  (regexp-opt
+   (list "archive-tools" "biblio" "bibliography" "digests" "documentation"
+	 "dviware" "fonts" "graphics" "help" "indexing" "info" "language"
+	 "languages" "macros" "nonfree" "obsolete" "support" "systems"
+	 "tds" "tools" "usergrps" "web") t)
   "Regular expression for ctan directories.
 It should match all directories in the top level of `gnus-ctan-url'."
   :version "22.1"