Emacs goes unresponsive after saving remote file

[william . b . parsons]

Using native version of Emacs 22.0.50.1 on Windows XP, editing and saving
a file on a remote system using tramp/ftp (standard Windows FTP) results
in Emacs going unresponsive and not updating for a period of 1-2 minutes
after the file is saved.  It has been verified that the files are being
transferred quickly, i.e., the new file shows up on the remote system
during this period of Emacs' being unresponsive.

A C-g will break the hung state, but will result in the buffer being still
marked as modified.  A backtrace produced after the C-g in this situation
follows:
-----------------------------------------------------------------------
Debugger entered--Lisp error: (quit)
  signal(quit nil)
  byte-code("=8c1!=88=8c2=8c3=8c4\"=87" [proc delete-process signal quit nil] 
3)
  ange-ftp-wait-not-busy(#<process *ftp address@hidden>)
  ange-ftp-raw-send-cmd(#<process *ftp address@hidden> "quote mdtm 
/home/wbp/.emacs" nil (#[(result line host user cmd msg cont nowait) "=84  
     =83=8c6       #=87=8c7=8c8
\n\"\f=8c9D
%=87" [cont result afsc-result line afsc-line host ange-ftp-call-cont 
ange-ftp-raw-send-cmd ange-ftp-get-process #[... "=84   =8c5        
#=87" [cont result afsc-result line afsc-line ange-ftp-call-cont] 4] user cmd 
msg nowait] 6] "oak" "wbp" "quote mdtm /home/wbp/.emacs" nil nil nil) nil)
  ange-ftp-send-cmd("oak" "wbp" (quote "mdtm" "/home/wbp/.emacs"))
  ange-ftp-file-modtime("/ftp:address@hidden:/home/wbp/.emacs")
  ange-ftp-write-region(1 17556 "/ftp:address@hidden:/home/wbp/.emacs" nil t)
  apply(ange-ftp-write-region (1 17556 "/ftp:address@hidden:/home/wbp/.emacs" 
nil t))
  ange-ftp-hook-function(write-region 1 17556 
"/ftp:address@hidden:/home/wbp/.emacs" nil t)
  apply(ange-ftp-hook-function write-region (1 17556 
"/ftp:address@hidden:/home/wbp/.emacs" nil t))
  tramp-ftp-file-name-handler(write-region 1 17556 
"/ftp:address@hidden:/home/wbp/.emacs" nil t)
  apply(tramp-ftp-file-name-handler write-region (1 17556 
"/ftp:address@hidden:/home/wbp/.emacs" nil t))
  tramp-file-name-handler(write-region 1 17556 
"/ftp:address@hidden:/home/wbp/.emacs" nil t)
  write-region(1 17556 "/ftp:address@hidden:/home/wbp/.emacs" nil t 
"/ftp:address@hidden:/home/wbp/.emacs")
  basic-save-buffer-2()
  basic-save-buffer-1()
  basic-save-buffer()
  save-buffer(1)
  call-interactively(save-buffer)
  recursive-edit()
  byte-code("=8c6      
@=8c7==83!=8c8=8c9=8ca\"=88=8cb=8c9!=89A@)=8a2=8cc==83!=8c8=8cd=8ca\"=88=8ce!=88=8cf
 =88=8d0  !=88\f=83c=8d1ed\"
V=83Web=88=8d2
=8a5y=88`db=88=8d2
=8a5
Zy=88`|=88)=8d3c=88eb=88=8d4=8d5=8d6 \"=88=8d7 
=88=8d4=8d8!=88=8d9=8ca=8d4=8da!=88=8a=8db =88+=8d9=87" 
[unread-command-char debugger-args x debugger-buffer noninteractive 
debugger-batch-max-lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 
pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" message 
"%s" buffer-string kill-emacs "" nil "" recursive-edit middlestart 
buffer-read-only standard-output] 4)
  debug(error (quit))
  byte-code("=8c1=8c2=8c3!=87" [quit-flag t eval (ignore nil)] 2)
  read-passwd("Password for /pscp:address@hidden: ")
  tramp-read-passwd("wbp" "oak" "Password for /pscp:address@hidden: ")
  tramp-enter-password(#<process *tramp/pscp address@hidden> "Password for 
/pscp:address@hidden: " "wbp" "oak")
  tramp-action-password(#<process *tramp/pscp address@hidden> nil "pscp" "wbp" 
"oak")
  byte-code("=8c6=8c7=8c8=8c9$=89\nB=84=99=8ca\f=8cb\"=88eb=88
address@hidden@address@hidden =89!\"X=83}=8ce=8cf=8d0 
P#=88#=83}=8a=8d1$%&'$q=88db=88n=84n=8d2c=88=8d3=8d4=8d5=8ce=8d6 
#=8d7Q\")=88+=8d8=8d9P=8c8=8da#=83\f()*+%=82,=8c8=87" 
[with-timeout-tag with-timeout-timer with-timeout-timers found p actions 
run-with-timer 60 nil with-timeout-handler tramp-accept-process-output 1 10 
"Looking for regexp \"%s\" from remote shell" apply message "tramp: " 
tramp-get-debug-buffer "\n" tramp-insert-with-face italic "# " format "\n" 
re-search-forward "\\'" t todo item pattern action args fmt-string level 
tramp-verbose tramp-debug-buffer tramp-current-multi-method 
tramp-current-method tramp-current-user tramp-current-host multi-method method 
user host with-timeout-value] 8)
  tramp-process-one-action(#<process *tramp/pscp address@hidden> nil "pscp" 
"wbp" "oak" ((tramp-password-prompt-regexp tramp-action-password) 
(tramp-login-prompt-regexp tramp-action-login) (shell-prompt-pattern 
tramp-action-succeed) (tramp-shell-prompt-pattern tramp-action-succeed) 
(tramp-wrong-passwd-regexp tramp-action-permission-denied) 
(tramp-yesno-prompt-regexp tramp-action-yesno) (tramp-yn-prompt-regexp 
tramp-action-yn) (tramp-terminal-prompt-regexp tramp-action-terminal) 
(tramp-process-alive-regexp tramp-action-process-alive)))
  byte-code("=8c6      \n\f
&=88=8c7=87" [p multi-method method user host actions tramp-process-one-action 
nil] 7)
  tramp-process-actions(#<process *tramp/pscp address@hidden> nil "pscp" "wbp" 
"oak" ((tramp-password-prompt-regexp tramp-action-password) 
(tramp-login-prompt-regexp tramp-action-login) (shell-prompt-pattern 
tramp-action-succeed) (tramp-shell-prompt-pattern tramp-action-succeed) 
(tramp-wrong-passwd-regexp tramp-action-permission-denied) 
(tramp-yesno-prompt-regexp tramp-action-yesno) (tramp-yn-prompt-regexp 
tramp-action-yn) (tramp-terminal-prompt-regexp tramp-action-terminal) 
(tramp-process-alive-regexp tramp-action-process-alive)))
  tramp-open-connection-rsh(nil "pscp" "wbp" "oak")
  tramp-maybe-open-connection(nil "pscp" "wbp" "oak")
  tramp-send-command(nil "pscp" "wbp" "oak" "( test -d /home/wbp/cqsh/cqsh.c 
2>/dev/null; echo tramp_exit_status $? )")
  tramp-send-command-and-check(nil "pscp" "wbp" "oak" "test -d 
/home/wbp/cqsh/cqsh.c" t)
  tramp-handle-file-directory-p("/pscp:address@hidden:/home/wbp/cqsh/cqsh.c")
  apply(tramp-handle-file-directory-p 
"/pscp:address@hidden:/home/wbp/cqsh/cqsh.c")
  tramp-sh-file-name-handler(file-directory-p 
"/pscp:address@hidden:/home/wbp/cqsh/cqsh.c")
  apply(tramp-sh-file-name-handler file-directory-p 
"/pscp:address@hidden:/home/wbp/cqsh/cqsh.c")
  tramp-file-name-handler(file-directory-p 
"/pscp:address@hidden:/home/wbp/cqsh/cqsh.c")
  file-directory-p("/pscp:address@hidden:/home/wbp/cqsh/cqsh.c")
  find-file-noselect("/address@hidden:/home/wbp/cqsh/cqsh.c" nil nil nil)
  find-file("/address@hidden:/home/wbp/cqsh/cqsh.c")
  menu-function-1()
  call-interactively(menu-function-1)
-----------------------------------------------------------------------

In GNU Emacs 22.0.50.1 (i386-mingw-nt5.1.2600)
 of 2006-08-30 on W2ONE
X server distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4) --cflags -Id:/g/include'

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: ENU
  locale-coding-system: cp1252
  default-enable-multibyte-characters: t

Major mode: Text

Minor modes in effect:
  shell-dirtrack-mode: t
  display-time-mode: t
  delete-selection-mode: t
  recentf-mode: t
  encoded-kbd-mode: t
  tooltip-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t
  abbrev-mode: t

Recent input:
SPC $ c o u n t SPC = SPC 0 ; <home> <return> <down> 
<down> <down> <return> <backspace> + + $ c o u n t 
; <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> i f <right> ( <end> <backspace> 
SPC > SPC 3 ) ; <C-left> <C-left> <C-left> <left> l 
a s t <f2> <f7> <backspace> <backspace> <f2> <help-echo> 
<help-echo> <help-echo> <help-echo> C-z C-z <f2> M-x 
r C-g <help-echo> <down-mouse-1> <mouse-1> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <menu-bar> <help-menu> <about> <help-echo> 
<help-echo> M-x r e p <tab> o <tab> r ` <backspace> 
<tab> <return>

Recent messages:
Mark set
Wrote p:/lotmail.pl
Mark set
Wrote c:/wbp/crontab
Undo! [2 times]
Mark set
Wrote c:/wbp/crontab
Quit
Making completion list... [2 times]
Loading emacsbug...done