Mercurial > emacs
comparison lisp/gnus/gnus-html.el @ 110169:49b2e6d8b396
gnus-html.el: Add the new command gnus-html-show-images.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Sat, 04 Sep 2010 00:30:49 +0000 |
| parents | 1feebeccf097 |
| children | 5e7ec1dda5c0 |
comparison
equal
deleted
inserted
replaced
| 110168:1feebeccf097 | 110169:49b2e6d8b396 |
|---|---|
| 360 url blocked-images) | 360 url blocked-images) |
| 361 (gnus-message 9 "gnus-html-image-url-blocked-p: %s passes regex %s" | 361 (gnus-message 9 "gnus-html-image-url-blocked-p: %s passes regex %s" |
| 362 url blocked-images)) | 362 url blocked-images)) |
| 363 ret)) | 363 ret)) |
| 364 | 364 |
| 365 (defun gnus-html-show-images () | |
| 366 "Show any images that are in the HTML-rendered article buffer. | |
| 367 This only works if the article in question is HTML." | |
| 368 (interactive) | |
| 369 (gnus-with-article-buffer | |
| 370 (let ((overlays (overlays-in (point-min) (point-max))) | |
| 371 overlay images) | |
| 372 (while (setq overlay (pop overlays)) | |
| 373 (when (overlay-get overlay 'gnus-image) | |
| 374 (push (overlay-get overlay 'gnus-image) images))) | |
| 375 (gnus-html-schedule-image-fetching (current-buffer) images)))) | |
| 376 | |
| 365 ;;;###autoload | 377 ;;;###autoload |
| 366 (defun gnus-html-prefetch-images (summary) | 378 (defun gnus-html-prefetch-images (summary) |
| 367 (let (blocked-images urls) | 379 (let (blocked-images urls) |
| 368 (when (buffer-live-p summary) | 380 (when (buffer-live-p summary) |
| 369 (with-current-buffer summary | 381 (with-current-buffer summary |