[mew-dist 20030] kill-process with nntp

[Hideyuki SHIRAI ( 白井秀行 )]

昨日、はじめて nntp を使ってみました。そうしたら、運良く(？)
process が固まったので "C-c C-k" したのですがだめでした。
以下のようなパッチが必要だと思います。

なお、nntp, nntp2, nntp3 の違いを全然わかっていないで、その辺は
見繕ってくださいませ。

# pop で同じことを書いた記憶があるぞ :-)

-- 
白井秀行 (mailto:shirai at example.com)

*** ../../kazu/mew/mew-summary4.el	Mon Dec 17 17:51:11 2001
--- mew-summary4.el	Wed Jan  9 11:16:12 2002
***************
*** 503,512 ****
  	   ((memq (process-status process) '(open closed))
  	    ;; 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)))
  	  (or no-msg (message "The process was killed"))))
--- 503,520 ----
  	   ((memq (process-status process) '(open closed))
  	    ;; Network process
  	    (setq pnm (process-name process))
! 	    (cond
! 	     ((string-match mew-pop-info-prefix pnm)
! 	      (mew-pop-tear-down pnm))
! 	     ((string-match mew-nntp-info-prefix pnm)
! 	      (mew-nntp-tear-down pnm))
! 	     ((string-match mew-nntp2-info-prefix pnm)
! 	      (mew-nntp2-tear-down pnm))
! 	     ((string-match mew-nntp3-info-prefix pnm)
! 	      (mew-nntp3-tear-down pnm))
! 	     (t
! 	      (delete-process process))))
! 	   (t
  	    ;; Local process
  	    (kill-process process)))
  	  (or no-msg (message "The process was killed"))))