diff options
| author | Michael Olson | 2007-11-29 22:36:38 +0000 |
|---|---|---|
| committer | Michael Olson | 2007-11-29 22:36:38 +0000 |
| commit | 2131c501dd40482c6c30b538eecfc7e9ab4e58d2 (patch) | |
| tree | 861f8992c4737997bd3470d7c7748fe369798d15 /lisp/erc/erc-backend.el | |
| parent | b510360c6bf66da86512b837c9533cbd24b776fe (diff) | |
| download | emacs-2131c501dd40482c6c30b538eecfc7e9ab4e58d2.tar.gz emacs-2131c501dd40482c6c30b538eecfc7e9ab4e58d2.zip | |
Sync from upstream ERC
- Parse 307 (nick has identified) responses.
- Only activate some things if the connection has been established.
Diffstat (limited to 'lisp/erc/erc-backend.el')
| -rw-r--r-- | lisp/erc/erc-backend.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el index 5b4e79fda32..338696f37d6 100644 --- a/lisp/erc/erc-backend.el +++ b/lisp/erc/erc-backend.el | |||
| @@ -1564,6 +1564,16 @@ See `erc-display-server-message'." nil | |||
| 1564 | (erc-display-message parsed 'notice 'active | 1564 | (erc-display-message parsed 'notice 'active |
| 1565 | 's306 ?m (erc-response.contents parsed))) | 1565 | 's306 ?m (erc-response.contents parsed))) |
| 1566 | 1566 | ||
| 1567 | (define-erc-response-handler (307) | ||
| 1568 | "Display nick-identified message." nil | ||
| 1569 | (multiple-value-bind (nick user message) | ||
| 1570 | (cdr (erc-response.command-args parsed)) | ||
| 1571 | (erc-display-message | ||
| 1572 | parsed 'notice 'active 's307 | ||
| 1573 | ?n nick | ||
| 1574 | ?m (mapconcat 'identity (cddr (erc-response.command-args parsed)) | ||
| 1575 | " ")))) | ||
| 1576 | |||
| 1567 | (define-erc-response-handler (311 314) | 1577 | (define-erc-response-handler (311 314) |
| 1568 | "WHOIS/WHOWAS notices." nil | 1578 | "WHOIS/WHOWAS notices." nil |
| 1569 | (let ((fname (erc-response.contents parsed)) | 1579 | (let ((fname (erc-response.contents parsed)) |