Use auth-source for user-passwords

* (rcirc): Use auth-source is no password was specifed

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 90b61badf0ef0e5a2d9a3d7ecb12f45eb3629c6e..67dcf3e4eaa877f773f61def3764e20e65cfd7c4 100644 (file)
--- 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 @@ If ARG is non-nil, instead prompt for connection parameters."
               (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))