[mew-dist 24233] Re: ssh-progの変更

[HAYASHI Chifumi ( 林 千史 )]

林です。

From: Shigeya Suzuki <shigeya at example.com>
Date: Tue, 16 Dec 2003 18:08:40 +0900 (JST)

> mew-prog-ssh を mew-config-alist で変更したくなっているのですが、
> mew-prog-ssh を 他の configurable な変数っぽく直す以外に何らか方法あり
> ますか？

環境が変わって、いまや使っていないのですが、

From: Chifumi Hayashi (林　千史) <chifumi at example.com>
Subject: [Mew-dist 14819] mew-prog-ssh
Date: Tue, 31 Oct 2000 00:34:02 +0900
Message-ID: <20001031.003351.112629105.chifumi at example.com>

> ということで やはり OpenSSH を使いたくて、mew-prog-ssh を 
> mew-config-alist で切替えられるように下記の patch を使って来ました。
> (毎回 (mew-ssh-setup) で mew-ssh-ver を調べているのがちょっと気に入りませんが)

などは参考になるでしょうか?
最新のは mew-3.3 用でこんなのですけれど。↓

*** mew-config.el~	Mon Dec  9 18:57:43 2002
--- mew-config.el	Tue Dec 24 23:14:42 2002
***************
*** 336,341 ****
--- 336,346 ----
  (defun mew-proto (&optional case)
    (mew-cfent-value case "proto" mew-proto))
  
+ ;;
+ 
+ (defun mew-prog-ssh (&optional case)
+   (mew-cfent-value case "prog-ssh" mew-prog-ssh))
+ 
  ;;;
  ;;; Setting case
  ;;;

*** mew-pop.el~	Wed Feb 19 00:39:25 2003
--- mew-pop.el	Tue Feb 25 21:54:33 2003
***************
*** 610,615 ****
--- 610,616 ----
  	 (sslp (mew-pop-ssl case))
  	 (sslport (mew-pop-ssl-port case))
  	 (pnm (mew-pop-info-name case))
+ 	 (mew-prog-ssh (mew-prog-ssh case))
  	 (buf (get-buffer-create (mew-pop-buffer-name pnm)))
  	 (no-msg (eq directive 'biff))
  	 process sshname sshpro sslname sslpro lport)
***************
*** 617,622 ****
--- 618,624 ----
  	(message "Another POP process is running. Try later")
        (cond
         (sshsrv
+  	(mew-ssh-setup)
  	(setq sshpro (mew-open-ssh-stream server port sshsrv))
  	(when sshpro
  	  (setq sshname (process-name sshpro))

*** mew-smtp.el~	Wed Feb 19 00:39:25 2003
--- mew-smtp.el	Tue Feb 25 21:54:33 2003
***************
*** 351,356 ****
--- 351,358 ----
       (t
        (cond
         (sshsrv
+ 	(setq mew-prog-ssh (mew-prog-ssh case))
+ 	(mew-ssh-setup)
  	(setq sshpro (mew-open-ssh-stream server port sshsrv))
  	(when sshpro
  	  (setq sshname (process-name sshpro))
-- 
 林　千史  chifumi at example.com