[gnus git] branch master updated: m0-5-34-g44f6035 =1= Make `A T' work when agentized

       via  44f603535c63aab124e139b145fce20fff488f38 (commit)
      from  ad8f05e2d387e5a8a2802dea0fb783703fa74eaa (commit)


- Log -----------------------------------------------------------------
commit 44f603535c63aab124e139b145fce20fff488f38
Author: Wolfgang Jenkner <[email protected]>
Date:   Mon Jun 11 23:49:17 2012 +0200

    Make `A T' work when agentized
    
    * gnus-agent.el (gnus-agent-retrieve-headers): Recalculate the range of
    articles when fetch-old is non-nil (bug#11370).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b09d0eb..a6e204a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-04-14  Wolfgang Jenkner  <[email protected]>
+
+	* gnus-agent.el (gnus-agent-retrieve-headers): Recalculate the range of
+	articles when fetch-old is non-nil (bug#11370).
+
 2012-05-04  Wolfgang Jenkner  <[email protected]>
 
 	* gnus-picon.el (gnus-picon-properties): New defcustom.
diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 540a97b..525008c 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -3743,6 +3743,13 @@ has been fetched."
       (gnus-make-directory (nnheader-translate-file-chars
 			    (file-name-directory file) t))
 
+      (when fetch-old
+	(setq articles (gnus-uncompress-range
+			(cons (if (numberp fetch-old)
+				  (max 1 (- (car articles) fetch-old))
+				1)
+			      (car (last articles))))))
+
       ;; Populate temp buffer with known headers
       (when (file-exists-p file)
 	(with-current-buffer gnus-agent-overview-buffer
@@ -3779,12 +3786,7 @@ has been fetched."
                    (set-buffer nntp-server-buffer)
                    (let* ((fetched-articles (list nil))
                           (tail-fetched-articles fetched-articles)
-                          (min (cond ((numberp fetch-old)
-                                      (max 1 (- (car articles) fetch-old)))
-                                     (fetch-old
-                                      1)
-                                     (t
-                                      (car articles))))
+                          (min (car articles))
                           (max (car (last articles))))
 
                      ;; Get the list of articles that were fetched
@@ -3859,8 +3861,7 @@ has been fetched."
 	     (not (numberp fetch-old)))
 	t				; Don't remove anything.
       (nnheader-nov-delete-outside-range
-       (if fetch-old (max 1 (- (car articles) fetch-old))
-	 (car articles))
+       (car articles)
        (car (last articles)))
       t)
 

-----------------------------------------------------------------------
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/gnus-agent.el |   17 +++++++++--------
 2 files changed, 14 insertions(+), 8 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