Added to the repository

+## Process this file with GNU Automake to create Makefile.in
+
+##   Copyright (C) 2005 Free Software Foundation, Inc.
+##
+##   GNU Mailutils is free software; you can redistribute it and/or
+##   modify it under the terms of the GNU General Public License as
+##   published by the Free Software Foundation; either version 2, or (at
+##   your option) any later version.
+##
+##   This program is distributed in the hope that it will be useful, but
+##   WITHOUT ANY WARRANTY; without even the implied warranty of
+##   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+##   General Public License for more details.
+##
+##   You should have received a copy of the GNU General Public License
+##   along with this program; if not, write to the Free Software
+##   Foundation, Inc. 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+
+INCLUDES = -I$(top_srcdir)/include -I$(top_srcdir)/lib\
+ -I${top_builddir}/include/mailutils/gnu @INTLINCS@
+
+AM_CFLAGS = -DSYSCONFDIR=\"$(sysconfdir)\"
+
+bin_PROGRAMS = mimeview
+mimeview_SOURCES = \
+ mimeview.c \
+ mimetypes-gram.c \
+ mimetypes-lex.c \
+ mimetypes-decl.h \
+ mimeview.h 
+
+YLWRAP = $(SHELL) $(top_srcdir)/scripts/ylwrap
+AM_YFLAGS=-vt
+AM_LEXFLAGS=-d
+EXTRA_DIST = mimetypes.y mimetypes.l
+
+mimetypes-gram.c mimetypes-decl.h: $(srcdir)/mimetypes.y
+	$(YLWRAP) "$(YACC) $(AM_YFLAGS) -d" $< \
+	          y.tab.c mimetypes-gram.c y.tab.h mimetypes-decl.h \
+                  y.output mimetypes.output \
+                  -- -yy mimetypes_yy
+
+mimetypes-lex.c: $(srcdir)/mimetypes.l mimetypes-decl.h
+	$(YLWRAP) "$(LEX) $(AM_LEXFLAGS) $(LEXFLAGS)" \
+                  $(srcdir)/mimetypes.l lex.yy.c mimetypes-lex.c \
+                  -- -yy mimetypes_yy
+
+BUILT_SOURCES = mimetypes-gram.c mimetypes-lex.c mimetypes-decl.h
+
+mimeview_LDADD = \
+ ../mailbox/libmailbox.la\
+ ../lib/libmailutils.la \
+ @LTLIBINTL@
+ 

