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&gt; * 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&gt;: + * Made BBDB buffers not electric by default (6 lines changed). + +Aravind Gottipati <aravind(a)freeshell.org&gt;: + * 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&gt; + + * 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&gt; * 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&gt; + + * 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&gt; + + * 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&gt; + + * 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&gt; + + * erc.texi: Update direntry. Remove unneeded local variables. + +2006-03-26 Michael Olson <mwolson(a)gnu.org&gt; + + * 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&gt; + + * 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&gt; + + * 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&gt; + + * 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&gt; + + * erc.el (erc-version-string): Release ERC 5.1.2. + +2006-02-19 Diane Murray <disumu(a)x3y2z1.net&gt; + + * 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&gt; * 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&gt; ＠＠ -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&gt; 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&gt; ;; 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 &quot;^[^＠!]+\\.[^(a)!]+$&quot; (erc-response.sender parsed)) + (when (string-match &quot;^[^＠!\n]+\\.[^(a)!\n]+$&quot; (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 &quot;^\\([^!]*\\)!\\([^＠]*\\)(a)\\(.*\\)$&quot; string) + ((string-match &quot;^\\([^!\n]*\\)!\\([^＠\n]*\\)(a)\\(.*\\)$&quot; 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