[Mew-dist 12346] Re: b26

[Shuichi KITAGUCHI ( 北口修一 )]

----Next_Part(Sat_Feb_12_23:15:26_2000_357)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

北口です。

mew-ssh.el ですが、OpenSSH に対応してなくて悲しかったので対応させて
みました(Windows 上で動かなくて悔しかったとも言う)。

# しかし、ssh の出力する stdout/stderr の flush のタイミングが、Meadow
# 上では全然違うので泣けました。

あと、

かず> デフォルトの smtp-server と smtp-ssh-server の*組*にマッチする場合のみ、
かず> +queue にキューイングします。

かず> それ以外の場合は、+queue/<SMTP-SSH-SERVER>-<SMTP-SERVER> というフォル
かず> ダにキューイングします。

+queue/<SMTP-SSH-SERVER>-<SMTP-SERVER> というフォルダは当然
mew-folder-list 中に存在しないので、queue に入れた後にメッセージを確認
しようとしても g で移動できません。find-file() すればいいのでとりあえずは
困っていませんが、少し悲しいです。


--
Shuichi Kitaguchi <kit at example.com>

----Next_Part(Sat_Feb_12_23:15:26_2000_357)--
Content-Type: Text/Plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename="mew.diff"

diff -c ./mew-ssh.el /meadow/site-lisp/mew/mew-ssh.el
*** ./mew-ssh.el	Tue Feb 08 20:50:17 2000
--- /meadow/site-lisp/mew/mew-ssh.el	Sat Feb 12 22:09:49 2000
***************
*** 10,24 ****
  
  (require 'mew)
  
! (defvar mew-ssh-ver nil)
  (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"))
  
  ;; xxx timer
  
--- 10,25 ----
  
  (require 'mew)
  
! (defvar mew-ssh-ver nil)		;; 0-SSH1, 1-SSH2, 2-OpenSSH
  (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"
!     "Entering interactive session"))
  
  ;; xxx timer
  
***************
*** 41,48 ****
  	  (setq pro (start-process
  		     name nil
  		     mew-prog-ssh "-x" "-v"
! 		     "-o" (concat "NumberOfPasswordPrompts="
! 				  (int-to-string mew-ssh-number-of-password-prompts))
  		     (format "-L%d:%s:%s" localport server port)
  		     sshserver))
  	  ;; An error would occur. So, let's exit in the case.
--- 42,52 ----
  	  (setq pro (start-process
  		     name nil
  		     mew-prog-ssh "-x" "-v"
! 		     "-o" (concat 
! 			   (if (eq mew-ssh-ver 2)
! 			       "NumberOfPasswordPrompts " ;; OpenSSH style
! 			     "NumberOfPasswordPrompts=")  ;; SSH style
! 			   (int-to-string mew-ssh-number-of-password-prompts))
  		     (format "-L%d:%s:%s" localport server port)
  		     sshserver))
  	  ;; An error would occur. So, let's exit in the case.
***************
*** 109,114 ****
--- 113,120 ----
  	(setq mew-ssh-ver 0))
         ((looking-at "SSH Version 2")
  	(setq mew-ssh-ver 1))
+        ((looking-at "SSH Version OpenSSH-1")
+ 	(setq mew-ssh-ver 2))
         (t
  	(setq mew-ssh-ver nil))))))
  

----Next_Part(Sat_Feb_12_23:15:26_2000_357)----