From 343d16e40c1c4487408c241bfa0341242318b00b Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 5 Jun 2014 01:38:42 +0000 Subject: [PATCH] Gnus: bugfixes to make `gnus-mime-save-part-and-strip' work again * 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): Set insertion type of end-marker, not only start-marker, of undisplayer so as to stay after inserted text. --- lisp/gnus/ChangeLog | 8 ++++++++ lisp/gnus/gnus-art.el | 2 +- lisp/gnus/mm-decode.el | 2 +- lisp/gnus/mm-view.el | 6 +++--- 4 files changed, 13 insertions(+), 5 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 3560260d7ae..124e3b90735 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,11 @@ +2014-06-05 Katsumi Yamaoka + + * 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): Set insertion type of end-marker, not only + start-marker, of undisplayer so as to stay after inserted text. + 2014-06-02 Andreas Schwab * html2text.el (html2text-get-attr): Fix typo when splitting value from diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index c9ceb2eeef5..7929e2e3284 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -5736,7 +5736,7 @@ all parts." `(lambda () (let ((inhibit-read-only t)) (delete-region ,(copy-marker (point-min) t) - ,(point-max-marker))))))) + ,(copy-marker (point-max) t))))))) (part (mm-display-inline handle)))))) (goto-char point) diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index cde0af036a5..31c46f2f53f 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -1868,7 +1868,7 @@ If RECURSIVE, search recursively." `(lambda () (let ((inhibit-read-only t)) (delete-region ,(copy-marker (point-min) t) - ,(point-max-marker)))))))) + ,(copy-marker (point-max) t)))))))) (defvar shr-map) diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el index c565d0ed604..84030fc2065 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) - ,(point-max-marker))))))))) + ,(copy-marker (point-max) t))))))))) (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) - ,(point-max-marker)))))))) + ,(copy-marker (point-max) t)))))))) (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)))))))) + ,(copy-marker (point) t))))))) (defun mm-inline-audio (handle) (message "Not implemented")) -- 2.39.2