[Emacs-diffs] Changes to emacs/lisp/erc/erc-join.el

[Miles Bader]

Index: emacs/lisp/erc/erc-join.el
diff -u emacs/lisp/erc/erc-join.el:1.2 emacs/lisp/erc/erc-join.el:1.3
--- emacs/lisp/erc/erc-join.el:1.2      Sun Feb 12 20:25:00 2006
+++ emacs/lisp/erc/erc-join.el  Tue Apr 11 22:09:49 2006
@@ -92,7 +92,7 @@
                   (or erc-server-announced-name erc-session-server))))
     (when (erc-current-nick-p nick)
       (when (and erc-autojoin-domain-only
-                (string-match "[^.]+\\.\\([^.]+\\.[^.]+\\)$" server))
+                (string-match "[^.\n]+\\.\\([^.\n]+\\.[^.\n]+\\)$" server))
        (setq server (match-string 1 server)))
       (let ((elem (assoc server erc-autojoin-channels-alist)))
        (if elem
@@ -115,7 +115,7 @@
                   (or erc-server-announced-name erc-session-server))))
     (when (erc-current-nick-p nick)
       (when (and erc-autojoin-domain-only
-                (string-match "[^.]+\\.\\([^.]+\\.[^.]+\\)$" server))
+                (string-match "[^.\n]+\\.\\([^.\n]+\\.[^.\n]+\\)$" server))
        (setq server (match-string 1 server)))
       (let ((elem (assoc server erc-autojoin-channels-alist)))
        (when elem