gnus-art.el (gnus-mime-buttonize-attachments-in-header): Improve criterion that finds...

[gnus] / lisp / mm-view.el

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index 84030fc..ecfa2ac 100644 (file)
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -218,7 +218,7 @@
         `(lambda ()
            (let ((inhibit-read-only t))
              (delete-region ,(copy-marker (point-min) t)
-                            ,(copy-marker (point-max) t)))))))))
+                            ,(point-max-marker)))))))))
 
 (defvar mm-w3m-standalone-supports-m17n-p (if (featurep 'mule) 'undecided)
   "*T means the w3m command supports the m17n feature.")
@@ -392,7 +392,7 @@
        `(lambda ()
           (let ((inhibit-read-only t))
            (delete-region ,(copy-marker (point-min) t)
-                          ,(copy-marker (point-max) t))))))))
+                          ,(point-max-marker))))))))
 
 (defun mm-insert-inline (handle text)
   "Insert TEXT inline from HANDLE."
@@ -405,7 +405,7 @@
      `(lambda ()
        (let ((inhibit-read-only t))
          (delete-region ,(copy-marker b t)
-                        ,(copy-marker (point) t)))))))
+                        ,(point-marker)))))))
 
 (defun mm-inline-audio (handle)
   (message "Not implemented"))