[Mew-dist 468] Async external body.

Yoshinari NOMURA nom at example.com
1997年 2月 7日 (金) 00:00:43 JST


乃村 @ 九大です。山本さんが今、横にいるんですが。。。

external body を get して、ange-ftp が動き出したときに、しばらく 
emacs が使えなくなるのは悲しいということで、mew-ext.el をちょっ
と書換えてみました。
--
nom


*** mew-ext.el.orig	Tue Nov 26 01:34:24 1996
--- mew-ext.el	Thu Feb  6 23:52:54 1997
***************
*** 309,316 ****
  		    (format "The local file exists. Overwrite? ")))
  	      (message "The file wasn't retrieved")
  	    (delete-file localfile)
! 	    (copy-file remotefile localfile))
! 	(copy-file remotefile localfile))
        )))
      
  (defun mew-ext-mail-server (begin end params)
--- 309,317 ----
  		    (format "The local file exists. Overwrite? ")))
  	      (message "The file wasn't retrieved")
  	    (delete-file localfile)
! 	    (ange-ftp-copy-file-internal remotefile localfile t nil nil nil t))
! 	(ange-ftp-copy-file-internal remotefile localfile t nil nil nil t))
!       
        )))
      
  (defun mew-ext-mail-server (begin end params)



Mew-dist メーリングリストの案内