procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Send CAP END after authentication has been successful

Browse source
This commit is contained in:
Alex McGrath 2021-06-29 12:06:22 +01:00 • committed by Tassilo Horn
parent df6efb1c8b
commit a85d27278e
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/net/rcirc.el
View file

@ -657,8 +657,6 @@ that are joined after authentication."
(or server-alias server) nil server port-number
:type (or encryption 'plain))))
;; set up process
(when use-sasl
(setq-local rcirc-finished-sasl nil))
(set-process-coding-system process 'raw-text 'raw-text)
(switch-to-buffer (rcirc-generate-new-buffer-name process nil))
(set-process-buffer process (current-buffer))
@ -682,6 +680,8 @@ that are joined after authentication."
(add-hook 'auto-save-hook 'rcirc-log-write)
(when use-sasl
(setq-local rcirc-finished-sasl nil))
;; identify
(dolist (cap rcirc-implemented-capabilities)
(rcirc-send-string process "CAP" "REQ" : cap)
@ -3509,9 +3509,14 @@ PROCESS is the process object for the current connection."
(base64-encode-string
;; use connection user-name
(concat "\0" (nth 3 rcirc-connection-info)
"\0" (rcirc-get-server-password rcirc-server))))
(setq-local rcirc-finished-sasl t)
(rcirc-send-string process "CAP" "END"))
"\0" (rcirc-get-server-password rcirc-server)))))
(defun rcirc-handler-900 (process sender args _text)
"Respond to a successful authentication response"
(rcirc-handler-generic process "900" sender args nil)
(when (not rcirc-finished-sasl)
(setq-local rcirc-finished-sasl t)
(rcirc-send-string process "CAP" "END")))
(defgroup rcirc-faces nil