From f790bb74d833f87554db22aff11e566b41746f94 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 4 Sep 2010 15:28:57 +0000 Subject: [PATCH] (gnus-html-show-images): If there are no images to show, then say so instead of bugging out. --- lisp/gnus/ChangeLog | 3 +++ lisp/gnus/gnus-html.el | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index d5cdb241bec..c4a451248f6 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,8 @@ 2010-09-04 Lars Magne Ingebrigtsen + * gnus-html.el (gnus-html-show-images): If there are no images to show, + then say so instead of bugging out. + * gnus-agent.el (gnus-agent-load-alist): Check whether the agentview files exist before trying to read them. diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el index f7eb05bf8b7..a298fa0b63a 100644 --- a/lisp/gnus/gnus-html.el +++ b/lisp/gnus/gnus-html.el @@ -372,7 +372,9 @@ This only works if the article in question is HTML." (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)))) + (if (not images) + (message "No images to show") + (gnus-html-schedule-image-fetching (current-buffer) images))))) ;;;###autoload (defun gnus-html-prefetch-images (summary) -- 2.39.2