[gnus git] branch master updated: =1= * nnml.el (nnml-request-article): Allow requesting by Message-ID to work when using a compressed nnml folder.

       via  370f89245bc0358ccaf7a477a931557f1594cf2d (commit)
      from  5c2ce9d41f3661c416a26dd6c8a6339aa605fb66 (commit)


- Log -----------------------------------------------------------------
commit 370f89245bc0358ccaf7a477a931557f1594cf2d
Author: Wang Diancheng <[email protected]>
Date:   Sun Jan 2 06:47:14 2011 +0100

    * nnml.el (nnml-request-article): Allow requesting by Message-ID to
    work when using a compressed nnml folder.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3e43661..adff157 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-01-02  Wang Diancheng  <[email protected]>  (tiny change)
+
+	* nnml.el (nnml-request-article): Allow requesting by Message-ID to
+	work when using a compressed nnml folder.
+
 2011-01-02  Lars Magne Ingebrigtsen  <[email protected]>
 
 	* gnus-sum.el (gnus-select-newsgroup): Don't propagate marks to
diff --git a/lisp/nnml.el b/lisp/nnml.el
index 46a6d90..ba64ae8 100644
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -1,7 +1,8 @@
 ;;; nnml.el --- mail spool access for Gnus
 
 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
-;;   2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;;   2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software
+;;   Foundation, Inc.
 
 ;; Authors: Didier Verna <[email protected]> (adding compaction)
 ;;	Simon Josefsson <[email protected]> (adding MARKS)
@@ -235,7 +236,11 @@ non-nil.")
 			  (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)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    5 +++++
 lisp/nnml.el   |    9 +++++++--
 2 files changed, 12 insertions(+), 2 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project