[mew-dist 21308] Re: POP over SSL

[Kazu Yamamoto ( 山本和彦 )]

From: HOSONO Hidetomo <h at example.com>
Subject: [mew-dist 21307] Re: POP over SSL

> mew-smtp-send-messageではSSL対応に伴い
> sslpという変数が登場していますが、
> この関数内の401行目からはじまる (cond... 文で
> sslpがnon-nilかどうかチェックする(410行目)に至るまで
> sslpをいじっている個所が見当たりません。
> その結果、411行目にあるmew-open-ssl-streamが実行されず、
> 413行目にあるmew-smtp-openが実行されているようです。

すいません。これで、動くようになります。

--かず

Index: mew-smtp.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-smtp.el,v
retrieving revision 1.43
diff -c -r1.43 mew-smtp.el
*** mew-smtp.el	2002/07/25 15:16:26	1.43
--- mew-smtp.el	2002/07/31 00:28:55
***************
*** 391,396 ****
--- 391,398 ----
  	(setq server (mew-smtp-server case))
  	(setq port (mew-smtp-port case))
  	(setq sshsrv (mew-smtp-ssh-server case))
+ 	(setq sslp (mew-smtp-ssl case))
+ 	(setq sslport (mew-smtp-ssl-port case))
  	(mew-smtp-set-case pnm case)
  	(mew-smtp-set-server pnm server)
  	(mew-smtp-set-port pnm port)
Index: mew-ssl.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-ssl.el,v
retrieving revision 1.6
diff -c -r1.6 mew-ssl.el
*** mew-ssl.el	2002/07/26 05:52:20	1.6
--- mew-ssl.el	2002/07/31 00:28:55
***************
*** 19,25 ****
  	       "2> /dev/null"))
      (when pro
        (process-kill-without-query pro)
!       (mew-set-process-cs pro mew-cs-text-for-net mew-cs-text-for-net)
        pro)))
  
  (provide 'mew-ssl)
--- 19,25 ----
  	       "2> /dev/null"))
      (when pro
        (process-kill-without-query pro)
!       (mew-set-process-cs pro mew-cs-text-for-read mew-cs-text-for-write)
        pro)))
  
  (provide 'mew-ssl)