From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 21 Sep 2021 04:43:16 +0000 (+0200)
Subject: Fix lexical fallout in mm-inline-wash-with-file
X-Git-Tag: emacs-28.0.90~800
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d3bfe91ef57b7bc766a85ba1ab0abeabe880e474;p=emacs.git

Fix lexical fallout in mm-inline-wash-with-file

* lisp/gnus/mm-view.el (mm-inline-wash-with-file): This is only
called from the `links' handler, and it passes in `file' expecting
that to be dynamically bound.  Which is a very, very confusing
interface, but make that work again, anyway.
---

diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el
index 2ec75a0bc59..09660cd8b03 100644
--- a/lisp/gnus/mm-view.el
+++ b/lisp/gnus/mm-view.el
@@ -271,13 +271,14 @@ This is only used if `mm-inline-large-images' is set to
     (delete-region (match-beginning 0) (match-end 0))))
 
 (defun mm-inline-wash-with-file (post-func cmd &rest args)
-  (let ((file (make-temp-file
-	       (expand-file-name "mm" mm-tmp-directory))))
+  (dlet ((file (make-temp-file
+	        (expand-file-name "mm" mm-tmp-directory))))
     (let ((coding-system-for-write 'binary))
       (write-region (point-min) (point-max) file nil 'silent))
     (delete-region (point-min) (point-max))
     (unwind-protect
-	(apply #'call-process cmd nil t nil (mapcar (lambda (e) (eval e t)) args))
+	(apply #'call-process cmd nil t nil
+               (mapcar (lambda (e) (eval e t)) args))
       (delete-file file))
     (and post-func (funcall post-func))))