patch for Gnus, fix goto article failed when nnml-use-compressed-files is t

[Wang Diancheng]

Hi, 

Gnus backend is nnml with "(setq nnml-use-compressed-files t)"

when calling function:

(gnus-summary-goto-article
         "<address@hidden>")

here, "<address@hidden>" is a message-id of a exist
article, which is compressed by nnml.

will print error message:

Couldn't fetch article <address@hidden>


the attached patch for fix it.

--- nnml.el~    2010-12-21 17:33:07.000000000 +0800
+++ nnml.el     2010-12-21 17:33:09.000000000 +0800
@@ -235,7 +235,11 @@
                          (nnheader-article-to-file-alist
                           (setq gpath (nnml-group-pathname (car group-num)
                                                            nil server))))))
-         (setq path (concat gpath (int-to-string (cdr group-num)))))
+         (nnml-update-file-alist)
+         (setq path (concat gpath  (if nnml-use-compressed-files
+                                       (cdr (assq (cdr group-num)
+                                                  nnml-article-file-alist))
+                                     (number-to-string (cdr group-num))))))
       (setq path (nnml-article-to-file id)))
     (cond
      ((not path)


-- 
Best Regards,
Wang Diancheng