[Emacs-diffs] /srv/bzr/emacs/trunk r104088: * lisp/erc/erc-backend.el (671): New response handler.

[Julien Danjou]

------------------------------------------------------------
revno: 104088
committer: Julien Danjou <address@hidden>
branch nick: trunk
timestamp: Tue 2011-05-03 10:37:51 +0200
message:
  * lisp/erc/erc-backend.el (671): New response handler.
  * lisp/erc/erc.el (english): Add 671 to catalog.
modified:
  lisp/erc/ChangeLog
  lisp/erc/erc-backend.el
  lisp/erc/erc.el

=== modified file 'lisp/erc/ChangeLog'
--- a/lisp/erc/ChangeLog        2011-04-29 15:23:59 +0000
+++ b/lisp/erc/ChangeLog        2011-05-03 08:37:51 +0000
@@ -1,3 +1,8 @@
+2011-05-03  Debarshi Ray  <address@hidden>
+
+       * erc-backend.el (671): New response handler.
+       * erc.el (english): Add 671 to catalog.
+
 2011-04-29  Stefan Monnier  <address@hidden>
 
        * erc-pcomplete.el (erc-pcomplete-nick-postfix): Remove the " " in the

=== modified file 'lisp/erc/erc-backend.el'
--- a/lisp/erc/erc-backend.el   2011-01-25 04:08:28 +0000
+++ b/lisp/erc/erc-backend.el   2011-05-03 08:37:51 +0000
@@ -1951,6 +1951,13 @@
     (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

=== modified file 'lisp/erc/erc.el'
--- a/lisp/erc/erc.el   2011-04-26 13:50:09 +0000
+++ b/lisp/erc/erc.el   2011-05-03 08:37:51 +0000
@@ -6351,7 +6351,8 @@
    (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.