>From 7d7c360ad9a7c249a19d8d8f7ac1afd2f9678a77 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Fri, 4 Jun 2021 14:03:54 +0200 Subject: [PATCH 02/11] Check auth-source for server password --- lisp/net/rcirc.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 90b61badf0..67dcf3e4ea 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -44,6 +44,7 @@ (require 'cl-lib) (require 'ring) (require 'time-date) +(require 'auth-source) (eval-when-compile (require 'subr-x)) (defconst rcirc-id-string (concat "rcirc on GNU Emacs " emacs-version)) @@ -500,6 +501,12 @@ rcirc (encryption (plist-get (cdr c) :encryption)) (server-alias (plist-get (cdr c) :server-alias)) contact) + (when-let (((not password)) + (auth (auth-source-search :host server + :user user-name + :port port)) + (fn (plist-get (car auth) :secret))) + (setq password (funcall fn))) (when server (let (connected) (dolist (p (rcirc-process-list)) -- 2.30.2