1 /* Copyright (C) 1985, 1994 Free Software Foundation
3 This file is part of GNU Emacs.
5 GNU Emacs is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2, or (at your option)
10 GNU Emacs is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with GNU Emacs; see the file COPYING. If not, write to
17 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18 Boston, MA 02111-1307, USA. */
21 * Program to convert oldstyle goslings emacs mail directories into
22 * gnu-rmail format. Program expects a directory called Messages to
23 * exist in your home directory, containing individual mail messages in
24 * separate files in the standard gosling emacs mail reader format.
26 * Program takes one argument: an output file. This file will contain
27 * all the messages in Messages directory, in berkeley mail format.
28 * If no output file is mentioned, messages are put in ~/OMAIL.
30 * In order to get rmail to read the messages, the resulting file must
31 * be mv'ed to ~/mbox, and then have rmail invoked on them.
33 * Author: Larry Kolodney, 1985
46 char *xmalloc
__P ((unsigned));
47 char *xrealloc
__P ((char *, unsigned));
48 void skip_to_lf
__P ((FILE *));
49 void sysfail
__P ((char *));
69 hd
= (char *) getenv ("HOME");
71 md
= (char *) xmalloc (strlen (hd
) + 10);
73 strcat (md
, "/Messages");
75 mdd
= (char *) xmalloc (strlen (md
) + 11);
77 strcat (mdd
, "/Directory");
80 cf
= (char *) xmalloc (cflen
);
82 mddf
= fopen (mdd
, "r");
89 mfile
= (char *) xmalloc (strlen (hd
) + 7);
91 strcat (mfile
, "/OMAIL");
93 mfilef
= fopen (mfile
, "w");
98 while (fscanf (mddf
, "%4c%14[0123456789]", pre
, name
) != EOF
)
100 if (cflen
< strlen (md
) + strlen (name
) + 2)
102 cflen
= strlen (md
) + strlen (name
) + 2;
103 cf
= (char *) xrealloc (cf
, cflen
);
108 cff
= fopen (cf
, "r");
113 while ((c
= getc(cff
)) != EOF
)
130 while ((c
= getc(stream
)) != EOF
&& c
!= '\n')
139 fprintf (stderr
, "cvtmail: ");
140 fprintf (stderr
, s1
, s2
);
141 fprintf (stderr
, "\n");
144 /* Print error message and exit. */
158 fprintf (stderr
, "cvtmail: ");
167 char *result
= (char *) malloc (size
);
169 fatal ("virtual memory exhausted", 0);
178 char *result
= (char *) realloc (ptr
, size
);
180 fatal ("virtual memory exhausted", 0);
184 /* arch-tag: b93c25a9-9012-44f1-b78b-9cc7aed44a7a
185 (do not change this comment) */
187 /* cvtmail.c ends here */