🚀 go-pugleaf

My version of ftp.el (apparently distributed with Emacs 18.55.5)
contains an ftp-write-file with an evident minor bug.  Using the
command will cause some "random" buffer to become read-only.  For
example, with the following buffer configuration

     MR Buffer         Size  Mode           File
     -- ------         ----  ----           ----
    .   general.bib    1808  Text   	    ...
     *  draft-1	       303   mh-e letter    ...
     *  *Buffer List*  0     Buffer Menu	
     *  *shell*	       64914 Shell		
     ...

executing ftp-write-file on general.bib (to
ginger.berkeley.edu:lib/tex/bib/general.bib) gave the following configuration.

     MR Buffer         Size  Mode           File
     -- ------         ----  ----           ----
    .   general.bib    1808  Text	    ...
     *  *Buffer List*  0     Buffer Menu	
     *% draft-1	       303   mh-e letter    ...
     *  *shell*	       64914 Shell		
     ...

------

Looking at ftp-sentinel shows a possible problem:

	   (let (msg
		 ...
		 (buffer-read-only nil))
	     ...
	     (if (not input)
		 (progn
		   ...
		   (kill-buffer (current-buffer)))
	       ...)
	     ...)

buffer-read-only is t on entrance to this let.  This will restore
buffer-read-only to t on exit from the let, which is after the current
buffer has been destroyed.

Paul Hilfinger