Commit 25f28806 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

gnus-html.el: Add the new command gnus-html-show-images.

parent 28e44fbf
2010-09-03 Lars Magne Ingebrigtsen <>
* gnus.texi (Article Display): Document gnus-html-show-images.
2010-09-02 Jan Djärv <>
* cl.texi (Basic Setf): Remove x-get-cut-buffer and x-get-cutbuffer.
2010-09-01 Lars Magne Ingebrigtsen <>
......@@ -10351,6 +10351,14 @@ Piconify all news headers (i. e., @code{Newsgroups} and
Remove all images from the article buffer
@item W D W
@kindex W D W (Summary)
@findex gnus-html-show-images
If you're reading an @acronym{HTML} article rendered with
@code{gnus-article-html}, then you can insert any blocked images in
the buffer with this command.
@end table
......@@ -3,6 +3,8 @@
* gnus-html.el (gnus-html-put-image): Allow images to be removed.
(gnus-html-wash-tags): Add a new `i' command to insert images.
(gnus-html-insert-image): New command and keystroke.
(gnus-html-redisplay-with-images): New command and keystroke.
(gnus-html-show-images): Renamed command.
* gnus-agent.el (gnus-agent-auto-agentize-methods): Change the default
so that nnimap methods aren't agentized by default. There's apparently
......@@ -362,6 +362,18 @@ fit these criteria."
url blocked-images))
(defun gnus-html-show-images ()
"Show any images that are in the HTML-rendered article buffer.
This only works if the article in question is HTML."
(let ((overlays (overlays-in (point-min) (point-max)))
overlay images)
(while (setq overlay (pop overlays))
(when (overlay-get overlay 'gnus-image)
(push (overlay-get overlay 'gnus-image) images)))
(gnus-html-schedule-image-fetching (current-buffer) images))))
(defun gnus-html-prefetch-images (summary)
(let (blocked-images urls)
......@@ -2110,6 +2110,7 @@ increase the score of each group you read."
"d" gnus-article-display-face
"s" gnus-treat-smiley
"D" gnus-article-remove-images
"W" gnus-html-show-images
"f" gnus-treat-from-picon
"m" gnus-treat-mail-picon
"n" gnus-treat-newsgroups-picon)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment