User: adrian  
  Date: 06/05/01 23:48:37
  Modified:    packages/xemacs-packages/erc CREDITS ChangeLog
                        ChangeLog.upstream Makefile Makefile.upstream
                        erc-autojoin.el erc-backend.el erc-bbdb.el
                        erc-button.el erc-ezbounce.el erc-identd.el
                        erc-netsplit.el erc.el erc.texi
Log:
packages: Sync with ERC 5.1.2
-------------------- ChangeLog entries follow: --------------------
xemacs-packages/erc/ChangeLog addition:
2006-05-01  Adrian Aichner  <adrian(a)xemacs.org>
	* CREDITS: Full sync with upstream Version 5.1.2 $Revision:
	1.796.2.6 (current state of release_5_1_branch).
	* ChangeLog.upstream:
	* Makefile (AUTHOR_VERSION):
	* Makefile.upstream:
	* erc-autojoin.el (erc-autojoin-version):
	* erc-autojoin.el (erc-autojoin-add):
	* erc-autojoin.el (erc-autojoin-remove):
	* erc-backend.el (erc-backend-version):
	* erc-backend.el (erc-server-connect-function):
	* erc-backend.el (erc-parse-server-response):
	* erc-bbdb.el:
	* erc-bbdb.el (erc-bbdb-version):
	* erc-bbdb.el (erc-bbdb-electric-p): New.
	* erc-bbdb.el (erc-bbdb-show-entry):
	* erc-button.el:
	* erc-button.el (erc-button-version):
	* erc-button.el (erc-button-keymap):
	* erc-button.el (erc-button-next):
	* erc-button.el (erc-button-previous): New.
	* erc-ezbounce.el (erc-ezb-version):
	* erc-ezbounce.el (erc-ezb-add-session):
	* erc-identd.el:
	* erc-identd.el (erc-identd-start):
	* erc-netsplit.el (erc-netsplit-version):
	* erc-netsplit.el (erc-netsplit-regexp):
	* erc-netsplit.el (erc-netsplit-MODE):
	* erc.el:
	* erc.el (erc-version-string):
	* erc.el (erc-header-line): New.
	* erc.el (erc-cmd-QUOTE):
	* erc.el (erc-cmd-SV):
	* erc.el (erc-join-channel):
	* erc.el (erc-parse-user):
	* erc.el (erc-send-input):
	* erc.el (erc-message-target):
	* erc.el (erc-header-line-face-method): New.
	* erc.el (erc-update-mode-line-buffer):
	* erc.texi:
	* erc.texi (Concept Index):
Revision  Changes    Path
1.8       +9 -2      XEmacs/packages/xemacs-packages/erc/CREDITS
Index: CREDITS
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/erc/CREDITS,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- CREDITS	2006/02/19 12:57:26	1.7
+++ CREDITS	2006/05/01 21:48:26	1.8
@@ -124,8 +124,15 @@ Luigi Panzeri (matley AT muppetslab DOT 
 Simon Josefsson  (jas AT extundo DOT com):
   * Changed erc.el to use tls.el instead of ssl.el.
 
+Nelson Ferreira <nelson.ferreira(a)ieee.org>:
+  * Made BBDB buffers not electric by default (6 lines changed).
+
+Aravind Gottipati <aravind(a)freeshell.org>:
+  * Made /quote work with lines that don't have leading whitespace (1
+    line changed).
+
 ----
 
 P.S.: Many people contributed small bits to ERC whose names I probably
