diff options
| author | Miles Bader <miles@gnu.org> | 2006-04-11 22:09:49 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2006-04-11 22:09:49 +0000 |
| commit | 21bc768b9b693f97940c56b9f4e80b9a7f486e34 (patch) | |
| tree | a6d7a3291d08d2e4428ae1ef39b6eed9288037e1 /lisp/erc/erc-netsplit.el | |
| parent | e2db3e59a8b85158ad7740d01c8c47fe9a16bdf1 (diff) | |
| download | emacs-21bc768b9b693f97940c56b9f4e80b9a7f486e34.tar.gz | |
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-208
Creator: Michael Olson <mwolson@gnu.org>
Sync from erc--emacs--0
Diffstat (limited to 'lisp/erc/erc-netsplit.el')
| -rw-r--r-- | lisp/erc/erc-netsplit.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/erc/erc-netsplit.el b/lisp/erc/erc-netsplit.el index a982b5e7c7e..72e7b8bbd7f 100644 --- a/lisp/erc/erc-netsplit.el +++ b/lisp/erc/erc-netsplit.el @@ -64,7 +64,8 @@ sever buffer." :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 @@ join from that split has been detected or not.") (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) |