diff options
Diffstat (limited to 'app-emacs/erc-sasl/files/erc-sasl-20190215-login.patch')
-rw-r--r-- | app-emacs/erc-sasl/files/erc-sasl-20190215-login.patch | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/app-emacs/erc-sasl/files/erc-sasl-20190215-login.patch b/app-emacs/erc-sasl/files/erc-sasl-20190215-login.patch new file mode 100644 index 0000000..7678994 --- /dev/null +++ b/app-emacs/erc-sasl/files/erc-sasl-20190215-login.patch @@ -0,0 +1,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)) |