[Erc-commit] [commit][master] Parse 307 (nick has identified) responses

[mwolson]

commit ae00df6d4f7d1907025f6d8e90e12613b5c1f329
Author: Giorgos Keramidas <address@hidden>
Date:   Thu Nov 29 17:28:10 2007 -0500

    Parse 307 (nick has identified) responses
    
    Signed-off-by: Michael W. Olson <address@hidden>

diff --git a/ChangeLog b/ChangeLog
index 1733290..ef808ae 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-11-29  Giorgos Keramidas  <address@hidden>
+
+       * erc-backend.el, erc.el:
+       Parse 307 (nick has identified) responses.
+
 2007-11-15  Juanma Barranquero  <address@hidden>
 
        * erc.el (erc-open):
diff --git a/erc-backend.el b/erc-backend.el
index 5b4e79f..338696f 100644
--- a/erc-backend.el
+++ b/erc-backend.el
@@ -1564,6 +1564,16 @@ See `erc-display-server-message'." nil
   (erc-display-message parsed 'notice 'active
                        's306 ?m (erc-response.contents parsed)))
 
+(define-erc-response-handler (307)
+  "Display nick-identified message." nil
+  (multiple-value-bind (nick user message)
+      (cdr (erc-response.command-args parsed))
+    (erc-display-message
+     parsed 'notice 'active 's307
+     ?n nick
+     ?m (mapconcat 'identity (cddr (erc-response.command-args parsed))
+                   " "))))
+
 (define-erc-response-handler (311 314)
   "WHOIS/WHOWAS notices." nil
   (let ((fname (erc-response.contents parsed))
diff --git a/erc.el b/erc.el
index 413bc83..209a416 100644
--- a/erc.el
+++ b/erc.el
@@ -6207,6 +6207,7 @@ All windows are opened in the current frame."
    (s303   . "Is online: %n")
    (s305   . "%m")
    (s306   . "%m")
+   (s307   . "%n %m")
    (s311   . "%n is %f (address@hidden)")
    (s312   . "%n is/was on server %s (%c)")
    (s313   . "%n is an IRC operator")