[Erc-commit] [commit][emacs22] Fix /quote command for case when no leading whitespace exists.

[mwolson]

commit 642d0912f735232daa57dd1680403710b7f17f6f
Author: Michael Olson <address@hidden>
Date:   Sat Mar 25 06:18:04 2006 +0000

    Fix /quote command for case when no leading whitespace exists.
    
    * erc.el (erc-cmd-QUOTE): Install patch from Aravind Gottipati that fixes
      the case where there is no leading whitespace.
    git-archimport-id: address@hidden/erc--cvs--0--patch-142

diff --git a/CREDITS b/CREDITS
index 0d915bf..5172ffc 100644
--- a/CREDITS
+++ b/CREDITS
@@ -127,6 +127,10 @@ Simon Josefsson  (jas AT extundo DOT com):
 Nelson Ferreira <address@hidden>:
   * Made BBDB buffers not electric by default (6 lines changed).
 
+Aravind Gottipati <address@hidden>:
+  * Made /quote work with lines that don't have leading whitespace (1
+    line changed).
+
 ----
 
 P.S.: Many people contributed small bits to ERC whose names I probably
diff --git a/ChangeLog b/ChangeLog
index 7f0d0e6..28a013c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2006-03-25  Michael Olson  <address@hidden>
 
+       * erc.el (erc-cmd-QUOTE): Install patch from Aravind Gottipati
+       that fixes the case where there is no leading whitespace.
+
        * erc-identd.el (erc-identd-start): Fix a bug by making sure that
        erc-identd-process is set properly.
        (erc-identd-start, erc-identd-stop): Add autoload cookies.
diff --git a/erc.el b/erc.el
index de9f0cf..dcdb57a 100644
--- a/erc.el
+++ b/erc.el
@@ -3003,7 +3003,7 @@ Otherwise leave the channel indicated by LINE."
 All the text given as argument is sent to the sever as unmodified,
 just as you provided it.  Use this command with care!"
   (cond
-   ((string-match "^\\s-\\(.+\\)$" line)
+   ((string-match "^\\s-*\\(.+\\)$" line)
     (erc-server-send (match-string 1 line)))
    (t nil)))
 (put 'erc-cmd-QUOTE 'do-not-parse-args t)