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

; Simplify rcirc authentication querying functions

Browse source
This commit is contained in:
Omar Polo 2021-11-15 21:49:23 +00:00 • committed by Philip Kaludercic
parent b79cb838a4
commit 74386abc0f
1 changed files with 3 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/net/rcirc.el
View file

@ -654,30 +654,15 @@ See `rcirc-connect' for more details on these variables.")
(defun rcirc-get-server-method (server)
"Return authentication method for SERVER."
(catch 'method
(dolist (i rcirc-authinfo)
(let ((server-i (car i))
(method (cadr i)))
(when (string-match server-i server)
(throw 'method method))))))
(cadr (assoc server rcirc-authinfo #'string-match)))
(defun rcirc-get-server-password (server)
"Return password for SERVER."
(catch 'pass
(dolist (i rcirc-authinfo)
(let ((server-i (car i))
(args (cdddr i)))
(when (string-match server-i server)
(throw 'pass (car args)))))))
(cadddr (assoc server rcirc-authinfo #'string-match)))
(defun rcirc-get-server-cert (server)
"Return a list of key and certificate for SERVER."
(catch 'cert
(dolist (i rcirc-authinfo)
(let ((server-i (car i))
(args (cddr i)))
(when (string-match server-i server)
(throw 'cert args))))))
(cddr (assoc server rcirc-authinfo #'string-match)))
;;;###autoload
(defun rcirc-connect (server &optional port nick user-name