Find message.el thumbnail toggling

* lisp/gnus/message.el (message-toggle-image-thumbnails):
Don't infloop when toggling thumbnails.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 2ce97377362..cb4843e1462 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -8399,7 +8399,8 @@ Used in `message-simplify-recipients'."
           (when (and (consp props)
                      (eq (car props) 'image))
             (put-text-property (point) (1+ (point)) 'display nil)
-            (setq displayed t)))))
+            (setq displayed t)))
+        (forward-char 1)))
     (unless displayed
       (save-excursion
         (goto-char (point-min))