procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Lars Magne Ingebrigtsen 2010-09-04 00:30:49 +00:00 • committed by Katsumi Yamaoka
parent 28e44fbf62
commit 25f28806d2
5 changed files with 28 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
doc/misc/ChangeLog
View file

@ -1,4 +1,9 @@
2010-09-03 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus.texi (Article Display): Document gnus-html-show-images.
2010-09-02 Jan Djärv <jan.h.d@swipnet.se>
* cl.texi (Basic Setf): Remove x-get-cut-buffer and x-get-cutbuffer.
2010-09-01 Lars Magne Ingebrigtsen <larsi@gnus.org>

8
doc/misc/gnus.texi
View file

@ -10351,6 +10351,14 @@ Piconify all news headers (i. e., @code{Newsgroups} and
Remove all images from the article buffer
(@code{gnus-article-remove-images}).
@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.
(@code{gnus-html-show-images}).
@end table

2
lisp/gnus/ChangeLog
View file

@ -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

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

@ -362,6 +362,18 @@ fit these criteria."
url blocked-images))
ret))
(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."
(interactive)
(gnus-with-article-buffer
(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))))
;;;###autoload
(defun gnus-html-prefetch-images (summary)
(let (blocked-images urls)

1
lisp/gnus/gnus-sum.el
View file

@ -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)