[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#19497: [PATCH] erc: use a differnt default port number for TLS conne
From: |
Łukasz Stelmach |
Subject: |
bug#19497: [PATCH] erc: use a differnt default port number for TLS connections. |
Date: |
Sat, 3 Jan 2015 22:20:57 +0100 |
---
lisp/erc/erc.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index 7b9a3eb..999b794 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -1456,6 +1456,10 @@ Defaults to the server buffer."
(defconst erc-default-port 6667
"IRC port to use if it cannot be detected otherwise.")
+(defconst erc-default-port-tls 6697
+ "IRC port to use for encrypted connections if it cannot be
+ detected otherwise.")
+
(defcustom erc-join-buffer 'buffer
"Determines how to display a newly created IRC buffer.
@@ -2185,7 +2189,8 @@ be invoked for the values of the other parameters."
(defun erc-tls (&rest r)
"Interactively select TLS connection parameters and run ERC.
Arguments are the same as for `erc'."
- (interactive (erc-select-read-args))
+ (interactive (let ((erc-default-port erc-default-port-tls))
+ (erc-select-read-args)))
(let ((erc-server-connect-function 'erc-open-tls-stream))
(apply 'erc r)))
--
2.0.5