blob: 767899402d712ae566c11dcd0c09514cef5e5b6f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
Modified erc-login (with two lines added)
https://gitlab.com/psachin/emacs.d/blob/dev/packages.org
--- /dev/null
+++ b/erc-sasl-login.el
@@ -0,0 +1,26 @@
+(require 'erc)
+(require 'erc-sasl)
+
+(defun erc-login ()
+ "Perform user authentication at the IRC server."
+ (erc-log (format "login: nick: %s, user: %s %s %s :%s"
+ (erc-current-nick)
+ (user-login-name)
+ (or erc-system-name (system-name))
+ erc-session-server
+ erc-session-user-full-name))
+ (if erc-session-password
+ (erc-server-send (format "PASS %s" erc-session-password))
+ (message "Logging in without password"))
+ ;; begin erc-sasl
+ (when (and (featurep 'erc-sasl) (erc-sasl-use-sasl-p))
+ (erc-server-send "CAP REQ :sasl"))
+ ;; end erc-sasl
+ (erc-server-send (format "NICK %s" (erc-current-nick)))
+ (erc-server-send
+ (format "USER %s %s %s :%s"
+ ;; hacked - S.B.
+ (if erc-anonymous-login erc-email-userid (user-login-name))
+ "0" "*"
+ erc-session-user-full-name))
+ (erc-update-mode-line))
|