(pop_source): Always free ali_filename.

Grammar: Bugfixes.
(mh_alias_read): Provide a debugging hook
(ali_verbatim): New function.

@@ -310,13 +310,14 @@ pop_source ()
 #ifndef FLEX_SCANNER
 #ifndef FLEX_SCANNER
   lex_delete_buffer (current_buffer);
   lex_delete_buffer (current_buffer);
 #endif
 #endif
+  if (ali_filename)
+    free (ali_filename);
+  ali_filename = NULL;
   if (!context_stack)
   if (!context_stack)
     {
     {
       yyin = NULL;
       yyin = NULL;
       return 1;
       return 1;
     }
     }
-  if (ali_filename)
-    free (ali_filename);
   /* Restore previous context */
   /* Restore previous context */
   ali_filename = context_stack->filename;
   ali_filename = context_stack->filename;
   ali_line_num = context_stack->line + 1; /* < line did not increment it */
   ali_line_num = context_stack->line + 1; /* < line did not increment it */
@@ -333,6 +334,8 @@ extern int yyparse __P((void));
 %}
 %}
 WS [ \t]+
 WS [ \t]+
 WORD [^ \t\n,:;<+=\*]+
 WORD [^ \t\n,:;<+=\*]+
+SPEC [,:;+=\*]
+%s VERBATIM
 %%
 %%
 \\\n           { ali_line_num++; }
 \\\n           { ali_line_num++; }
 \n             { ali_line_num++; return '\n';}
 \n             { ali_line_num++; return '\n';}
@@ -345,19 +348,20 @@ WORD [^ \t\n,:;<+=\*]+
 		   return STRING;}
 		   return STRING;}
 {WS}           ;
 {WS}           ;
 {WORD}         { yylval.string = strdup (yytext); return STRING;}
 {WORD}         { yylval.string = strdup (yytext); return STRING;}
-^{WS}?"<"{WS}?{WORD} { char *p;
+^{WS}?"<"{WS}?{WORD} {
+                 char *p;
                  for (p = yytext; p < yytext + yyleng && isblank(*p); p++)
                  for (p = yytext; p < yytext + yyleng && isblank(*p); p++)
 		   ;
 		   ;
                  for (p++; p < yytext + yyleng; p++)
                  for (p++; p < yytext + yyleng; p++)
 		   if (!isspace (*p))
 		   if (!isspace (*p))
 		     break;
 		     break;
                  push_source (p, 1); }
                  push_source (p, 1); }
-"<"{WORD}      { yylval.string = xmalloc (yyleng + 2);
-                 yylval.string[0] = '<';
+{SPEC}         return yytext[0];
+<VERBATIM>[^ \t\n,:;+=\*][^\n,]* {
+                    yylval.string = xmalloc (yyleng + 1);
  		    memcpy(yylval.string, yytext, yyleng);
  		    memcpy(yylval.string, yytext, yyleng);
-		 yylval.string[yyleng+1] = 0;
+		    yylval.string[yyleng] = 0;
 		    return STRING;}
 		    return STRING;}
-=|\*|\+|,|:|\; return yytext[0];
 .              { char *p;
 .              { char *p;
                  asprintf (&p,
                  asprintf (&p,
 			   _("Stray character %03o in alias file"), yytext[0]);
 			   _("Stray character %03o in alias file"), yytext[0]);
@@ -371,15 +375,29 @@ yywrap ()
   return pop_source();
   return pop_source();
 }
 }
 
 
-
 /* Parses the named alias file */
 /* Parses the named alias file */
 int
 int
 mh_alias_read (char *name, int fail)
 mh_alias_read (char *name, int fail)
 {
 {
   extern int yydebug;
   extern int yydebug;
+  char *p = getenv("ALI_YYDEBUG");
+
+  if (p && *p > '0' && *p < '9')
+    yydebug = 1;
+  
   if (push_source (name, fail))
   if (push_source (name, fail))
     return 1;
     return 1;
+  if (yydebug)
+    fprintf (stderr, "Starting parse of %s\n", name);
   return yyparse ();
   return yyparse ();
 }
 }
 
 
+void
+ali_verbatim (int enable)
+{
+  if (enable)
+    BEGIN(VERBATIM);
+  else
+    BEGIN(INITIAL);
+}