Mercurial > emacs
diff lisp/erc/erc-netsplit.el @ 69942:45937d0cd26d
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-208
Creator: Michael Olson <mwolson@gnu.org>
Sync from erc--emacs--0
author | Miles Bader <miles@gnu.org> |
---|---|
date | Tue, 11 Apr 2006 22:09:49 +0000 |
parents | 7010bb070445 |
children | 7a3f13e2dd57 |
line wrap: on
line diff
--- a/lisp/erc/erc-netsplit.el Tue Apr 11 21:46:26 2006 +0000 +++ b/lisp/erc/erc-netsplit.el Tue Apr 11 22:09:49 2006 +0000 @@ -64,7 +64,8 @@ :group 'erc-netsplit :type 'boolean) -(defcustom erc-netsplit-regexp "^[^ @!\"]+\\.[^ @!]+ [^ @!]+\\.[^ @!\"]+$" +(defcustom erc-netsplit-regexp + "^[^ @!\"\n]+\\.[^ @!\n]+ [^ @!\n]+\\.[^ @!\"\n]+$" "This regular expression should match quit reasons produced by netsplits." :group 'erc-netsplit @@ -131,7 +132,7 @@ (defun erc-netsplit-MODE (proc parsed) "Hide mode changes from servers." ;; regexp matches things with a . in them, and no ! or @ in them. - (when (string-match "^[^@!]+\\.[^@!]+$" (erc-response.sender parsed)) + (when (string-match "^[^@!\n]+\\.[^@!\n]+$" (erc-response.sender parsed)) (and erc-netsplit-debug (erc-display-message parsed 'notice (process-buffer proc)