Synch to No Gnus 200508041313.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14ff64d..bd052d5 100644 (file)
--- 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 (file)
--- 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"