diff options
author | Katsumi Yamaoka <yamaoka@jpl.org> | 2015-02-25 02:39:47 +0000 |
---|---|---|
committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2015-02-25 02:39:47 +0000 |
commit | b86ba30d17abcc85c73ad47ed95f15147508538c (patch) | |
tree | 9199421458d7fd16d47071a5f34fdfabd8764f98 /lisp | |
parent | 27bd6dadf4a841c16e7f8fcdbd6068512c02bc3b (diff) | |
download | emacs-b86ba30d17abcc85c73ad47ed95f15147508538c.tar.gz emacs-b86ba30d17abcc85c73ad47ed95f15147508538c.tar.bz2 emacs-b86ba30d17abcc85c73ad47ed95f15147508538c.zip |
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.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/gnus/ChangeLog | 7 | ||||
-rw-r--r-- | lisp/gnus/mm-decode.el | 2 | ||||
-rw-r--r-- | lisp/gnus/mm-view.el | 2 |
3 files changed, 9 insertions, 2 deletions
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 <yamaoka@jpl.org> + + * 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 <tsdh@gnu.org> * 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) |