Commit 40ef8242 authored by Michael Olson's avatar Michael Olson
Browse files

ERC: Upstream updates.

 - New response handler for '328'.

 - Update nickserv regexps for freenode.

 - Back out changes to erc-put-text-properties in favor of upstream
   changes to that same effect.

 - Fix arguments to erc-put-text-properties in erc-display-line-1.
parent dced1efd
......@@ -3,6 +3,17 @@
* erc/erc-autoaway.el, erc/erc-ibuffer.el, erc/erc-menu.el:
* erc/erc-stamp.el, erc/erc.el: Remove unnecessary eval-when-compiles.
2008-05-30 Diane Murray <>
* erc-backend.el (328): New response handler.
* erc.el (english): Added 328 to catalog.
2008-05-29 Diane Murray <>
* erc-services.el (erc-nickserv-alist): Updated REGEXP and
SUCCESS-REGEXP for freenode.
2008-05-05 Juanma Barranquero <>
* erc-goodies.el (erc-noncommands-list, noncommands)
......@@ -10,9 +21,11 @@
(erc-interpret-mirc-color): Fix typos in docstrings.
(erc-controls-highlight): Reflow docstring.
2008-04-27 Glenn Morris <>
2008-04-26 Johan Bockgård <>
* erc.el (erc-put-text-properties): Replace use of cl mapcar*.
* erc.el (erc-put-text-properties): Don't use mapcar*.
(erc-display-line-1): Fix argument order in call to
2008-04-14 Michael Olson <>
......@@ -1684,6 +1684,13 @@ See `erc-display-server-message'." nil
parsed 'notice (erc-get-buffer channel proc)
's324 ?c channel ?m modes)))
(define-erc-response-handler (328)
"Channel URL (on freenode network)." nil
(let ((channel (second (erc-response.command-args parsed)))
(url (erc-response.contents parsed)))
(erc-display-message parsed 'notice (erc-get-buffer channel proc)
's328 ?c channel ?u url)))
(define-erc-response-handler (329)
"Channel creation date." nil
(let ((channel (second (erc-response.command-args parsed)))
......@@ -232,10 +232,11 @@ Example of use:
;; freenode also accepts a password at login, see the `erc'
;; :password argument.
"IDENTIFY" nil nil
;; See also the 901 response code message.
......@@ -2368,8 +2368,8 @@ If STRING is nil, the function does nothing."
(unless (string-match "\n$" string)
(setq string (concat string "\n"))
(when (erc-string-invisible-p string)
(erc-put-text-properties 0 (length string) string
'(invisible intangible))))
(erc-put-text-properties 0 (length string)
'(invisible intangible) string)))
(erc-log (concat "erc-display-line: " string
(format "(%S)" string) " in buffer "
(format "%s" buffer)))
......@@ -5040,9 +5040,9 @@ each property to the corresponding value in VALUE-LIST."
(setq value-list (mapcar (lambda (x)
(dotimes (i (min (length properties) (length value-list)))
(erc-put-text-property start end (nth i properties)
(nth i value-list) object)))
(while (and properties value-list)
start end (pop properties) (pop value-list) object)))
;;; Input area handling:
......@@ -6312,6 +6312,7 @@ All windows are opened in the current frame."
(s321 . "Channel Users Topic")
(s322 . "%c [%u] %t")
(s324 . "%c modes: %m")
(s328 . "%c URL: %u")
(s329 . "%c was created on %t")
(s330 . "%n %a %i")
(s331 . "No topic is set for %c")
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment