Release MH-E version 7.94.

[gnu-emacs] / lisp / image-mode.el

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index e49ca27db7283a775dad18945225f48f6c734e21..1a55676e3c701b51eadcf972b7184e40e69870f9 100644 (file)
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -139,8 +139,13 @@ and showing the image as an image."
     ;; was inserted
     (let* ((image
            (if (and (buffer-file-name)
-                    (not (buffer-modified-p)))
-               (create-image (buffer-file-name))
+                    (not (buffer-modified-p))
+                    (not (and (boundp 'archive-superior-buffer)
+                              archive-superior-buffer))
+                    (not (and (boundp 'tar-superior-buffer)
+                              tar-superior-buffer)))
+               (progn (clear-image-cache)
+                      (create-image (buffer-file-name)))
              (create-image
               (string-make-unibyte
                (buffer-substring-no-properties (point-min) (point-max)))