From: Lars Magne Ingebrigtsen Date: Sat, 4 Sep 2010 15:28:57 +0000 (+0000) Subject: (gnus-html-show-images): If there are no images to show, then say so instead of buggi... X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~48^2~98 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f790bb74d833f87554db22aff11e566b41746f94;p=emacs.git (gnus-html-show-images): If there are no images to show, then say so instead of bugging out. --- 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)