(nnml-request-compact-group): Compressed files might not

have .gz extension.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b25fd5f..90cef8a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-05-08  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * nnml.el (nnml-request-compact-group): Compressed files might not
+       have .gz extension.
+
 2006-05-04  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * mm-decode.el (mm-dissect-buffer): Remove spurious double assignment.

diff --git a/lisp/nnml.el b/lisp/nnml.el
index f189361..61d1987 100644 (file)
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -1084,9 +1084,15 @@ Use the nov database for the current group if available."
                (let* ((oldfile (nnml-article-to-file old-number))
                       (newfile
                        (gnus-replace-in-string
-                        oldfile (concat "\\("
-                                        old-number-string
-                                        "\\)\\(\\(\\.gz\\)?\\)$")
+                        oldfile
+                        ;; nnml-use-compressed-files might be any string, but
+                        ;; probably it's sufficient to take into account only
+                        ;; "\\.[a-z0-9]+".  Note that we can't only use the
+                        ;; value of nnml-use-compressed-files because old
+                        ;; articles might have been saved with a different
+                        ;; value.
+                        (concat
+                         "\\(" old-number-string "\\)\\(\\(\\.[a-z0-9]+\\)?\\)$")
                         (concat new-number-string "\\2"))))
                  (with-current-buffer nntp-server-buffer
                    (nnmail-find-file oldfile)