1 files changed, 100 insertions, 0 deletions
diff --git a/mh/compcommon.c b/mh/compcommon.c
new file mode 100644
index 000000000..8a0d530c6
--- /dev/null
+++ b/mh/compcommon.c
@@ -0,0 +1,100 @@
+/* GNU Mailutils -- a suite of utilities for electronic mail
+   Copyright (C) 2003 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  */
+
+/* Functions shared between comp and forw utilities */
+
+#include <mh.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+
+static char *default_format_str =
+"To:\n"
+"cc:\n"
+"Subject:\n"
+"--------\n";
+
+void
+mh_comp_draft (char *formfile, char *defformfile, char *draftfile)
+{
+  char *s = NULL;
+  if (formfile)
+    {
+      s = mh_expand_name (MHLIBDIR, formfile, 0);
+      if (mh_file_copy (s, draftfile) == 0)
+	exit (1);
+    }
+  else
+    {
+      s = mh_expand_name (MHLIBDIR, defformfile, 0);
+      if (access (s, R_OK) == 0)
+	{
+	  if (mh_file_copy (s, draftfile) == 0)
+	    exit (1);
+	}
+      else
+	{
+	  int rc;
+	  stream_t stream;
+	  
+	  if ((rc = file_stream_create (&stream,
+					draftfile,
+					MU_STREAM_WRITE|MU_STREAM_CREAT)) != 0
+	      || (rc = stream_open (stream)))
+	    {
+	      mh_error (_("cannot open output file \"%s\": %s"),
+			draftfile, mu_strerror (rc));
+	      exit (1);
+	    }
+	  
+	  rc = stream_sequential_write (stream, 
+					default_format_str,
+					strlen (default_format_str));
+	  stream_close (stream);
+	  stream_destroy (&stream, stream_get_owner (stream));
+
+	  if (rc)
+	    {
+	      mh_error (_("error writing to \"%s\": %s"),
+			draftfile, mu_strerror (rc));
+	      exit (1);
+	    }
+	}
+    }
+  free (s);
+}
+
+int 
+check_draft_disposition (struct mh_whatnow_env *wh, int use_draft)
+{
+  struct stat st;
+  int disp = DISP_REPLACE;
+
+  /* First check if the draft exists */
+  if (stat (wh->draftfile, &st) == 0)
+    {
+      if (use_draft)
+	disp = DISP_USE;
+      else
+	{
+	  printf (_("Draft \"%s\" exists (%lu bytes).\n"),
+		  wh->draftfile, (unsigned long) st.st_size);
+	  disp = mh_disposition (wh->draftfile);
+	}
+    }
+
+  return disp;
+}