Fix a regression in erc-dcc

* erc-dcc.el (erc-dcc-handle-ctcp-send): Fix a regression
introduced on 2011-11-28 when fixing quoted filenames matching,
the regex group was not corrected.

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index 134938af78eb33a2a4a1063bdb410e478e86d299..9585c249cb262bcd787ddaf3b8eb85549da7b503 100644 (file)
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,9 @@
+2012-05-14  Mike Kazantsev  <mk.fraggod@gmail.com>  (tiny change)
+
+       * erc-dcc.el (erc-dcc-handle-ctcp-send): Fix a regression
+       introduced on 2011-11-28 when fixing quoted filenames matching,
+       the regex group was not corrected.
+
 2012-05-13  Teemu Likonen  <tlikonen@iki.fi>
 
        * erc-backend.el (erc-server-timestamp-format): New variable to

diff --git a/lisp/erc/erc-dcc.el b/lisp/erc/erc-dcc.el
index ba87cf63993820b51856cbdbb14adde56d794463..d1ef1a9954801d5086dabcfa8101c4816da814c5 100644 (file)
--- a/lisp/erc/erc-dcc.el
+++ b/lisp/erc/erc-dcc.el
@@ -674,7 +674,7 @@ It extracts the information about the dcc request and adds it to
        ?r "SEND" ?n nick ?u login ?h host))
      ((string-match erc-dcc-ctcp-query-send-regexp query)
       (let ((filename
-             (or (match-string 3 query)
+             (or (match-string 5 query)
                  (erc-dcc-unquote-filename (match-string 2 query))))
             (ip       (erc-decimal-to-ip (match-string 6 query)))
             (port     (match-string 7 query))