Author: iratqq
Date: Mon Mar 2 04:45:31 2009
New Revision: 5878
Modified:
trunk/scm/yahoo-jp-custom.scm
trunk/scm/yahoo-jp.scm
Log:
* scm/yahoo-jp-custom.scm (yahoo-jp-use-ssl?):
- New custom variable.
* scm/yahoo-jp.scm (yahoo-jp-conversion):
- Check yahoo-jp-use-ssl?.
Modified: trunk/scm/yahoo-jp-custom.scm
==============================================================================
--- trunk/scm/yahoo-jp-custom.scm (original)
+++ trunk/scm/yahoo-jp-custom.scm Mon Mar 2 04:45:31 2009
@@ -323,6 +323,12 @@
(N_ "Yahoo-Jp api key")
(N_ "long description will be here."))
+(define-custom 'yahoo-jp-use-ssl? #f
+ '(yahoo-jp-advanced yahoo-jp-server)
+ '(boolean)
+ (N_ "Use SSL")
+ (N_ "long description will be here."))
+
(define-custom 'yahoo-jp-use-with-vi? #f
'(yahoo-jp-advanced special-op)
'(boolean)
Modified: trunk/scm/yahoo-jp.scm
==============================================================================
--- trunk/scm/yahoo-jp.scm (original)
+++ trunk/scm/yahoo-jp.scm Mon Mar 2 04:45:31 2009
@@ -114,8 +114,10 @@
#f)
yahoo-jp-appid))
(proxy (make-http-proxy-from-custom))
+ (ssl (and yahoo-jp-use-ssl?
+ (make-http-ssl (SSLv3-client-method) 443)))
(ret (and appid
- (http:get yahoo-jp-server (make-query appid) 80
proxy))))
+ (http:get yahoo-jp-server (make-query appid) 80 proxy
ssl))))
(if (string? ret)
(parse ret)
(cons '() (list (list str))))))
