* auth/radius.c (_expand_query): Fix typo.

* mailbox/cfg_lexer.c (copy_string0): New function.
(copy_string): Rewrite using copy_string0.
(copy_to): Parse strings correctly.
(default_lexer): Bugfix. Return string if tag is quoted.

+2008-01-31  Sergey Poznyakoff  <gray@gnu.org.ua>
+
+	* auth/radius.c (_expand_query): Fix typo.
+	* mailbox/cfg_lexer.c (copy_string0): New function.
+	(copy_string): Rewrite using copy_string0.
+	(copy_to): Parse strings correctly.
+	(default_lexer): Bugfix. Return string if tag is quoted.
+
 2008-01-28  Sergey Poznyakoff  <gray@gnu.org.ua>
 2008-01-28  Sergey Poznyakoff  <gray@gnu.org.ua>
 
 
 	* pop3d/bulletin.c (open_bulletin_mailbox): Bugfix.
 	* pop3d/bulletin.c (open_bulletin_mailbox): Bugfix.

@@ -220,7 +220,7 @@ _expand_query (const char *query, const char *ustr, const char *passwd)
   if (passwd)
   if (passwd)
     {
     {
       mu_vartab_define (vtab, "passwd", passwd, 1);
       mu_vartab_define (vtab, "passwd", passwd, 1);
-      mu_vartab_define (vtab, "p", ustr, 1);
+      mu_vartab_define (vtab, "p", passwd, 1);
     }
     }
 
 
   rc = mu_vartab_expand (vtab, query, &str);
   rc = mu_vartab_expand (vtab, query, &str);

@@ -115,53 +115,14 @@ skipline (struct lexer_data *p)
 }
 }
 
 
 static int
 static int
-isword (int c)
-{
-  if (mu_cfg_tie_in)
-    return c && c != ';' && c != '{';
-  
-  return isalnum (c) || c == '_' || c == '-' || c == '.';
-}
-
-static char *
-copy_alpha (struct lexer_data *p)
-{
-  do
-    {
-      if (*p->curp == '\n')
-	mu_cfg_locus.line++;
-      cbuf_1grow (p, *p->curp);
-      p->curp++;
-    } while (*p->curp && isword (*p->curp));
-  cbuf_1grow (p, 0);
-  return cbuf_finish (p);
-}
-
-static char *
-copy_to (struct lexer_data *p, const char *delim)
-{
-  while (*p->curp)
-    {
-      if (strchr (delim, *p->curp))
-	break;
-      if (*p->curp == '\n')
-	mu_cfg_locus.line++;
-      cbuf_1grow (p, *p->curp);
-      p->curp++;
-    } 
-  cbuf_1grow (p, 0);
-  return cbuf_finish (p);
-}
-
-static int
 continuation_line_p (struct lexer_data *p, int quote)
 continuation_line_p (struct lexer_data *p, int quote)
 {
 {
   skipws (p);
   skipws (p);
   return *p->curp == quote;
   return *p->curp == quote;
 }
 }
 
 
-static char *
-copy_string (struct lexer_data *p)
+static void
+copy_string0 (struct lexer_data *p, int unquote)
 {
 {
   int quote;
   int quote;
   do
   do
@@ -183,13 +144,10 @@ copy_string (struct lexer_data *p)
 		  p->curp++;
 		  p->curp++;
 		  continue;
 		  continue;
 		}
 		}
-	      c = mu_argcv_unquote_char (*p->curp);
-	      if (c == *p->curp)
-		{
-		  cbuf_1grow (p, '\\');
-		  cbuf_1grow (p, *p->curp);
-		}
+	      if (!unquote)
+		c = *p->curp;
 	      else
 	      else
+		c = mu_argcv_unquote_char (*p->curp);
 	      cbuf_1grow (p, c);
 	      cbuf_1grow (p, c);
 	      p->curp++;
 	      p->curp++;
 	    }
 	    }
@@ -206,7 +164,69 @@ copy_string (struct lexer_data *p)
 	}
 	}
     }
     }
   while (continuation_line_p (p, quote));
   while (continuation_line_p (p, quote));
+}
+  
+static char *
+copy_string (struct lexer_data *p)
+{
+  copy_string0 (p, 1);
+  cbuf_1grow (p, 0);
+  return cbuf_finish (p);
+}
+
+static char *
+copy_to (struct lexer_data *p, const char *delim)
+{
+  while (*p->curp)
+    {
+      if (*p->curp == '"' || *p->curp == '\'')
+	{
+	  int quote = *p->curp;
+	  cbuf_1grow (p, quote);
+	  copy_string0 (p, 0);
+	  cbuf_1grow (p, quote);
+	  continue;
+	}
+      
+      if (strchr (delim, *p->curp))
+	break;
+      if (*p->curp == '\n')
+	mu_cfg_locus.line++;
+      cbuf_1grow (p, *p->curp);
+      p->curp++;
+    } 
+  cbuf_1grow (p, 0);
+  return cbuf_finish (p);
+}
 
 
+static int
+isword (int c)
+{
+  if (mu_cfg_tie_in)
+    return c && c != ';' && c != '{';
+  
+  return isalnum (c) || c == '_' || c == '-' || c == '.';
+}
+
+static char *
+copy_alpha (struct lexer_data *p)
+{
+  do
+    {
+      if (mu_cfg_tie_in && (*p->curp == '"' || *p->curp == '\''))
+	{
+	  int quote = *p->curp;
+	  cbuf_1grow (p, quote);
+	  copy_string0 (p, 0);
+	  cbuf_1grow (p, quote);
+	  continue;
+	}
+
+      if (*p->curp == '\n')
+	mu_cfg_locus.line++;
+      cbuf_1grow (p, *p->curp);
+      p->curp++;
+    } while (*p->curp && isword (*p->curp));
   cbuf_1grow (p, 0);
   cbuf_1grow (p, 0);
   return cbuf_finish (p);
   return cbuf_finish (p);
 }
 }
@@ -337,7 +357,7 @@ again:
   tag = copy_alpha (p);
   tag = copy_alpha (p);
   skipws (p);
   skipws (p);
   
   
-  if (*p->curp == '"')
+  if (*tag == '"')
     {
     {
       mu_cfg_yylval.string = tag;
       mu_cfg_yylval.string = tag;
       LEX_DEBUG ("STRING", mu_cfg_yylval.string, NULL); 
       LEX_DEBUG ("STRING", mu_cfg_yylval.string, NULL);