[mew-dist 19135] Re: POP

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 19083] Re: POP
Message-ID: <20011001.154429.68555320.kazu at example.com>
Date: Mon, 01 Oct 2001 15:44:29 +0900 (JST)

kazu> > +inbox などで、"i" している最中に +mdrop に移って "scan all" す
kazu> > ると、
kazu> > 
kazu> > とおなじエラーが体験できます。動かないようにガードしないとだめで
kazu> > すね。
kazu> 
kazu> このバグは直しました。(tnx > momo)

同時に動かないようになってうれしいのですが、pop 中に "C-cC-k" し
ても、(mew-pop-get-process pnm) が残ってしまっています。パッチの
様な感じだと思います。

-- 
白井秀行 (mailto:shirai at example.com)

Index: mew-scan.el
===================================================================
RCS file: /cvsroot/shirai/mew/mew/mew-scan.el,v
retrieving revision 1.84
diff -u -c -r1.84 mew-scan.el
*** mew-scan.el	2001/10/03 01:52:22	1.84
--- mew-scan.el	2001/10/03 05:07:00
***************
*** 822,828 ****
    (interactive)
    (unwind-protect
        (let ((process mew-summary-buffer-process)
! 	    pnm sshpro)
  	(if (null (processp process))
  	    (or no-msg (message "No process to kill. This buffer is unlocked anyway"))
  	  (cond
--- 822,828 ----
    (interactive)
    (unwind-protect
        (let ((process mew-summary-buffer-process)
! 	    pnm)
  	(if (null (processp process))
  	    (or no-msg (message "No process to kill. This buffer is unlocked anyway"))
  	  (cond
***************
*** 833,842 ****
  	    ;; Network process
  	    (setq pnm (process-name process))
  	    (if (string-match mew-pop-info-prefix pnm)
! 		(setq sshpro (mew-pop-get-ssh-process pnm)))
! 	    (if (processp sshpro)
! 		(delete-process sshpro))
! 	    (delete-process process))
  	   (t 
  	    ;; Local process
  	    (kill-process process)))
--- 833,840 ----
  	    ;; Network process
  	    (setq pnm (process-name process))
  	    (if (string-match mew-pop-info-prefix pnm)
! 		(mew-pop-tear-down pnm)
! 	      (delete-process process)))
  	   (t 
  	    ;; Local process
  	    (kill-process process)))