* lisp/erc/erc-backend.el (671): New response handler.

* lisp/erc/erc.el (english): Add 671 to catalog.

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index bf9e1e21e0e53de33021f7ea19be9e4e43ba058f..5c86b08fdb17fc9c988c47a2249a779c4510153a 100644 (file)
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,8 @@
+2011-05-03  Debarshi Ray  <rishi@gnu.org>
+
+       * erc-backend.el (671): New response handler.
+       * erc.el (english): Add 671 to catalog.
+
 2011-04-29  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * erc-pcomplete.el (erc-pcomplete-nick-postfix): Remove the " " in the

diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el
index 8a25e5f600d09f93762462089d0ad124e8e1b8fa..d363ea92bdb9217dc4a738235aa0501982885600 100644 (file)
--- 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

diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index e2228a4330309d7084e75c6d5ba423acffa0d19a..a8c592696adface1ddd881f1acfd4508e80bd8cf 100644 (file)
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -6351,7 +6351,8 @@ All windows are opened in the current frame."
    (s485   . "You're not the original channel operator")
    (s491   . "No O-lines for your host")
    (s501   . "Unknown MODE flag")
-   (s502   . "You can't change modes for other users")))
+   (s502   . "You can't change modes for other users")
+   (s671   . "%n %a")))
 
 (defun erc-message-english-PART (&rest args)
   "Format a proper PART message.