-forgot. If you aren't listed here, simply write a mail to mlang(a)delysid.org,
-I'll add you then.
+forgot.  If you aren't listed here and should be, send an email to
+mwolson(a)gnu.org along with a list of your contributions.
1.39      +43 -0     XEmacs/packages/xemacs-packages/erc/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/erc/ChangeLog,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -p -r1.38 -r1.39
--- ChangeLog	2006/02/20 07:25:37	1.38
+++ ChangeLog	2006/05/01 21:48:26	1.39
@@ -1,3 +1,46 @@
+2006-05-01  Adrian Aichner  <adrian(a)xemacs.org>
+
+	* CREDITS: Full sync with upstream Version 5.1.2 $Revision:
+	1.796.2.6 (current state of release_5_1_branch).
+	* ChangeLog.upstream:
+	* Makefile (AUTHOR_VERSION):
+	* Makefile.upstream:
+	* erc-autojoin.el (erc-autojoin-version):
+	* erc-autojoin.el (erc-autojoin-add):
+	* erc-autojoin.el (erc-autojoin-remove):
+	* erc-backend.el (erc-backend-version):
+	* erc-backend.el (erc-server-connect-function):
+	* erc-backend.el (erc-parse-server-response):
+	* erc-bbdb.el:
+	* erc-bbdb.el (erc-bbdb-version):
+	* erc-bbdb.el (erc-bbdb-electric-p): New.
+	* erc-bbdb.el (erc-bbdb-show-entry):
+	* erc-button.el:
+	* erc-button.el (erc-button-version):
+	* erc-button.el (erc-button-keymap):
+	* erc-button.el (erc-button-next):
+	* erc-button.el (erc-button-previous): New.
+	* erc-ezbounce.el (erc-ezb-version):
+	* erc-ezbounce.el (erc-ezb-add-session):
+	* erc-identd.el:
+	* erc-identd.el (erc-identd-start):
+	* erc-netsplit.el (erc-netsplit-version):
+	* erc-netsplit.el (erc-netsplit-regexp):
+	* erc-netsplit.el (erc-netsplit-MODE):
+	* erc.el:
+	* erc.el (erc-version-string):
+	* erc.el (erc-header-line): New.
+	* erc.el (erc-cmd-QUOTE):
+	* erc.el (erc-cmd-SV):
+	* erc.el (erc-join-channel):
+	* erc.el (erc-parse-user):
+	* erc.el (erc-send-input):
+	* erc.el (erc-message-target):
+	* erc.el (erc-header-line-face-method): New.
+	* erc.el (erc-update-mode-line-buffer):
+	* erc.texi:
+	* erc.texi (Concept Index):
+
 2006-02-20  Norbert Koch  <viteno(a)xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 0.20 released.
