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 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2014-06-05  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * 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  <schwab@linux-m68k.org>
 
        * html2text.el (html2text-get-attr): Fix typo when splitting value from
 2014-06-02  Andreas Schwab  <schwab@linux-m68k.org>
 
        * 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 (file)
--- 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)
                        `(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)
                    (part
                     (mm-display-inline handle))))))
       (goto-char point)

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index cde0af0..31c46f2 100644 (file)
--- 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)
        `(lambda ()
          (let ((inhibit-read-only t))
            (delete-region ,(copy-marker (point-min) t)

-                          ,(point-max-marker))))))))
+                          ,(copy-marker (point-max) t))))))))

 
 (defvar shr-map)
 
 
 (defvar shr-map)
 

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index c565d0e..84030fc 100644 (file)
--- 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)
         `(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.")
 
 (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)
        `(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."
 
 (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)
      `(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"))
 
 (defun mm-inline-audio (handle)
   (message "Not implemented"))