diff options
author | Katsumi Yamaoka <yamaoka@jpl.org> | 2014-06-05 04:31:36 +0000 |
---|---|---|
committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2014-06-05 04:31:36 +0000 |
commit | 0d46b5f12c2e87c1fb2d5f103f2012c2f03a7ba9 (patch) | |
tree | 69f44dcaff21437d53ef351889260e3047a7f4d6 /lisp/gnus/mm-view.el | |
parent | 343d16e40c1c4487408c241bfa0341242318b00b (diff) | |
download | emacs-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.el | 6 |
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")) |