Saving enriched mode with embedded image misplaces end tag

[Derek Upham]

Run the following function in a directory where you have write access:

  (defun test-bar ()
    (find-file "bar.doc")
    (enriched-mode)
    (insert "This is a test.")
    (forward-word -1)
    (forward-char -1)
    ;; Point is now just after the "a".
    (insert-image (create-image "gnus.pbm") "gnus")
    (save-buffer))

The function creates a file named "bar.doc" with the text

  This is a# test.

where the hash symbol is actually the big GNUS logo.  Kill that buffer and
load the file with ^X^F (find-file), and the text has changed to:

  This is a#

The final word, "test." has disappeared.  If we examine the saved file,
"bar.doc" (either load it literally, or view it from the shell), we see
the following:

  Content-Type: text/enriched
  Text-Width: 70
  
  This is a<x-display><param>(image :type pbm :file "gnus.pbm")</param>gnus 
test.</x-display>

This is incorrect---the "x-display" end tag should come immediately after
the word "gnus".  If we fix this by hand and re-load the file, it displays
correctly.

This is with GNU Emacs 21.1.1 (i386-debian-linux-gnu, X toolkit, Xaw3d
scroll bars) of 2001-11-09 on raven, modified by Debian.

Derek

--
Derek Upham
sand@celia.serv.net                                 http://www.serv.net/~sand

"Ha!  Your Leaping Tiger Kung Fu is no match for my Frightened Piglet style!"