+%{
+/* GNU Mailutils -- a suite of utilities for electronic mail
+   Copyright (C) 2005 Free Software Foundation, Inc.
+
+   GNU Mailutils is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2, or (at your option)
+   any later version.
+
+   GNU Mailutils is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GNU Mailutils; if not, write to the Free Software
+   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA  */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#include <mimeview.h>
+#include <mimetypes-decl.h>  
+#include <mu_asprintf.h>
+#include <unistd.h>
+#include <sys/stat.h>
+  
+static int line_num;
+static const char *file_name;
+static int file_name_alloc; 
+ 
+static struct obstack stack;
+static int prev_state;
+ 
+static unsigned 
+digit_to_number (char c)
+{
+  return (unsigned) (c >= '0' && c <= '9' ? c-'0' :
+                     c >= 'A' && c <= 'Z' ? c-'A'+10 :
+                     c-'a'+10);
+}
+%}
+%x ARGS HEX
+X [0-9a-fA-F]
+IDENT [a-zA-Z_\.][a-zA-Z0-9_\.-]*
+WS [ \t]*
+%%
+     /* Comments */
+<INITIAL>#.*\n       { line_num++; }
+<INITIAL>#.*         /* end-of-file comment */;
+     /* Tokens */
+\\\n                 { line_num++; }
+\n                   { line_num++; return EOL; }
+{WS}                 ;
+{IDENT}              {
+  obstack_grow (&stack, yytext, yyleng);
+  yylval.string.len = obstack_object_size (&stack);
+  obstack_1grow (&stack, 0);
+  yylval.string.ptr = obstack_finish (&stack);
+  return IDENT;
+}
+<INITIAL>{IDENT}"("           {
+  obstack_grow (&stack, yytext, yyleng-1);
+  yylval.string.len = obstack_object_size (&stack);
+  obstack_1grow (&stack, 0);
+  yylval.string.ptr = obstack_finish (&stack);
+  BEGIN(ARGS);
+  return IDENT_L;
+}
+<INITIAL,ARGS>\"[^\\"\n]*\"        {
+  obstack_grow (&stack, yytext+1, yyleng-2);
+  yylval.string.len = obstack_object_size (&stack);
+  obstack_1grow (&stack, 0);
+  yylval.string.ptr = obstack_finish (&stack);
+  return STRING;
+}
+<INITIAL,ARGS>"<" {
+  prev_state = YYSTATE;
+  BEGIN(HEX);
+}
+<ARGS>[^ \t<\\\n),]+/[),] {
+  obstack_grow (&stack, yytext, yyleng);
+  yylval.string.len = obstack_object_size (&stack);
+  obstack_1grow (&stack, 0);
+  yylval.string.ptr = obstack_finish (&stack);
+  return STRING;
+}
+<ARGS>[^ \t<\\\n),]+< {
+  obstack_grow (&stack, yytext, yyleng);
+  prev_state = YYSTATE;
+  BEGIN(HEX);
+}
+<INITIAL>[^ \t<\\\n)+&]/[ \t\\\n)+&] {
+  obstack_grow (&stack, yytext, yyleng);
+  yylval.string.len = obstack_object_size (&stack);
+  obstack_1grow (&stack, 0);
+  yylval.string.ptr = obstack_finish (&stack);
+  return STRING;
+}
+<ARGS>[^ \t<\\\n),]/[ \t\\\n] {
+  obstack_grow (&stack, yytext, yyleng);
+  yylval.string.len = obstack_object_size (&stack);
+  obstack_1grow (&stack, 0);
+  yylval.string.ptr = obstack_finish (&stack);
+  return STRING;
+}
+<HEX>{X}{X} {
+  int c = digit_to_number (yytext[0]*16 + yytext[1]);
+  obstack_1grow (&stack, c);
+}
+<HEX>">"/[ \t\\\n,)] {
+  BEGIN(prev_state);
+  yylval.string.len = obstack_object_size (&stack);
+  obstack_1grow (&stack, 0);
+  yylval.string.ptr = obstack_finish (&stack);
+  return STRING;
+}
+<HEX>">" {
+  BEGIN(prev_state);
+}
+  /* Special cases: && and ||. Docs don't say anything about them, but
+     I've found them in my mime.types file...         --Sergey */
+"&&"  return '+';
+"||"  return ',';
+  /* Operators */
+"!"|"+"|"("|")"|"/"  return yytext[0];
+<ARGS>","        return yytext[0];
+<ARGS>")"        { BEGIN(INITIAL); return yytext[0]; }
+<INITIAL,ARGS,HEX>. {
+ fprintf (stderr, "Invalid character '%c', state %d\n", yytext[0], YYSTATE);
+ abort();
+}
+%%
+
+void
+mimetypes_lex_debug (int level)
+{
+  yy_flex_debug = level;
+}
+
+int
+mimetypes_open (const char *name)
+{
+  struct stat st;
+  if (stat (name, &st))
+    {
+      mu_error (_("Cannot stat `%s': %s"), name, mu_strerror (errno));
+      return -1;
+    }
+  
+  if (S_ISDIR (st.st_mode))
+    {
+      asprintf (&file_name, "%s/mime.types", name);
+      file_name_alloc = 1;
+    }
+  else
+    {
+      file_name = name;
+      file_name_alloc = 0;
+    }
+  
+  yyin = fopen (file_name, "r");
+  if (!yyin)
+    {
+      mu_error (_("Cannot open `%s': %s"), file_name, mu_strerror (errno));
+      if (file_name_alloc)
+	{
+	  free (file_name);
+	  file_name_alloc = 0;
+	}
+      return -1;
+    }
+  line_num = 1;
+  obstack_init (&stack);
+  return 0;
+}
+
+void
+mimetypes_close ()
+{
+  fclose (yyin);
+  if (file_name_alloc)
+    {
+      free (file_name);
+      file_name_alloc = 0;
+    }
+}
+
+int
+yyerror (char *s)
+{
+  mu_error ("%s:%lu: %s", file_name, line_num, s);
+  return 0;
+}
+
+int
+yywrap ()
+{
+  return 1;
+}
+
+struct mimetypes_string
+mimetypes_append_string2 (struct mimetypes_string *s1,
+			  char c,
+			  struct mimetypes_string *s2)
+{
+  struct mimetypes_string r;
+
+  r.len = s1->len + s2->len + 1;
+  obstack_grow (&stack, s1->ptr, s1->len);
+  obstack_1grow (&stack, c);
+  obstack_grow (&stack, s2->ptr, s2->len);
+  obstack_1grow (&stack, 0);
+  r.ptr = obstack_finish (&stack);
+  return r;
+}
+
+struct mimetypes_string *     
+mimetypes_string_dup (struct mimetypes_string *s)
+{
+  obstack_grow (&stack, s, sizeof *s);
+  return obstack_finish (&stack);
+}
+
+void *
+mimetypes_malloc (size_t size)
+{
+  return obstack_alloc(&stack, size);
+}
+
+void
+reset_lex ()
+{
+  BEGIN(INITIAL);
+}
+
+

+/* GNU Mailutils -- a suite of utilities for electronic mail
+   Copyright (C) 2005 Free Software Foundation, Inc.
+
+   GNU Mailutils is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2, or (at your option)
+   any later version.
+
+   GNU Mailutils is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GNU Mailutils; if not, write to the Free Software
+   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA  */
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#ifdef HAVE_STRINGS_H
+# include <strings.h>
+#endif
+#include <mailutils/mailutils.h>
+#include <xalloc.h>
+#include <fnmatch.h>
+#define obstack_chunk_alloc malloc
+#define obstack_chunk_free free
+#include <obstack.h>  
+
+struct mimetypes_string
+{
+  char *ptr;
+  size_t len;
+};
+
+int mimetypes_yylex (void);
+int mimetypes_yyerror (char *s);
+
+int mimetypes_open (const char *name);
+void mimetypes_close (void);
+int mimetypes_parse (const char *name);
+void mimetypes_gram_debug (int level);
+void mimetypes_lex_debug (int level);
+void mimetypes_lex_init (void);
+void reset_lex (void);
+void *mimetypes_malloc (size_t size);
+
+struct mimetypes_string mimetypes_append_string2 (struct mimetypes_string *s1,
+						  char c,
+						  struct mimetypes_string *s2);
+struct mimetypes_string *mimetypes_string_dup (struct mimetypes_string *s);
+
+const char *get_file_type (void);
+
+extern char *mimeview_file;
+extern FILE *mimeview_fp;    
+extern int debug_level;
+
+#define DEBUG(l,f) if (debug_level > (l)) printf f