1.11      +77 -3     XEmacs/packages/xemacs-packages/erc/ChangeLog.upstream
Index: ChangeLog.upstream
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/erc/ChangeLog.upstream,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -p -r1.10 -r1.11
--- ChangeLog.upstream	2006/02/19 12:57:26	1.10
+++ ChangeLog.upstream	2006/05/01 21:48:26	1.11
@@ -1,3 +1,79 @@
+2006-04-05  Diane Murray  <disumu(a)x3y2z1.net>
+
+	* erc.el (erc-cmd-SV): Removed the exclamation point.  Show the
+	build date as it's shown in `emacs-version'.
+
+	* erc-capab.el (erc-capab-identify-add-prefix): Insert the prefix
+	with the same face property as the previous character.
+
+2006-04-02  Michael Olson  <mwolson(a)gnu.org>
+
+	* erc-backend.el, erc-ezbounce.el, erc-join.el, erc-netsplit.el,
+	erc.el: Make sure to include a newline inside of negated classes,
+	so that a newline is not matched.
+
+2006-04-01  Michael Olson  <mwolson(a)gnu.org>
+
+	* erc-backend.el (erc-server-connect-function): Don't try to
+	detect the existence of the `open-network-stream-nowait' function,
+	since I can't find it in Emacs21, XEmacs21, or Emacs22.
+
+2006-03-27  Michael Olson  <mwolson(a)gnu.org>
+
+	* erc.texi: Update direntry.  Remove unneeded local variables.
+
+2006-03-26  Michael Olson  <mwolson(a)gnu.org>
+
+	* erc.el (erc-header-line): New face that will be used to colorize
+	the text of the header-line, provided that
+	`erc-header-line-face-method' is non-nil.
+	(erc-prompt-face): Fix formatting.
+	(erc-header-line-face-method): New option that determines the
+	method used for colorizing header-line text.  This may be a
+	function, nil, or non-nil.
+	(erc-update-mode-line-buffer): Use the aforementioned option and
+	face to colorize the header-line text, if that is what the user
+	wants.
+	(erc-send-input): If flood control is not activated, don't split
+	the input line.
+
+2006-03-25  Michael Olson  <mwolson(a)gnu.org>
+
+	* erc.el (erc-cmd-QUOTE): Install patch from Aravind Gottipati
+	that fixes the case where there is no leading whitespace.  Only
+	remove the first space character, though.
+
+	* erc-identd.el (erc-identd-start): Fix a bug by making sure that
+	erc-identd-process is set properly.
+	(erc-identd-start, erc-identd-stop): Add autoload cookies.
+	(erc-identd-start): Pass :host parameter so this works with Emacs
+	22.
+
+2006-03-21  Michael Olson  <mwolson(a)gnu.org>
+
+	* CREDITS: Add Nelson Ferreira.  Change contact address.
+
+	* erc-bbdb.el: Install patch from Nelson Ferreira.
+	(erc-bbdb-electric-p): New option that indicates whether to make
+	the BBDB buffer electric.  Defaults to "not electric".
+	(erc-bbdb-show-entry): Use `erc-bbdb-electric-p'.
+
+2006-03-09  Diane Murray  <disumu(a)x3y2z1.net>
+
+	* erc-button.el (erc-button-keymap): Use <backtab> rather than
+	<C-tab> for `erc-button-previous' as it is a more standard key
+	binding for this type of function.
+
+2006-02-19  Michael Olson  <mwolson(a)gnu.org>
+
+	* erc.el (erc-version-string): Release ERC 5.1.2.
+
+2006-02-19  Diane Murray  <disumu(a)x3y2z1.net>
+
+	* erc-button.el (erc-button-keymap): Bind `erc-button-previous' to
+	<C-tab>.
+	(erc-button-previous): New function.
+
 2006-02-15  Michael Olson  <mwolson(a)gnu.org>
 
 	* erc.el (erc): Move to the end of the buffer when a continued
@@ -117,7 +193,7 @@
 
 	* erc.texi (History): Note that ERC is now included with Emacs.
 
-	* erc.el (erc-version-string): Release ERC 5.1.1
+	* erc.el (erc-version-string): Release ERC 5.1.1.
 
 2006-01-31  Michael Olson  <mwolson(a)gnu.org>
 
@@ -490,5 +566,3 @@ See ChangeLog.2005 for earlier changes.
 ;; End:
 
 ;; arch-tag: 865a75f6-2bcb-46df-bf0c-b514dadf688a
-
-;; arch-tag: cceaf370-9880-4031-842b-223ab2bb597d
1.33      +1 -1      XEmacs/packages/xemacs-packages/erc/Makefile
Index: Makefile
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/erc/Makefile,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -p -r1.32 -r1.33
--- Makefile	2006/02/20 07:25:37	1.32
+++ Makefile	2006/05/01 21:48:27	1.33
@@ -19,7 +19,7 @@
 
 
 VERSION = 0.20
-AUTHOR_VERSION = Version 5.1.1 Revision: 1.796.2.3
+AUTHOR_VERSION = Version 5.1.2 Revision: 1.796.2.6
 MAINTAINER = Adrian Aichner <adrian(a)xemacs.org>
 PACKAGE = erc
 PKG_TYPE = regular
1.9       +2 -2      XEmacs/packages/xemacs-packages/erc/Makefile.upstream
Index: Makefile.upstream
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/erc/Makefile.upstream,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -p -r1.8 -r1.9
--- Makefile.upstream	2006/02/19 12:57:27	1.8
+++ Makefile.upstream	2006/05/01 21:48:27	1.9
@@ -1,6 +1,6 @@
-VERSION=5.1.1
+VERSION=5.1.2
 SNAPDIR=erc-$(VERSION)
-LASTUPLOAD = 5.1.1-2
+LASTUPLOAD = 5.1.1-3
 BUILDOPTS  =
 
 SPECIAL = erc-auto.el
1.9       +3 -3      XEmacs/packages/xemacs-packages/erc/erc-autojoin.el
Index: erc-autojoin.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/erc/erc-autojoin.el,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -p -r1.8 -r1.9
--- erc-autojoin.el	2006/02/19 12:57:27	1.8
+++ erc-autojoin.el	2006/05/01 21:48:27	1.9
@@ -36,7 +36,7 @@
 (require 'erc)
 (eval-when-compile (require 'cl))
 
-(defconst erc-autojoin-version "$Revision: 1.15.2.1 $"
+(defconst erc-autojoin-version "$Revision: 1.15.2.2 $"
   "ERC autojoin revision.")
 
 (defgroup erc-autojoin nil
@@ -95,7 +95,7 @@ servers, presumably in the same domain."
 		   (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
@@ -118,7 +118,7 @@ servers, presumably in the same domain."
 		   (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
1.6       +5 -11     XEmacs/packages/xemacs-packages/erc/erc-backend.el
Index: erc-backend.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/erc/erc-backend.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -p -r1.5 -r1.6
--- erc-backend.el	2006/02/19 12:57:27	1.5
+++ erc-backend.el	2006/05/01 21:48:27	1.6
@@ -105,7 +105,7 @@
 
 ;;;; Variables and options
 
-(defconst erc-backend-version "$Revision: 1.44.2.1 $")
+(defconst erc-backend-version "$Revision: 1.44.2.2 $")
 
 (defvar erc-server-responses (make-hash-table :test #'equal)
   "Hashtable mapping server responses to their handler hooks.")
@@ -314,13 +314,7 @@ alist."
   :type '(repeat (cons (string :tag "Target")
                        coding-system)))
 
-(defcustom erc-server-connect-function
-  (if (and (fboundp 'open-network-stream-nowait)
-           ;; CVS Emacs claims to define open-network-stream-nowait on
-           ;; windows, however, it does, in fact, not work.
-           (not (memq system-type '(windows-nt cygwin ms-dos darwin))))
-      'open-network-stream-nowait
-    'open-network-stream)
+(defcustom erc-server-connect-function 'open-network-stream
   "Function used to initiate a connection.
 It should take same arguments as `open-network-stream' does."
   :group 'erc-server
