summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKatsumi Yamaoka <yamaoka@jpl.org>2015-02-25 02:39:47 +0000
committerKatsumi Yamaoka <yamaoka@jpl.org>2015-02-25 02:39:47 +0000
commitb86ba30d17abcc85c73ad47ed95f15147508538c (patch)
tree9199421458d7fd16d47071a5f34fdfabd8764f98 /lisp
parent27bd6dadf4a841c16e7f8fcdbd6068512c02bc3b (diff)
downloademacs-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/ChangeLog7
-rw-r--r--lisp/gnus/mm-decode.el2
-rw-r--r--lisp/gnus/mm-view.el2
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)