From f4813b23f26b3d3af2c098ae55091e7f7cd763cd Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 21 Sep 2021 07:16:37 +0200 Subject: [PATCH] Inhibit warning in mm-inline-wash-with-file from previous change * lisp/gnus/mm-view.el (mm-inline-wash-with-file): Inhibit warning about previous lexical fixup. --- lisp/gnus/mm-view.el | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el index 09660cd8b03..129295474f7 100644 --- a/lisp/gnus/mm-view.el +++ b/lisp/gnus/mm-view.el @@ -271,16 +271,17 @@ 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) - (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)) - (delete-file file)) - (and post-func (funcall post-func)))) + (with-suppressed-warnings ((lexical file)) + (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)) + (delete-file file)) + (and post-func (funcall post-func))))) (defun mm-inline-wash-with-stdin (post-func cmd &rest args) (let ((coding-system-for-write 'binary)) -- 2.39.5