X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fmm-view.el;h=ecfa2ac958252318cb735ae5fbc4827a0f59be21;hb=1c2ed0ce5abe2181e51f777171f8cd40a547e5a9;hp=84030fc20652f3b0fc437a66ef4247c001ed4d17;hpb=a9c30bf897ac1b3b6081260a6245c616f4be7a50;p=gnus

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index 84030fc20..ecfa2ac95 100644
--- 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"))