From c0bfe5d1c5602dac1e1eee9646e4da4007aec7e0 Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 23 Mar 2022 00:59:50 +0000 Subject: gnus: proper image toggling --- gnus.org | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/gnus.org b/gnus.org index 5d5df3e..dfa9174 100644 --- a/gnus.org +++ b/gnus.org @@ -660,15 +660,22 @@ (shr-render-region begin (1- (point)))))))))) (add-hook 'gnus-part-display-hook 'jao-gnus-remove-anchors) - (defvar-local jao-gnus--images-p nil) + + (defvar-local jao-gnus--images nil) + + (defun jao-gnus--init-images () + (with-current-buffer gnus-article-buffer + (setq jao-gnus--images nil))) + + (add-hook 'gnus-select-article-hook #'jao-gnus--init-images) (defun jao-gnus-show-images () (interactive) (save-window-excursion (gnus-summary-select-article-buffer) (save-excursion - (setq jao-gnus--images-p (not jao-gnus--images-p)) - (if jao-gnus--images-p + (setq jao-gnus--images (not jao-gnus--images)) + (if jao-gnus--images (gnus-article-show-images) (gnus-article-remove-images))))) #+end_src -- cgit v1.2.3