Find message.el thumbnail toggling

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

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 2ce9737736228be5f32a4dbf8abd06ea3974e884..cb4843e14628f3ab0b65f43ebc318bab2b1540af 100644 (file)
--- 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))