summaryrefslogtreecommitdiff
path: root/lisp/gnus/mm-view.el
diff options
context:
space:
mode:
authorKatsumi Yamaoka <yamaoka@jpl.org>2014-06-05 04:31:36 +0000
committerKatsumi Yamaoka <yamaoka@jpl.org>2014-06-05 04:31:36 +0000
commit0d46b5f12c2e87c1fb2d5f103f2012c2f03a7ba9 (patch)
tree69f44dcaff21437d53ef351889260e3047a7f4d6 /lisp/gnus/mm-view.el
parent343d16e40c1c4487408c241bfa0341242318b00b (diff)
downloademacs-0d46b5f12c2e87c1fb2d5f103f2012c2f03a7ba9.tar.gz
Gnus: fix last change
* gnus-art.el (gnus-article-edit-part): Don't modifiy markers. (gnus-article-read-summary-keys): Don't bug out when there is no article in the summary buffer. * gnus-art.el (gnus-mm-display-part): * mm-decode.el (mm-shr): * mm-view.el (mm-inline-text-html-render-with-w3m, mm-inline-text) (mm-insert-inline): Revert last changes.
Diffstat (limited to 'lisp/gnus/mm-view.el')
-rw-r--r--lisp/gnus/mm-view.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el
index 84030fc2065..ecfa2ac9582 100644
--- a/lisp/gnus/mm-view.el
+++ b/lisp/gnus/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"))