2000-11-04 20:38:50 ShengHuo ZHU <zsh@cs.rochester.edu>

	* mm-view.el (mm-inline-text): Move point to the end of inserted text.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7f751c7..cf308c1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-04 20:38:50  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mm-view.el (mm-inline-text): Move point to the end of inserted text.
+
 2000-11-04 19:07:08  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mml2015.el (mml2015-function-alist): Clear verify and decrypt.

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index 9f389ba..d55eb79 100644 (file)
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -158,7 +158,10 @@
                ;; This is probably not entirely correct, but
                ;; makes rfc822 parts with embedded multiparts work. 
                (eq mail-parse-charset 'gnus-decoded))
-           (mm-insert-part handle)
+           (save-restriction
+             (narrow-to-region (point) (point))
+             (mm-insert-part handle)
+             (goto-char (point-max)))
          (insert (mm-decode-string (mm-get-part handle) charset)))
        (when (and (equal type "plain")
                   (equal (cdr (assoc 'format (mm-handle-type handle)))