aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/erc/erc-backend.el
diff options
context:
space:
mode:
authorMichael Olson2007-11-29 22:36:38 +0000
committerMichael Olson2007-11-29 22:36:38 +0000
commit2131c501dd40482c6c30b538eecfc7e9ab4e58d2 (patch)
tree861f8992c4737997bd3470d7c7748fe369798d15 /lisp/erc/erc-backend.el
parentb510360c6bf66da86512b837c9533cbd24b776fe (diff)
downloademacs-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.el10
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))