diff options
| author | Michael Olson <mwolson@gnu.org> | 2008-06-19 04:59:11 +0000 |
|---|---|---|
| committer | Michael Olson <mwolson@gnu.org> | 2008-06-19 04:59:11 +0000 |
| commit | 40ef82425268e306133904b13cc360b8e86f37b3 (patch) | |
| tree | 834f4688e7a21f0de786346c4d2831ec13a7bd3c /lisp/erc/erc-backend.el | |
| parent | dced1efdffdc7896403d88bd818a324c6a864a98 (diff) | |
| download | emacs-40ef82425268e306133904b13cc360b8e86f37b3.tar.gz | |
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.
Diffstat (limited to 'lisp/erc/erc-backend.el')
| -rw-r--r-- | lisp/erc/erc-backend.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el index efaac645c24..a6401cb84bc 100644 --- a/lisp/erc/erc-backend.el +++ b/lisp/erc/erc-backend.el @@ -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))) |