Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
25f28806
Commit
25f28806
authored
Sep 04, 2010
by
Lars Magne Ingebrigtsen
Committed by
Katsumi Yamaoka
Sep 04, 2010
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
gnus-html.el: Add the new command gnus-html-show-images.
parent
28e44fbf
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
28 additions
and
0 deletions
+28
-0
doc/misc/ChangeLog
doc/misc/ChangeLog
+5
-0
doc/misc/gnus.texi
doc/misc/gnus.texi
+8
-0
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+2
-0
lisp/gnus/gnus-html.el
lisp/gnus/gnus-html.el
+12
-0
lisp/gnus/gnus-sum.el
lisp/gnus/gnus-sum.el
+1
-0
No files found.
doc/misc/ChangeLog
View file @
25f28806
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>
...
...
doc/misc/gnus.texi
View file @
25f28806
...
...
@@ -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
lisp/gnus/ChangeLog
View file @
25f28806
...
...
@@ -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
...
...
lisp/gnus/gnus-html.el
View file @
25f28806
...
...
@@ -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
)
...
...
lisp/gnus/gnus-sum.el
View file @
25f28806
...
...
@@ -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)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment