diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-26 11:28:03 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-26 11:28:03 -0400 |
| commit | 28d0654943ca4e66cdcb498c53dc8aaa41fe2fad (patch) | |
| tree | 27af5f440e0a02969d479c851fdaa2e3cd14e67e /lisp/mh-e/mh-mime.el | |
| parent | c24766c4d59bc7d9f583f299b1558e2356fba933 (diff) | |
| download | emacs-28d0654943ca4e66cdcb498c53dc8aaa41fe2fad.tar.gz emacs-28d0654943ca4e66cdcb498c53dc8aaa41fe2fad.tar.bz2 emacs-28d0654943ca4e66cdcb498c53dc8aaa41fe2fad.zip | |
* lisp/mh-e/: Take advice-remove of the newly enabled lexical-binding
* lisp/mh-e/mh-mime.el (mh-mm-inline-message):
* lisp/mh-e/mh-inc.el (mh-inc-spool-generator): Replace `(lambda...)
with a proper closure.
Diffstat (limited to 'lisp/mh-e/mh-mime.el')
| -rw-r--r-- | lisp/mh-e/mh-mime.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el index 3ae8b0728cc..5ffba8fe1a8 100644 --- a/lisp/mh-e/mh-mime.el +++ b/lisp/mh-e/mh-mime.el @@ -487,9 +487,11 @@ decoding the same message multiple times." (mh-display-emphasis) (mm-handle-set-undisplayer handle - `(lambda () - (let (buffer-read-only) - (delete-region ,(point-min-marker) ,(point-max-marker))))))))) + (let ((beg (point-min-marker)) + (end (point-max-marker))) + (lambda () + (let ((inhibit-read-only t)) + (delete-region beg end))))))))) ;;;###mh-autoload (defun mh-decode-message-header () |