projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* gnus-group.el (gnus-group-make-group): Clarify prompt.
[gnus]
/
lisp
/
gnus-async.el
diff --git
a/lisp/gnus-async.el
b/lisp/gnus-async.el
index
b7e24b8
..
52311e1
100644
(file)
--- a/
lisp/gnus-async.el
+++ b/
lisp/gnus-async.el
@@
-1,6
+1,6
@@
;;; gnus-async.el --- asynchronous support for Gnus
;;; gnus-async.el --- asynchronous support for Gnus
-;; Copyright (C) 1996-201
1
Free Software Foundation, Inc.
+;; Copyright (C) 1996-201
4
Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
@@
-74,8
+74,9
@@
It should return non-nil if the article is to be prefetched."
"Function called after an article has been prefetched.
The function will be called narrowed to the region of the article
that was fetched."
"Function called after an article has been prefetched.
The function will be called narrowed to the region of the article
that was fetched."
+ :version "24.1"
:group 'gnus-asynchronous
:group 'gnus-asynchronous
- :type '
function
)
+ :type '
(choice (const nil) function)
)
;;; Internal variables.
;;; Internal variables.
@@
-237,6
+238,12
@@
that was fetched."
(save-excursion
(save-restriction
(narrow-to-region mark (point-max))
(save-excursion
(save-restriction
(narrow-to-region mark (point-max))
+ ;; Put the articles into the agent, if they aren't already.
+ (when (and gnus-agent
+ (gnus-agent-group-covered-p group))
+ (save-restriction
+ (narrow-to-region mark (point-max))
+ (gnus-agent-store-article article group)))
;; Prefetch images for the groups that want that.
(when (fboundp 'gnus-html-prefetch-images)
(gnus-html-prefetch-images summary))
;; Prefetch images for the groups that want that.
(when (fboundp 'gnus-html-prefetch-images)
(gnus-html-prefetch-images summary))
@@
-247,7
+254,7
@@
that was fetched."
gnus-async-article-alist
(cons (list (intern (format "%s-%d" group article)
gnus-async-hashtb)
gnus-async-article-alist
(cons (list (intern (format "%s-%d" group article)
gnus-async-hashtb)
- mark (
set-marker (make-marker) (point-max)
)
+ mark (
point-max-marker
)
group article)
gnus-async-article-alist))))
(if (not (gnus-buffer-live-p summary))
group article)
gnus-async-article-alist))))
(if (not (gnus-buffer-live-p summary))