diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-10-01 13:09:24 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-10-01 13:09:24 +0000 |
commit | 66d125c5f475decd9b13315e0da56c61552039e8 (patch) | |
tree | e0de5f43fd4a3f0dbf4102d1855abd91735a9fd4 /mh | |
parent | 0325fad4dfe3d5fa1ce4842cca37eabc0c901698 (diff) | |
download | mailutils-66d125c5f475decd9b13315e0da56c61552039e8.tar.gz mailutils-66d125c5f475decd9b13315e0da56c61552039e8.tar.bz2 |
New file. A framework for the `repl' program.
Diffstat (limited to 'mh')
-rw-r--r-- | mh/repl.c | 203 |
1 files changed, 203 insertions, 0 deletions
diff --git a/mh/repl.c b/mh/repl.c new file mode 100644 index 000000000..4474b02bf --- /dev/null +++ b/mh/repl.c @@ -0,0 +1,203 @@ +/* GNU mailutils - a suite of utilities for electronic mail + Copyright (C) 2002 Free Software Foundation, Inc. + + This program 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ + +/* MH reply command */ + +#include <mh.h> + +const char *argp_program_version = "reply (" PACKAGE_STRING ")"; +static char doc[] = "GNU MH reply"; +static char args_doc[] = "[+folder] [msg]"; + +#define ARG_NOEDIT 1 +#define ARG_FCC 2 +#define ARG_FILTER 3 +#define ARG_INPLACE 4 +#define ARG_QUERY 5 +#define ARG_WHATNOWPROC 6 +#define ARG_NOWHATNOWPROC 7 +#define ARG_NODRAFTFOLDER 8 + +/* GNU options */ +static struct argp_option options[] = { + {"annotate", 'a', "BOOL", OPTION_ARG_OPTIONAL, + "Add Replied: header to the message being replied to"}, + {"draftfolder", 'd', "FOLDER", 0, + "Invoke the draftfolder facility"}, + {"draftmessage" , 'm', "MSG", 0, + "Invoke the draftmessage facility"}, + {"cc", 'c', "{all|to|cc|me}", 0, + "Specify whom to place on the Cc: list of the reply"}, + {"nocc", 'n', "{all|to|cc|me}", 0, + "Specify whom to remove from the Cc: list of the reply"}, + {"folder", 'f', "FOLDER", 0, "Specify folder to operate upon"}, + {"editor", 'e', "PROG", 0, "Set the editor program to use"}, + {"noedit", ARG_NOEDIT, 0, 0, "Suppress the initial edit"}, + {"fcc", ARG_FCC, "FOLDER", 0, "Set the folder to receive Fcc's."}, + {"filter", ARG_FILTER, "PROG", 0, + "Set the filter program to preprocess the body of the message being replied"}, + {"form", 'F', "FILE", 0, "Read format from given file"}, + {"inplace", ARG_INPLACE, "BOOL", 0, "Annotate the message in place"}, + {"query", ARG_QUERY, "BOOL", 0, "Query for addresses to place in To: and Cc: lists"}, + {"width", 'w', "NUMBER", 0, "Set output width"}, + {"whatnowproc", ARG_WHATNOWPROC, "PROG", 0, + "Set the relacement for whatnow program"}, + { "\nUse -help switch to obtain the list of traditional MH options. ", 0, 0, OPTION_DOC, "" }, + { 0 } +}; + +/* Traditional MH options */ +struct mh_option mh_option[] = { + {"annotate", 1, 'a', MH_OPT_BOOL }, + {"cc", 1, 'c', MH_OPT_ARG, "all/to/cc/me"}, + {"nocc", 3, 'n', MH_OPT_ARG, "all/to/cc/me"}, + {"form", 4, 'F', MH_OPT_ARG, "formatfile"}, + {"width", 1, 'w', MH_OPT_ARG, "number"}, + {"draftfolder", 6, 'd', MH_OPT_ARG, "folder"}, + {"nodraftfolder", 3, ARG_NODRAFTFOLDER, }, + {"editor", 1, 'e', MH_OPT_ARG, "program"}, + {"noedit", 3, ARG_NOEDIT, }, + {"fcc", 1, ARG_FCC, MH_OPT_ARG, "folder"}, + {"filter", 2, ARG_FILTER, MH_OPT_ARG, "program"}, + {"inplace", 1, ARG_INPLACE, MH_OPT_BOOL }, + {"query", 1, ARG_QUERY, MH_OPT_BOOL }, + {"whatnowproc", 2, ARG_WHATNOWPROC, MH_OPT_ARG, "program"}, + {"nowhatnowproc", 3, ARG_NOWHATNOWPROC }, + { 0 } +}; + +static char *format_str = +"%(lit)%(formataddr %<{reply-to}%?{from}%?{sender}%?{return-path}%>)" +"%<(nonnull)%(void(width))%(putaddr To: )\\n%>" +"%(lit)%(formataddr{to})%(formataddr{cc})%(formataddr(me))" +"%<(nonnull)%(void(width))%(putaddr cc: )\\n%>" +"%<{fcc}Fcc: %{fcc}\\n%>" +"%<{subject}Subject: Re: %{subject}\\n%>" +"%<{date}In-reply-to: Your message of \"" +"%<(nodate{date})%{date}%|%(pretty{date})%>.\"%<{message-id}\n" +" %{message-id}%>\\n%>" +"--------\n"; + +static mh_format_t format; +static int width = 80; +static char *draft_file; +static mh_msgset_t msgset; +static mailbox_t mbox; + +static int +opt_handler (int key, char *arg, void *unused) +{ + switch (key) + { + case '+': + case 'f': + current_folder = arg; + break; + + case 'F': + mh_read_formfile (arg, &format_str); + break; + + case 'w': + width = strtoul (arg, NULL, 0); + if (!width) + { + mh_error ("Invalid width"); + exit (1); + } + break; + + case 'a': + case 'd': + case 'm': + case 'c': + case 'n': + case 'e': + case ARG_NOEDIT: + case ARG_FCC: + case ARG_FILTER: + case ARG_INPLACE: + case ARG_QUERY: + case ARG_WHATNOWPROC: + mh_error ("option is not yet implemented"); + exit (1); + + default: + return 1; + } + return 0; +} + +void +make_draft () +{ + int rc; + message_t msg; + FILE *fp; + char buffer[1024]; +#define bufsize sizeof(buffer) + + /* FIXME: first check if the draft exists */ + fp = fopen (draft_file, "w+"); + if (!fp) + { + mh_error ("cannot open draft file %s: %s", + draft_file, strerror (errno)); + exit (1); + } + + rc = mailbox_get_message (mbox, msgset.list[0], &msg); + if (rc) + { + mh_error ("cannot read message %lu: %s", + (unsigned long) msgset.list[0], + mu_errstring (rc)); + exit (1); + } + + mh_format (&format, msg, msgset.list[0], buffer, bufsize); + fprintf (fp, "%s", buffer); + fclose (fp); +} + +int +main (int argc, char **argv) +{ + int index; + + mh_argp_parse (argc, argv, options, mh_option, args_doc, doc, + opt_handler, NULL, &index); + if (mh_format_parse (format_str, &format)) + { + mh_error ("Bad format string"); + exit (1); + } + + mbox = mh_open_folder (current_folder, 0); + mh_msgset_parse (mbox, &msgset, argc - index, argv + index, "cur"); + if (msgset.count != 1) + { + mh_error ("only one message at a time!"); + return 1; + } + + draft_file = mh_expand_name ("draft", 0); + + make_draft (); + + return 0; +} |