[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] Use built-in gnutls support in Emacs 24
- To: wl-en@ml.gentei.org
- Subject: [PATCH] Use built-in gnutls support in Emacs 24
- From: Vitaly Mayatskikh <v.mayatskih@gmail.com>
- Date: Sun, 10 Jun 2012 20:47:08 -0400
- Cc: David Maus <dmaus@ictsoc.de>
- Dkim-signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=date:message-id:from:to:cc:subject:user-agent:mime-version :content-type; bh=+X1Z+A9+JYNi2GZ9uHO6+5EGQqMGFXqNTc7aBd4RSn4=; b=P732MgyQbyVnbbYZ5WhUoFz5fPSgRLOXFBcK4CFKkg7HE95JtGlBaMY7Ltq1DW6BVv kLNwaNz6WePC65KZjDU5QAEEF+YK2O8rZWtEofaarxky8m44c20atDQfuDDeT0AzztGk X255mqExb1naY7K22ojvi3f0Qa4K9XoNO1CCv2LTdV92vrdsnYerIxbQYmWFAzw/fZFM X20v24SMTPnm0gAicMinTNecpg68VEJM5uqrqGe9G7iotAP4PKtuP7O6g2n5ryd3izQz mt+eLD6i/0WcMif9Qsd8lbMv1V+sxLTqjqECDXpOL8vKmXDjAhgkMGmlXJYqOJ49f5KF Prqw==
- List-help: <mailto:wl-en-ctl@ml.gentei.org?body=help>
- List-id: wl-en.ml.gentei.org
- List-owner: <mailto:wl-en-admin@ml.gentei.org>
- List-post: <mailto:wl-en@ml.gentei.org>
- List-software: fml [fml 4.0 STABLE (20040215/4.0.4_BETA)]
- List-unsubscribe: <mailto:wl-en-ctl@ml.gentei.org?body=unsubscribe>
- Reply-to: wl-en@ml.gentei.org
- User-agent: Wanderlust/2.15.9 (Almost Unreal) Emacs/24.1 Mule/6.0 (HANACHIRUSATO)
Hi there!
Change is trivial, yet it noticeably speeds things up. Don't forget
to add (require 'gnutls) in your ~/.emacs
What's our new github commit policy? David?
diff --git a/utils/ssl.el b/utils/ssl.el
index 7006955..24da08a 100644
--- a/utils/ssl.el
+++ b/utils/ssl.el
@@ -191,9 +191,11 @@ specifying a port number to connect to."
(if (integerp service) (setq service (int-to-string service)))
(let* ((process-connection-type nil)
(port service)
- (proc (eval
- `(start-process name buffer ssl-program-name
- ,@ssl-program-arguments))))
+ (proc (if (fboundp 'open-gnutls-stream)
+ (open-gnutls-stream name buffer host service)
+ (eval
+ `(start-process name buffer ssl-program-name
+ ,@ssl-program-arguments)))))
(process-kill-without-query proc)
proc))
--
wbr, Vitaly