Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 13:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

gnus-html.el (gnus-html-schedule-image-fetching): Decode entities before feeding URLs to curl.

Browse source 
gnus-async.el (gnus-async-article-callback): Call `gnus-html-prefetch-images' unconditionally.
This commit is contained in:
Katsumi Yamaoka 2010-09-08 23:51:10 +00:00
parent b073dc4b4b
commit 724d30bea0
3 changed files with 17 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/ChangeLog
View file

@ -1,3 +1,11 @@
2010-09-08 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-async.el (gnus-async-article-callback): Call
`gnus-html-prefetch-images' unconditionally.
* gnus-html.el (gnus-html-schedule-image-fetching): Decode entities
before feeding URLs to curl.
2010-09-07 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-html.el (gnus-html-wash-tags, gnus-html-put-image): Mark cid and

14
lisp/gnus/gnus-async.el
View file

@ -237,13 +237,13 @@ that was fetched."
(setq gnus-async-current-prefetch-article nil)
(when arg
(gnus-async-set-buffer)
(when gnus-async-post-fetch-function
(save-excursion
(save-restriction
(narrow-to-region mark (point-max))
;; Prefetch images for the groups that want that.
(when (fboundp 'gnus-html-prefetch-images)
(gnus-html-prefetch-images summary))
(save-excursion
(save-restriction
(narrow-to-region mark (point-max))
;; Prefetch images for the groups that want that.
(when (fboundp 'gnus-html-prefetch-images)
(gnus-html-prefetch-images summary))
(when gnus-async-post-fetch-function
(funcall gnus-async-post-fetch-function summary))))
(gnus-async-with-semaphore
(setq

4
lisp/gnus/gnus-html.el
View file

@ -247,7 +247,7 @@ fit these criteria."
"--location"
"--max-time" "60"
"-o" (gnus-html-image-id url)
url)))
(mm-url-decode-entities-string url))))
(process-kill-without-query process)
(set-process-sentinel process 'gnus-html-curl-sentinel)
(gnus-set-process-plist process (list 'images images
@ -395,7 +395,7 @@ This only works if the article in question is HTML."
(let ((url (match-string 1)))
(unless (gnus-html-image-url-blocked-p url blocked-images)
(unless (file-exists-p (gnus-html-image-id url))
(push url urls)
(push (mm-url-decode-entities-string url) urls)
(push (gnus-html-image-id url) urls)
(push "-o" urls)))))
(let ((process