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

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

[Wang Diancheng]

[-- Attachment #1.1: Type: text/plain, Size: 389 bytes --]


Hi, 

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

when calling function:

(gnus-summary-goto-article
         "<201012201809341712361@163.com>")

here, "<201012201809341712361@163.com>" is a message-id of a exist
article, which is compressed by nnml.

will print error message:

Couldn't fetch article <201012201809341712361@163.com>


the attached patch for fix it.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: fix-goto-article.patch --]
[-- Type: text/x-diff, Size: 588 bytes --]

--- 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)

[-- Attachment #2: Type: text/plain, Size: 35 bytes --]



-- 
Best Regards,
Wang Diancheng

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

[Ted Zlatanov]

On Tue, 21 Dec 2010 17:46:46 +0800 Wang Diancheng <dianchengwang@gmail.com> wrote: 

WD> Gnus backend is nnml with "(setq nnml-use-compressed-files t)"
WD> when calling function:

WD> (gnus-summary-goto-article
WD>          "<201012201809341712361@163.com>")

WD> here, "<201012201809341712361@163.com>" is a message-id of a exist
WD> article, which is compressed by nnml.
WD> will print error message:
WD> Couldn't fetch article <201012201809341712361@163.com>
WD> the attached patch for fix it.

FYI this was applied in the Gnus trunk.

Ted