Mercurial > emacs
comparison lisp/erc/erc.el @ 68499:04ad8d666956
* erc.el (erc-open-ssl-stream): Use tls.el.
| author | Simon Josefsson <jas@extundo.com> |
|---|---|
| date | Tue, 31 Jan 2006 15:30:53 +0000 |
| parents | fc745b05e928 |
| children | bc069548ae24 |
comparison
equal
deleted
inserted
replaced
| 68498:528aecb860cf | 68499:04ad8d666956 |
|---|---|
| 2060 | 2060 |
| 2061 (defun erc-open-ssl-stream (name buffer host port) | 2061 (defun erc-open-ssl-stream (name buffer host port) |
| 2062 "Open an SSL stream to an IRC server. | 2062 "Open an SSL stream to an IRC server. |
| 2063 The process will be given the name NAME, its target buffer will be | 2063 The process will be given the name NAME, its target buffer will be |
| 2064 BUFFER. HOST and PORT specify the connection target." | 2064 BUFFER. HOST and PORT specify the connection target." |
| 2065 (when (require 'ssl) | 2065 (when (require 'tls) |
| 2066 (let ((proc (open-ssl-stream name buffer host port))) | 2066 (let ((proc (open-tls-stream name buffer host port))) |
| 2067 ;; Ugly hack, but it works for now. Problem is it is | 2067 ;; Ugly hack, but it works for now. Problem is it is |
| 2068 ;; very hard to detect when ssl is established, because s_client | 2068 ;; very hard to detect when ssl is established, because s_client |
| 2069 ;; doesn't give any CONNECTIONESTABLISHED kind of message, and | 2069 ;; doesn't give any CONNECTIONESTABLISHED kind of message, and |
| 2070 ;; most IRC servers send nothing and wait for you to identify. | 2070 ;; most IRC servers send nothing and wait for you to identify. |
| 2071 (sit-for 5) | 2071 ;; Disabled when switching to tls.el -- jas |
| 2072 ;(sit-for 5) | |
| 2072 proc))) | 2073 proc))) |
| 2073 | 2074 |
| 2074 ;;; Debugging the protocol | 2075 ;;; Debugging the protocol |
| 2075 | 2076 |
| 2076 (defvar erc-debug-irc-protocol nil | 2077 (defvar erc-debug-irc-protocol nil |