* net/rcirc.el (rcirc-handler-001): Only authenticate, if there's

an entry for that server in rcirc-authinfo. (Bug#8385)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 933eb2bd94e89efb7723afd20693068df15e6187..8c42864ae30e050050c0f8d11de62c11861afa5b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-31  Tassilo Horn  <tassilo@member.fsf.org>
+
+       * net/rcirc.el (rcirc-handler-001): Only authenticate, if there's
+       an entry for that server in rcirc-authinfo. (Bug#8385)
+
 2011-03-31  Glenn Morris  <rgm@gnu.org>
 
        * progmodes/f90.el (f90-find-tag-default): Handle multiple `%'.

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index eb4ad01ecd7558e79e8c574521798a0c7a9d591b..5822fc3cf322153f3468b5b08d3553cb44076f52 100644 (file)
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -2454,7 +2454,15 @@ keywords when no KEYWORD is given."
     (setq rcirc-nick (car args))
     (rcirc-update-prompt)
     (if rcirc-auto-authenticate-flag
-        (if rcirc-authenticate-before-join
+        (if (and rcirc-authenticate-before-join
+                ;; We have to ensure that there's an authentication
+                ;; entry for that server.  Else,
+                ;; rcirc-authenticated-hook won't be triggered, and
+                ;; autojoin won't happen at all.
+                (let (auth-required)
+                  (dolist (s rcirc-authinfo auth-required)
+                    (when (string-match (car s) rcirc-server-name)
+                      (setq auth-required t)))))
             (progn
              (add-hook 'rcirc-authenticated-hook 'rcirc-join-channels-post-auth t t)
               (rcirc-authenticate))