[Mew-dist 13095] Re: SSH で RSAの使用

[Kazu Yamamoto ( 山本和彦 )]

From: NARA Susumu <nara at example.com>
Subject: [Mew-dist 13093] SSH で RSAの使用

> 今回、RSAの鍵を作成して送信しようと思った所、いつまでも送信出来無いの
> でemacsを終了させようとしたところ以下のメッセージが出てきました。

このパッチをあてて、試して下さい。

--かず
Index: mew-ssh.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-ssh.el,v
retrieving revision 1.14
diff -c -r1.14 mew-ssh.el
*** mew-ssh.el	2000/05/19 03:33:08	1.14
--- mew-ssh.el	2000/05/27 07:15:42
***************
*** 14,21 ****
  (defmacro mew-ssh-get (list-or-vec)
    (` (elt (, list-or-vec) mew-ssh-ver)))
  
! (defconst mew-ssh-msg-passwd
!   '("password:" "passphrase:" "password:"))
  
  (defconst mew-ssh-msg-connected
    '("Entering interactive session" "client_authenticated"
--- 14,20 ----
  (defmacro mew-ssh-get (list-or-vec)
    (` (elt (, list-or-vec) mew-ssh-ver)))
  
! (defconst mew-ssh-msg-passwd "password:\\|passphrase:")
  
  (defconst mew-ssh-msg-connected
    '("Entering interactive session" "client_authenticated"
***************
*** 79,85 ****
  
  (defun mew-ssh-filter (process string)
    (cond
!    ((string-match (mew-ssh-get mew-ssh-msg-passwd) string)
      (let ((pass (if mew-use-ssh-cached-passphrase
  		    (mew-input-passwd "SSH password: " (process-name process))
  		  (mew-input-passwd "SSH password: "))))
--- 78,84 ----
  
  (defun mew-ssh-filter (process string)
    (cond
!    ((string-match mew-ssh-msg-passwd string)
      (let ((pass (if mew-use-ssh-cached-passphrase
  		    (mew-input-passwd "SSH password: " (process-name process))
  		  (mew-input-passwd "SSH password: "))))