mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-22 10:26:20 +00:00
Code Issues Releases Activity

Merge bugfixes done in Gnus trunk

Browse Source 
Those changes fix only the bugs having appeared in the bug list.
Many other Gnus changes not yet merged to Emacs are in:
   ftp://ftp.jpl.org/pub/tmp/MaGnus-to-Emacs.patch
(or http://www.jpl.org/ftp/pub/tmp/MaGnus-to-Emacs.patch)

2012-06-11 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus.texi (Group Timestamp): Mention where to find documentation for
  the `gnus-tmp-' variables (bug#11601).
2012-04-14 Wolfgang Jenkner <wjenkner@inode.at>
* gnus-agent.el (gnus-agent-retrieve-headers): Recalculate the range of
  articles when fetch-old is non-nil (bug#11370).
This commit is contained in:
Gnus developers 2012-06-11 22:35:02 +00:00 committed by Katsumi Yamaoka
parent 09e06855ca
commit 71cca84d57
4 changed files with 24 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
doc/misc/ChangeLog
View File

@ -1,3 +1,8 @@
2012-06-11 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus.texi (Group Timestamp): Mention where to find documentation for
the `gnus-tmp-' variables (bug#11601).
2012-06-11 Michael Albinus <michael.albinus@gmx.de> 2012-06-11 Michael Albinus <michael.albinus@gmx.de>
Sync with Tramp 2.2.6-pre. Sync with Tramp 2.2.6-pre.

5
doc/misc/gnus.texi
View File

@ -4588,6 +4588,11 @@ trick:
""))) "")))
@end lisp @end lisp
To see what variables are dynamically bound (like
@code{gnus-tmp-group}), you have to look at the source code. The
variable names aren't guaranteed to be stable over Gnus versions,
either.
@node File Commands @node File Commands
@subsection File Commands @subsection File Commands

5
lisp/gnus/ChangeLog
View File

@ -1,3 +1,8 @@
2012-04-14 Wolfgang Jenkner <wjenkner@inode.at>
* gnus-agent.el (gnus-agent-retrieve-headers): Recalculate the range of
articles when fetch-old is non-nil (bug#11370).
2012-06-10 Lars Magne Ingebrigtsen <larsi@gnus.org> 2012-06-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-group.el (gnus-group-get-new-news): Respect * gnus-group.el (gnus-group-get-new-news): Respect

17
lisp/gnus/gnus-agent.el
View File

@ -3742,6 +3742,13 @@ has been fetched."
(gnus-make-directory (nnheader-translate-file-chars (gnus-make-directory (nnheader-translate-file-chars
(file-name-directory file) t)) (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 ;; Populate temp buffer with known headers
(when (file-exists-p file) (when (file-exists-p file)
(with-current-buffer gnus-agent-overview-buffer (with-current-buffer gnus-agent-overview-buffer
@ -3778,12 +3785,7 @@ has been fetched."
(set-buffer nntp-server-buffer) (set-buffer nntp-server-buffer)
(let* ((fetched-articles (list nil)) (let* ((fetched-articles (list nil))
(tail-fetched-articles fetched-articles) (tail-fetched-articles fetched-articles)
(min (cond ((numberp fetch-old) (min (car articles))
(max 1 (- (car articles) fetch-old)))
(fetch-old
1)
(t
(car articles))))
(max (car (last articles)))) (max (car (last articles))))
;; Get the list of articles that were fetched ;; Get the list of articles that were fetched
@ -3858,8 +3860,7 @@ has been fetched."
(not (numberp fetch-old))) (not (numberp fetch-old)))
t ; Don't remove anything. t ; Don't remove anything.
(nnheader-nov-delete-outside-range (nnheader-nov-delete-outside-range
(if fetch-old (max 1 (- (car articles) fetch-old)) (car articles)
(car articles))
(car (last articles))) (car (last articles)))
t) t)