ange-ftp + cperl-mode + replace-string bug

[Vladimir Volovich]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

In GNU Emacs 21.1.1 (sparc-sun-solaris2.8, X toolkit, Xaw3d scroll bars)
 of 2001-10-22 on video
configured using `configure  --with-xpm --with-jpeg --with-tiff --with-gif 
--with-png'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: ru_RU.ISO8859-5
  value of $LC_CTYPE: ru_RU.ISO8859-5
  value of $LC_MESSAGES: C
  value of $LC_MONETARY: ru_RU.ISO8859-5
  value of $LC_NUMERIC: ru_RU.ISO8859-5
  value of $LC_TIME: ru_RU.ISO8859-5
  value of $LANG: ru_RU.ISO8859-5
  locale-coding-system: iso-latin-5
  default-enable-multibyte-characters: t

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

Richard Stallman writes:

 RMS> Could you please send the complete copy of the file you are editing?
 RMS> Does this happen if you start Emacs with `emacs -q'?
 RMS> Please read the Bugs section in the Emacs manual, and
 RMS> send all the information requested there--with that info,
 RMS> we will be able to debug this.

Yes, the bug happens even when i run `emacs -q'.
Here is the detailed description of how i reproduce the bug:

1) start emacs: `emacs -q'
2) type
   C-x C-f /web@localhost#2021:/path/to/bug.cgi <RET>

   background: in another X terminal, i run
   ssh -L ftp/2021:localhost:21 user@some.host
   so the above ange-ftp command opens a file over a secure channel

3) enter cperl-mode:
   M-x cperl-mode <RET>
4) type
   M-x replace-string <RET>
   2001-12 <RET>
   2002-01 <RET>

here is the full contents of the file bug.cgi (enclosed between the
lines with === signs):
==========================================================
#!/usr/local/bin/perl
  print <<EOF;
</table></td>

</tr><tr><td><table>
<tr><th>page1</th><th>page2</th><th>pagesub1</th><th>pagesub2</th></tr>
<tr>
<td><img width=70 height=250 src="/gif/ad/2001-12/page1.gif"></td>
<td><img width=70 height=250 src="/gif/ad/2001-12/page2.gif"></td>
<td><img width=70 height=250 src="/gif/ad/2001-12/pagesub1.gif"></td>
<td><img width=70 height=250 src="/gif/ad/2001-12/pagesub2.gif"></td>
</tr>
</table></td>

<td><table>
<tr><th>player1</th><td><img width=364 height=60 
src="/gif/ad/2001-12/player1.gif"></td></tr>
<tr><th>player2</th><td><img width=364 height=60 
src="/gif/ad/2001-12/player2.gif"></td></tr>
<tr><th>playersub1</th><td><img width=364 height=60 
src="/gif/ad/2001-12/playersub1.gif"></td></tr>
<tr><th>playersub2</th><td><img width=364 height=60 
src="/gif/ad/2001-12/playersub2.gif"></td></tr>
</table></td>

</table>

</body>
</html>
EOF
==========================================================

after executing the above replace-string command, i get the following
in the buffer:
==========================================================
#!/usr/local/bin/perl
  print <<EOF;
</table></td>

</tr><tr><td><table>
<tr><th>page1</th><th>page2</th><th>pagesub1</th><th>pagesub2</th></tr>
<tr>
<td><img width=70 height=250 src="/gif/ad/2002-01></td>
<td><img width=70 height=250 src="/gif/ad/2002-01/page2.gif"></td>
<td><img width=70 height=250 src="/gif/ad/2002-01/pagesub1.gif"></td>
<td><img width=70 height=250 src="/gif/ad/2002-01/pagesub2.gif"></td>
</tr>
</table></td>

<td><table>
<tr><th>player1</th><td><img width=364 height=60 
src="/gif/ad/2002-01/player1.gif"></td></tr>
<tr><th>player2</th><td><img width=364 height=60 
src="/gif/ad/2002-01/player2.gif"></td></tr>
<tr><th>playersub1</th><td><img width=364 height=60 
src="/gif/ad/2002-01/playersub1.gif"></td></tr>
<tr><th>playersub2</th><td><img width=364 height=60 
src="/gif/ad/2002-01/playersub2.gif"></td></tr>
</table></td>

</table>

</body>
</html>
EOF
==========================================================

note that the first occurrence of the string "2001-12" was replaced
with "2002-01", but the characters /page1.gif" were lost.
[similar effects with disappearing of extra characters on the first
replaced string occur with some other replace-string commands]

This bug is present when i use BOTH ange-ftp and cperl-mode:
if i open a local file via C-x C-f, or if i do not start cperl-mode,
there is no such bug.

Please let me know any other details which are significant to you.

Recent input:
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <next> <next> <C-escape> <down> <down> <up> 
<return> <return> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<menu-bar> <help-menu> <report-emacs-bug>

Recent messages:
Loading gnus-cite...done
Loading smiley-ems...done
Loading gnus-picon...done
Loading info...done
Mark saved where search started
Loading ebuff-menu...done
<<< Press Return to bury the buffer list >>>

End of message
Loading emacsbug...done