From: Lars Ingebrigtsen 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))))