@@ -764,10 +758,10 @@ PROCs `process-buffer' is `current-buffe
                 (substring string 1 posn)))
 
         (setf (erc-response.command msg)
-              (let* ((bposn (string-match "[^ ]" string posn))
+              (let* ((bposn (string-match "[^ \n]" string posn))
                      (eposn (string-match " " string bposn)))
                 (setq posn (and eposn
-                                (string-match "[^ ]" string eposn)))
+                                (string-match "[^ \n]" string eposn)))
                 (substring string bposn eposn)))
 
         (while (and posn
@@ -775,7 +769,7 @@ PROCs `process-buffer' is `current-buffe
           (push (let* ((bposn posn)
                        (eposn (string-match " " string bposn)))
                   (setq posn (and eposn
-                                  (string-match "[^ ]" string eposn)))
+                                  (string-match "[^ \n]" string eposn)))
                   (substring string bposn eposn))
                 (erc-response.command-args msg)))
         (when posn
1.8       +8 -2      XEmacs/packages/xemacs-packages/erc/erc-bbdb.el
Index: erc-bbdb.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/erc/erc-bbdb.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- erc-bbdb.el	2006/02/19 12:57:27	1.7
+++ erc-bbdb.el	2006/05/01 21:48:27	1.8
@@ -50,7 +50,7 @@
 (require 'bbdb-gui)
 (require 'bbdb-hooks)
 
-(defconst erc-bbdb-version "$Revision: 1.31.2.1 $"
+(defconst erc-bbdb-version "$Revision: 1.31.2.2 $"
   "ERC BBDB revision.")
 
 (defgroup erc-bbdb nil
@@ -113,6 +113,11 @@ their \"displayed name\"."
   :group 'erc-bbdb
   :type 'boolean)
 
+(defcustom erc-bbdb-electric-p nil
+  "*If t, BBDB popup buffer is electric."
+:group 'erc-bbdb
+:type 'boolean)
+
 (defun erc-bbdb-search-name-and-create (create-p name nick finger-host silent)
   (let* ((ircnick (cons erc-bbdb-irc-nick-field (concat "^"
 							(regexp-quote nick))))
@@ -133,7 +138,8 @@ their \"displayed name\"."
       record)))
 
 (defun erc-bbdb-show-entry (record channel proc)
-  (let ((bbdb-display-layout (bbdb-grovel-elide-arg erc-bbdb-elide-display)))
+  (let ((bbdb-display-layout (bbdb-grovel-elide-arg erc-bbdb-elide-display))
+	(bbdb-electric-p erc-bbdb-electric-p))
     (when (and record (or (eq erc-bbdb-popup-type t)
 			  (and (eq erc-bbdb-popup-type 'visible)
 			       (and channel
1.10      +18 -1     XEmacs/packages/xemacs-packages/erc/erc-button.el
Index: erc-button.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/erc/erc-button.el,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -p -r1.9 -r1.10
--- erc-button.el	2006/02/19 12:57:27	1.9
+++ erc-button.el	2006/05/01 21:48:27	1.10
@@ -68,7 +68,7 @@
 
 ;;; Variables
 
-(defconst erc-button-version "$Revision: 1.71.2.1 $"
+(defconst erc-button-version "$Revision: 1.71.2.2 $"
   "ERC button mode revision.")
 
 (defface erc-button '((t (:bold t)))
@@ -219,6 +219,7 @@ PAR is a number of a regexp grouping who
         (define-key map (kbd "<button2>") 'erc-button-click-button)
       (define-key map (kbd "<mouse-2>") 'erc-button-click-button))
     (define-key map (kbd "TAB") 'erc-button-next)
+    (define-key map (kbd "<backtab>") 'erc-button-previous)
     (set-keymap-parent map erc-mode-map)
     map)
   "Local keymap for ERC buttons.")
@@ -428,6 +429,22 @@ call it with the value of the `erc-data'
       (if (< here (point-max))
           (goto-char here)
         (error "No next button"))
+      t)))
+
+(defun erc-button-previous ()
+  "Go to the previous button in this buffer."
+  (interactive)
+  (let ((here (point)))
+    (when (< here (erc-beg-of-input-line))
+      (while (and (get-text-property here 'erc-callback)
+                  (not (= here (point-min))))
+        (setq here (1- here)))
+      (while (and (not (get-text-property here 'erc-callback))
+                  (not (= here (point-min))))
+        (setq here (1- here)))
+      (if (> here (point-min))
+          (goto-char here)
+        (error "No previous button"))
       t)))
 
 (defun erc-browse-emacswiki (thing)
1.10      +2 -2      XEmacs/packages/xemacs-packages/erc/erc-ezbounce.el
Index: erc-ezbounce.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/erc/erc-ezbounce.el,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -p -r1.9 -r1.10
--- erc-ezbounce.el	2006/02/19 12:57:28	1.9
+++ erc-ezbounce.el	2006/05/01 21:48:27	1.10
@@ -29,7 +29,7 @@
 (require 'erc)
 (eval-when-compile (require 'cl))
 
-(defconst erc-ezb-version "$Revision: 1.12.2.1 $"
+(defconst erc-ezb-version "$Revision: 1.12.2.2 $"
   "ERC EZBouncer revision.")
 
 (defgroup erc-ezbounce nil
@@ -142,7 +142,7 @@ in the alist is `nil', prompt for the ap
 (defun erc-ezb-add-session (message)
   "Add an EZBounce session to the session list."
   (when (and erc-ezb-inside-session-listing
-	     (string-match "^\\([^ ]+\\) +\\([^ ]+\\) +\\([^ ]+\\) +\\([^ ]+\\)$" message))
+	     (string-match "^\\([^ \n]+\\) +\\([^ \n]+\\) +\\([^ \n]+\\) +\\([^ \n]+\\)$" message))
     (let ((id (match-string 1 message))
 	  (nick (match-string 2 message))
 	  (to   (match-string 3 message)))
1.5       +10 -7     XEmacs/packages/xemacs-packages/erc/erc-identd.el
Index: erc-identd.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/erc/erc-identd.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- erc-identd.el	2006/02/19 12:57:28	1.4
+++ erc-identd.el	2006/05/01 21:48:27	1.5
@@ -1,6 +1,6 @@
 ;;; erc-identd.el --- RFC1413 (identd authentication protocol) server
 
-;; Copyright (C) 2003 Free Software Foundation, Inc.
+;; Copyright (C) 2003, 2006 Free Software Foundation, Inc.
 
 ;; Author: John Wiegley <johnw(a)gnu.org>
 ;; Keywords: comm, processes
@@ -46,6 +46,7 @@
 			     system-type (user-login-name)))
 	(process-send-eof erc-identd-process)))))
 
+;;;###autoload
 (defun erc-identd-start (&optional port)
   "Start an identd server listening to port 8113.
 Port 113 (auth) will need to be redirected to port 8113 on your
@@ -60,15 +61,17 @@ system."
 	(setq port (string-to-number port))))
   (if erc-identd-process
       (delete-process erc-identd-process))
-  (if (fboundp 'make-network-process)
-      (setq erc-identd-process
+  (setq erc-identd-process
+	(if (fboundp 'make-network-process)
 	    (make-network-process :name "identd"
 				  :buffer (generate-new-buffer "identd")
-				  :service port :server t :noquery t
-				  :filter 'erc-identd-filter))
-    (open-network-stream-server "identd" (generate-new-buffer "identd")
-				port nil 'erc-identd-filter)))
+				  :host 'local :service port
+				  :server t :noquery t
+				  :filter 'erc-identd-filter)
+	  (open-network-stream-server "identd" (generate-new-buffer "identd")
+				      port nil 'erc-identd-filter))))
 
+;;;###autoload
 (defun erc-identd-stop (&rest ignore)
   (interactive)
   (when erc-identd-process
1.9       +4 -3      XEmacs/packages/xemacs-packages/erc/erc-netsplit.el
Index: erc-netsplit.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/erc/erc-netsplit.el,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -p -r1.8 -r1.9
--- erc-netsplit.el	2006/02/19 12:57:29	1.8
+++ erc-netsplit.el	2006/05/01 21:48:27	1.9
@@ -34,7 +34,7 @@
 (require 'erc)
 (eval-when-compile (require 'cl))
 
-(defconst erc-netsplit-version "$Revision: 1.15.2.1 $"
+(defconst erc-netsplit-version "$Revision: 1.15.2.2 $"
   "ERC netsplit version.")
 
 (defgroup erc-netsplit nil
@@ -67,7 +67,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
@@ -134,7 +135,7 @@ join from that split has been detected o
 (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 "^[^@!]+\\.[^(a)!]+$" (erc-response.sender parsed))
+  (when (string-match "^[^@!\n]+\\.[^(a)!\n]+$" (erc-response.sender parsed))
     (and erc-netsplit-debug
 	 (erc-display-message
 	  parsed 'notice (process-buffer proc)
1.15      +40 -12    XEmacs/packages/xemacs-packages/erc/erc.el
Index: erc.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/erc/erc.el,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -p -r1.14 -r1.15
--- erc.el	2006/02/19 12:57:31	1.14
+++ erc.el	2006/05/01 21:48:28	1.15
@@ -66,7 +66,7 @@
 
 ;;; Code:
 
-(defconst erc-version-string "Version 5.1.1 $Revision: 1.796.2.3 $"
+(defconst erc-version-string "Version 5.1.2 $Revision: 1.796.2.6 $"
   "ERC version.  This is used by function `erc-version'.")
 
 (eval-when-compile (require 'cl))
@@ -1116,12 +1116,19 @@ which the local user typed."
   "ERC face used for messages you receive in the main erc buffer."
   :group 'erc-faces)
 
+(defface erc-header-line
+  '((t (:foreground "grey20" :background "grey90")))
+  "ERC face used for the header line.
+
+This will only be used if `erc-header-line-face-method' is non-nil."
+:group 'erc-faces)
+
 (defface erc-input-face '((t (:foreground "brown")))
   "ERC face used for your input."
   :group 'erc-faces)
 
 (defface erc-prompt-face
-  '((t (:bold t :foreground "Black" :background"lightBlue2")))
+  '((t (:bold t :foreground "Black" :background "lightBlue2")))
   "ERC face for the prompt."
   :group 'erc-faces)
 
@@ -2981,7 +2988,7 @@ Otherwise leave the channel indicated by
 All the text given as argument is sent to the sever as unmodified,
 just as you provided it.  Use this command with care!"
   (cond
-   ((string-match "^\\s-\\(.+\\)$" line)
+   ((string-match "^ ?\\(.+\\)$" line)
     (erc-server-send (match-string 1 line)))
    (t nil)))
 (put 'erc-cmd-QUOTE 'do-not-parse-args t)
@@ -3110,7 +3117,7 @@ the message given by REASON."
 
 (defun erc-cmd-SV ()
   "Say the current ERC and Emacs version into channel."
-  (erc-send-message (format "I'm using ERC %s with %s %s (%s%s%s)!"
+  (erc-send-message (format "I'm using ERC %s with %s %s (%s%s) of %s."
 			    erc-version-string
 			    (if (featurep 'xemacs) "XEmacs" "GNU Emacs")
 			    emacs-version
@@ -3133,7 +3140,7 @@ the message given by REASON."
 						      x-toolkit-scroll-bars)))
 			       "")
 			     (if (featurep 'multi-tty) ", multi-tty" ""))
-			    (concat ", built " erc-emacs-build-time)))
+			    erc-emacs-build-time))
   t)
 
 (defun erc-cmd-SM ()
@@ -3474,7 +3481,7 @@ If FACE is non-nil, it will be used to p
 If `point' is at the beginning of a channel name, use that as default."
   (interactive
    (list
-    (let ((chnl (if (looking-at "\\([&#+!][^ ]+\\)") (match-string 1) ""))
+    (let ((chnl (if (looking-at "\\([&#+!][^ \n]+\\)") (match-string 1) ""))
 	  (table (when (erc-server-buffer-live-p)
 		   (set-buffer (process-buffer erc-server-process))
 		   erc-channel-list)))
@@ -4718,12 +4725,12 @@ EmacsSpeak support."
 
 Return a list of the three separate tokens."
   (cond
-   ((string-match "^\\([^!]*\\)!\\([^@]*\\)(a)\\(.*\\)$" string)
+   ((string-match "^\\([^!\n]*\\)!\\([^@\n]*\\)(a)\\(.*\\)$" string)
     (list (match-string 1 string)
 	  (match-string 2 string)
 	  (match-string 3 string)))
    ;; Some bogus bouncers send Nick!(null), try to live with that.
-   ((string-match "^\\([^!]*\\)!\\(.*\\)$" string)
+   ((string-match "^\\([^!\n]*\\)!\\(.*\\)$" string)
     (list (match-string 1 string)
 	  ""
 	  (match-string 2 string)))
@@ -4841,7 +4848,8 @@ This returns non-nil only iff we actuall
 		  (erc-display-msg line)
 		  (erc-process-input-line (concat line "\n")
 					  (null erc-flood-protect) t))
-		(erc-split-line line)))
+		(or (and erc-flood-protect (erc-split-line line))
+		    (list line))))
 	     (split-string str "\n"))
 	  ;; Insert the prompt along with the command.
 	  (erc-display-command str)
@@ -5036,7 +5044,7 @@ user matches any regexp in `erc-ignore-r
   "Return the addressed target in MSG.
 
 The addressed target is the string before the first colon in MSG."
-  (if (string-match "^\\([^: ]*\\):" msg)
+  (if (string-match "^\\([^: \n]*\\):" msg)
       (match-string 1 msg)
     nil))
 
@@ -5607,6 +5615,17 @@ when you move point into the header line
   :group 'erc-mode-line-and-header
   :type 'boolean)
 
+(defcustom erc-header-line-face-method nil
+  "Determine what method to use when colorizing the header line text.
+
+If nil, don't colorize the header text.
+If given a function, call it and use the resulting face name.
+Otherwise, use the `erc-header-line' face."
+:group 'erc-mode-line-and-header
+:type '(choice (const :tag "Don't colorize" nil)
+		 (const :tag "Use the erc-header-line face" t)
+		 (function :tag "Call a function")))
+
 (defcustom erc-show-channel-key-p t
   "Show the the channel key in the header line."
   :group 'erc-paranoia
@@ -5713,7 +5732,13 @@ if `erc-away' is non-nil."
 				((erc-server-process-alive)
 				 "")
 				(t
-				 ": CLOSED"))))
+				 ": CLOSED")))
+	  (face (cond ((eq erc-header-line-face-method nil)
+		       nil)
+		      ((functionp erc-header-line-face-method)
+		       (funcall erc-header-line-face-method))
+		      (t
+		       erc-header-line))))
       (cond ((featurep 'xemacs)
 	     (setq modeline-buffer-identification
 		   (list (format-spec erc-mode-line-format spec)))
@@ -5737,7 +5762,10 @@ if `erc-away' is non-nil."
 			 (erc-replace-regexp-in-string
 			  "%"
 			  "%%"
-			  (erc-propertize header 'help-echo help-echo)))))
+			  (if face
+			      (erc-propertize header 'help-echo help-echo
+					      'face face)
+			    (erc-propertize header 'help-echo help-echo))))))
 		(t (setq header-line-format header))))))
     (if (featurep 'xemacs)
 	(redraw-modeline)
1.2       +2 -6      XEmacs/packages/xemacs-packages/erc/erc.texi
Index: erc.texi
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/erc/erc.texi,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- erc.texi	2006/02/19 16:38:27	1.1
+++ erc.texi	2006/05/01 21:48:28	1.2
@@ -6,13 +6,13 @@
 
 @dircategory Emacs
 @direntry
-* ERC: (erc). Full-featured IRC client for Emacs.
+* ERC: (erc).           Powerful, modular, and extensible IRC client for Emacs.
 @end direntry
 
 @syncodeindex fn cp
 
 @copying
-This manual is for ERC version 5.1.1.
+This manual is for ERC version 5.1.2.
 
 Copyright @copyright{} 2005, 2006 Free Software Foundation, Inc.
 
@@ -1434,10 +1434,6 @@ to permit their use in free software.
 @printindex cp
 
 @bye
-
-@c Local Variables:
-@c ispell-local-pdict: "ispell-dict"
-@c End:
 
 @ignore
    arch-tag: cf9cfaff-fc12-4297-ad15-ec2493002b1e