masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-04 11:23:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

; Fix wrong error name in erc-server-908 doc string.

Browse source 
* lisp/erc/erc-sasl.el (erc-server-908): Correct well-known name for
908 numeric in doc string.
(erc--register-connection): Fold overlong line.
This commit is contained in:
F. Jason Park 2023-03-02 23:37:06 -08:00
parent 1e9484f2fd
commit 452b5ed103
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/erc/erc-sasl.el
View file

@ -405,7 +405,7 @@ This doesn't solicit or validate a suite of supported mechanisms."
(erc-sasl--destroy proc)) (erc-sasl--destroy proc))
(define-erc-response-handler (908) (define-erc-response-handler (908)
"Handle a RPL_SASLALREADY response." nil "Handle a RPL_SASLMECHS response." nil
(erc-display-message parsed '(notice error) 'active 's908 (erc-display-message parsed '(notice error) 'active 's908
?m (alist-get 'mechanism erc-sasl--options) ?m (alist-get 'mechanism erc-sasl--options)
?s (string-join (cdr (erc-response.command-args parsed)) ?s (string-join (cdr (erc-response.command-args parsed))
@ -426,7 +426,8 @@ Otherwise, expect it to disappear in subsequent versions.")
(erc-server-send (if erc-sasl--send-cap-ls "CAP LS" "CAP REQ :sasl")) (erc-server-send (if erc-sasl--send-cap-ls "CAP LS" "CAP REQ :sasl"))
(let ((erc-session-password (let ((erc-session-password
(and erc-session-password (and erc-session-password
(not (eq :password (alist-get 'password erc-sasl--options))) (not (eq :password
(alist-get 'password erc-sasl--options)))
erc-session-password)) erc-session-password))
(erc-session-username (erc-session-username
;; The username may contain a colon or a space ;; The username may contain a colon or a space