From: Katsumi Yamaoka Date: Wed, 25 Feb 2015 02:39:47 +0000 (+0000) Subject: Gnus: Revert my bogus changes (2014-06-05) X-Git-Tag: emacs-25.0.90~2564^2~298 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b86ba30d17abcc85c73ad47ed95f15147508538c;p=emacs.git Gnus: Revert my bogus changes (2014-06-05) * mm-decode.el (mm-shr) * mm-view.el (mm-inline-text-html-render-with-w3m): Revert my bogus change that made the start marker of a part the "moves after insertion" type. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 7a4c463208a..671e171e93e 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,10 @@ +2015-02-25 Katsumi Yamaoka + + * mm-decode.el (mm-shr) + * mm-view.el (mm-inline-text-html-render-with-w3m): + Revert my bogus change that made the start marker of a part + the "moves after insertion" type. + 2015-02-23 Tassilo Horn * mailcap.el (mailcap-mime-data): Support `pdf-view-mode' (from PDF diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 459c7935f9b..ae6bb71dfc7 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -1895,7 +1895,7 @@ If RECURSIVE, search recursively." handle `(lambda () (let ((inhibit-read-only t)) - (delete-region ,(copy-marker (point-min) t) + (delete-region ,(point-min-marker) ,(point-max-marker)))))))) (defvar shr-map) diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el index 4b520edf1e2..a3d6e74fbcb 100644 --- a/lisp/gnus/mm-view.el +++ b/lisp/gnus/mm-view.el @@ -217,7 +217,7 @@ handle `(lambda () (let ((inhibit-read-only t)) - (delete-region ,(copy-marker (point-min) t) + (delete-region ,(point-min-marker) ,(point-max-marker))))))))) (defvar mm-w3m-standalone-supports-m17n-p (if (featurep 'mule) 'undecided)