[gnus git] branch master updated: m0-11-18-ga9c30bf =1= Bugfixes to make `gnus-mime-save-part-and-strip' work again

       via  a9c30bf897ac1b3b6081260a6245c616f4be7a50 (commit)
      from  dd1bc0b643c75fdd9c2cb817437bb0f7fd8b1ed4 (commit)


- Log -----------------------------------------------------------------
commit a9c30bf897ac1b3b6081260a6245c616f4be7a50
Author: Katsumi Yamaoka <[email protected]>
Date:   Thu Jun 5 01:38:19 2014 +0000

    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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b4a0d2..6484175 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2014-06-05  Katsumi Yamaoka  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* html2text.el (html2text-get-attr): Fix typo when splitting value from
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index d2cf73f..5566b0e 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -5737,7 +5737,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/mm-decode.el b/lisp/mm-decode.el
index cde0af0..31c46f2 100644
--- a/lisp/mm-decode.el
+++ b/lisp/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/mm-view.el b/lisp/mm-view.el
index c565d0e..84030fc 100644
--- a/lisp/mm-view.el
+++ b/lisp/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"))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog    |    8 ++++++++
 lisp/gnus-art.el  |    2 +-
 lisp/mm-decode.el |    2 +-
 lisp/mm-view.el   |    6 +++---
 4 files changed, 13 insertions(+), 5 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project