diff options
| author | Julien Danjou <julien@danjou.info> | 2011-05-03 10:37:51 +0200 |
|---|---|---|
| committer | Julien Danjou <julien@danjou.info> | 2011-05-03 10:37:51 +0200 |
| commit | f927985e87724306e8eb0827feb3f51c964561f5 (patch) | |
| tree | c6537e0844d3ff7e82f7f4326d94bca78f42bf3f /lisp/erc/erc-backend.el | |
| parent | 256661260dfed952d6497aef73607bfe24795614 (diff) | |
| download | emacs-f927985e87724306e8eb0827feb3f51c964561f5.tar.gz | |
* lisp/erc/erc-backend.el (671): New response handler.
* lisp/erc/erc.el (english): Add 671 to catalog.
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 8a25e5f600d..d363ea92bdb 100644 --- a/lisp/erc/erc-backend.el +++ b/lisp/erc/erc-backend.el @@ -1951,6 +1951,13 @@ See `erc-display-server-message'." nil (erc-display-message parsed '(error notice) 'active 's482 ?c channel ?m message))) +(define-erc-response-handler (671) + "Secure connection response in WHOIS." nil + (let ((nick (second (erc-response.command-args parsed))) + (securemsg (erc-response.contents parsed))) + (erc-display-message parsed 'notice 'active 's671 + ?n nick ?a securemsg))) + (define-erc-response-handler (431 445 446 451 462 463 464 481 483 484 485 491 501 502) ;; 431 - No nickname given |