[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master d3bfe91: Fix lexical fallout in mm-inline-wash-with-file
From: |
Lars Ingebrigtsen |
Subject: |
master d3bfe91: Fix lexical fallout in mm-inline-wash-with-file |
Date: |
Tue, 21 Sep 2021 00:43:31 -0400 (EDT) |
branch: master
commit d3bfe91ef57b7bc766a85ba1ab0abeabe880e474
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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.
---
lisp/gnus/mm-view.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el
index 2ec75a0..09660cd 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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master d3bfe91: Fix lexical fallout in mm-inline-wash-with-file,
Lars Ingebrigtsen <=