/*
* Copyright (C) 1996-2002,2012-2013 Michael R. Elkins <me@mutt.org>
* Copyright (C) 1999-2002,2004 Thomas Roessler <roessler@does-not-exist.org>
*
* 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 of the License, 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*/
#if HAVE_CONFIG_H
# include "config.h"
#endif
#include "mutt.h"
#include "mutt_menu.h"
#include "mime.h"
#include "mailbox.h"
#include "mapping.h"
#include "sort.h"
#ifdef USE_IMAP
#include "imap.h"
#endif
#include "mutt_crypt.h"
#include "rfc3676.h"
#include <ctype.h>
#include <unistd.h>
#include <string.h>
#include <sys/stat.h>
static const struct mapping_t PostponeHelp[] = {
{ N_("Exit"), OP_EXIT },
{ N_("Del"), OP_DELETE },
{ N_("Undel"), OP_UNDELETE },
{ N_("Help"), OP_HELP },
{ NULL, 0 }
};
static short PostCount = 0;
static CONTEXT *PostContext = NULL;
static short UpdateNumPostponed = 0;
/* Return the number of postponed messages.
* if force is 0, use a cached value if it is costly to get a fresh
* count (IMAP) - else check.
*/
int mutt_num_postponed (int force)
{
struct stat st;
CONTEXT ctx;
static time_t LastModify = 0;
static char *OldPostponed = NULL;
if (UpdateNumPostponed)
{
UpdateNumPostponed = 0;
force = 1;
}
if (mutt_strcmp (Postponed, OldPostponed))
{
FREE (&OldPostponed);
OldPostponed = safe_strdup (Postponed);
LastModify = 0;
force = 1;
}
if (!Postponed)
return 0;
#ifdef USE_IMAP
/* LastModify is useless for IMAP */
if (mx_is_imap (Postponed))
{
if (force)
{
short newpc;
newpc = imap_status (Postponed, 0);
if (newpc >= 0)
{
PostCount = newpc;
dprint (3, (debugfile, "mutt_num_postponed: %d postponed IMAP messages found.\n", PostCount));
}
else
dprint (3, (debugfile, "mutt_num_postponed: using old IMAP postponed count.\n"));
}
return PostCount;
}
#endif
if (stat (Postponed, &st) == -1)
{
PostCount = 0;
LastModify = 0;
return (0);
}
if (S_ISDIR (st.st_mode))
{
/* if we have a maildir mailbox, we need to stat the "new" dir */
BUFFER *buf;
buf = mutt_buffer_pool_get ();
mutt_buffer_printf (buf, "%s/new", Postponed);
if (access (mutt_b2s (buf), F_OK) == 0 &&
stat (mutt_b2s (buf), &st) == -1)
{
PostCount = 0;
LastModify = 0;
mutt_buffer_pool_release (&buf);
return 0;
}
mutt_buffer_pool_release (&buf);
}
if (LastModify < st.st_mtime)
{
LastModify = st.st_mtime;
if (access (Postponed, R_OK | F_OK) != 0)
return (PostCount = 0);
if (mx_open_mailbox (Postponed, MUTT_NOSORT | MUTT_QUIET | MUTT_READONLY,
&ctx) == NULL)
PostCount = 0;
else
PostCount = ctx.msgcount;
mx_fastclose_mailbox (&ctx);
}
return (PostCount);
}
void mutt_update_num_postponed (void)
{
UpdateNumPostponed = 1;
}
static void post_entry (char *s, size_t slen, MUTTMENU *menu, int entry)
{
CONTEXT *ctx = (CONTEXT *) menu->data;
_mutt_make_string (s, slen, NONULL (HdrFmt), ctx, ctx->hdrs[entry],
MUTT_FORMAT_ARROWCURSOR);
}
static HEADER *select_msg (void)
{
MUTTMENU *menu;
int i, done=0, r=-1;
char helpstr[LONG_STRING];
short orig_sort;
menu = mutt_new_menu (MENU_POST);
menu->make_entry = post_entry;
menu->max = PostContext->msgcount;
menu->title = _("Postponed Messages");
menu->data = PostContext;
menu->help = mutt_compile_help (helpstr, sizeof (helpstr), MENU_POST, PostponeHelp);
mutt_push_current_menu (menu);
/* The postponed mailbox is setup to have sorting disabled, but the global
* Sort variable may indicate something different. Sorting has to be
* disabled while the postpone menu is being displayed. */
orig_sort = Sort;
Sort = SORT_ORDER;
while (!done)
{
switch (i = mutt_menuLoop (menu))
{
case OP_DELETE:
case OP_UNDELETE:
/* should deleted draft messages be saved in the trash folder? */
mutt_set_flag (PostContext, PostContext->hdrs[menu->current], MUTT_DELETE, (i == OP_DELETE) ? 1 : 0);
PostCount = PostContext->msgcount - PostContext->deleted;
if (option (OPTRESOLVE) && menu->current < menu->max - 1)
{
menu->oldcurrent = menu->current;
menu->current++;
if (menu->current >= menu->top + menu->pagelen)
{
menu->top = menu->current;
menu->redraw |= REDRAW_INDEX | REDRAW_STATUS;
}
else
menu->redraw |= REDRAW_MOTION_RESYNCH;
}
else
menu->redraw |= REDRAW_CURRENT;
break;
case OP_GENERIC_SELECT_ENTRY:
r = menu->current;
done = 1;
break;
case OP_EXIT:
done = 1;
break;
}
}
Sort = orig_sort;
mutt_pop_current_menu (menu);
mutt_menuDestroy (&menu);
return (r > -1 ? PostContext->hdrs[r] : NULL);
}
/* args:
* ctx Context info, used when recalling a message to which
* we reply.
* sctx Send Context info.
*
* return vals:
* -1 error/no messages
* 0 normal exit
*/
int mutt_get_postponed (CONTEXT *ctx, SEND_CONTEXT *sctx)
{
HEADER *h;
LIST *tmp;
LIST *last = NULL;
LIST *next;
const char *p;
int opt_delete;
int close_rc;
if (!Postponed)
return (-1);
if ((PostContext = mx_open_mailbox (Postponed, MUTT_NOSORT, NULL)) == NULL)
{
PostCount = 0;
mutt_error _("No postponed messages.");
return (-1);
}
if (! PostContext->msgcount)
{
PostCount = 0;
mx_fastclose_mailbox (PostContext);
FREE (&PostContext);
mutt_error _("No postponed messages.");
return (-1);
}
if (PostContext->msgcount == 1)
{
/* only one message, so just use that one. */
h = PostContext->hdrs[0];
}
else if ((h = select_msg ()) == NULL)
{
/* messages might have been marked for deletion.
* try once more on reopen before giving up. */
close_rc = mx_close_mailbox (PostContext, NULL);
if (close_rc > 0)
close_rc = mx_close_mailbox (PostContext, NULL);
if (close_rc != 0)
mx_fastclose_mailbox (PostContext);
FREE (&PostContext);
return (-1);
}
if (mutt_prepare_template (NULL, PostContext, sctx->msg, h, 0) < 0)
{
mx_fastclose_mailbox (PostContext);
FREE (&PostContext);
return (-1);
}
/* finished with this message, so delete it. */
mutt_set_flag (PostContext, h, MUTT_DELETE, 1);
mutt_set_flag (PostContext, h, MUTT_PURGE, 1);
/* update the count for the status display */
PostCount = PostContext->msgcount - PostContext->deleted;
/* avoid the "purge deleted messages" prompt */
opt_delete = quadoption (OPT_DELETE);
set_quadoption (OPT_DELETE, MUTT_YES);
close_rc = mx_close_mailbox (PostContext, NULL);
if (close_rc > 0)
close_rc = mx_close_mailbox (PostContext, NULL);
if (close_rc != 0)
mx_fastclose_mailbox (PostContext);
set_quadoption (OPT_DELETE, opt_delete);
FREE (&PostContext);
for (tmp = sctx->msg->env->userhdrs; tmp; )
{
if (ascii_strncasecmp ("X-Mutt-References:", tmp->data, 18) == 0)
{
if (ctx)
{
/* if a mailbox is currently open, look to see if the original message
the user attempted to reply to is in this mailbox */
p = skip_email_wsp(tmp->data + 18);
if (!ctx->id_hash)
ctx->id_hash = mutt_make_id_hash (ctx);
sctx->cur = hash_find (ctx->id_hash, p);
if (sctx->cur)
{
sctx->has_cur = 1;
sctx->cur_message_id = safe_strdup (sctx->cur->env->message_id);
sctx->cur_security = sctx->cur->security;
sctx->flags |= SENDREPLY;
}
}
/* Remove the X-Mutt-References: header field. */
next = tmp->next;
if (last)
last->next = tmp->next;
else
sctx->msg->env->userhdrs = tmp->next;
tmp->next = NULL;
mutt_free_list (&tmp);
tmp = next;
}
else if (ascii_strncasecmp ("X-Mutt-Fcc:", tmp->data, 11) == 0)
{
p = skip_email_wsp(tmp->data + 11);
mutt_buffer_strcpy (sctx->fcc, p);
mutt_buffer_pretty_multi_mailbox (sctx->fcc, FccDelimiter);
/* remove the X-Mutt-Fcc: header field */
next = tmp->next;
if (last)
last->next = tmp->next;
else
sctx->msg->env->userhdrs = tmp->next;
tmp->next = NULL;
mutt_free_list (&tmp);
tmp = next;
/* note that x-mutt-fcc was present. we do this because we want to add a
* default fcc if the header was missing, but preserve the request of the
* user to not make a copy if the header field is present, but empty.
* see http://dev.mutt.org/trac/ticket/3653
*/
sctx->flags |= SENDPOSTPONEDFCC;
}
else if ((WithCrypto & APPLICATION_PGP)
&& (mutt_strncmp ("Pgp:", tmp->data, 4) == 0 /* this is generated
* by old mutt versions
*/
|| mutt_strncmp ("X-Mutt-PGP:", tmp->data, 11) == 0))
{
sctx->msg->security = mutt_parse_crypt_hdr (strchr (tmp->data, ':') + 1, 1,
APPLICATION_PGP, sctx);
sctx->msg->security |= APPLICATION_PGP;
/* remove the pgp field */
next = tmp->next;
if (last)
last->next = tmp->next;
else
sctx->msg->env->userhdrs = tmp->next;
tmp->next = NULL;
mutt_free_list (&tmp);
tmp = next;
}
else if ((WithCrypto & APPLICATION_SMIME)
&& mutt_strncmp ("X-Mutt-SMIME:", tmp->data, 13) == 0)
{
sctx->msg->security = mutt_parse_crypt_hdr (strchr (tmp->data, ':') + 1, 1,
APPLICATION_SMIME, sctx);
sctx->msg->security |= APPLICATION_SMIME;
/* remove the smime field */
next = tmp->next;
if (last)
last->next = tmp->next;
else
sctx->msg->env->userhdrs = tmp->next;
tmp->next = NULL;
mutt_free_list (&tmp);
tmp = next;
}
#ifdef MIXMASTER
else if (mutt_strncmp ("X-Mutt-Mix:", tmp->data, 11) == 0)
{
char *t;
mutt_free_list (&sctx->msg->chain);
t = strtok (tmp->data + 11, " \t\n");
while (t)
{
sctx->msg->chain = mutt_add_list (sctx->msg->chain, t);
t = strtok (NULL, " \t\n");
}
next = tmp->next;
if (last)
last->next = tmp->next;
else
sctx->msg->env->userhdrs = tmp->next;
tmp->next = NULL;
mutt_free_list (&tmp);
tmp = next;
}
#endif
else
{
last = tmp;
tmp = tmp->next;
}
}
if (option (OPTCRYPTOPPORTUNISTICENCRYPT))
crypt_opportunistic_encrypt (sctx->msg);
return (0);
}
int mutt_parse_crypt_hdr (const char *p, int set_empty_signas, int crypt_app,
SEND_CONTEXT *sctx)
{
char smime_cryptalg[LONG_STRING] = "\0";
char sign_as[LONG_STRING] = "\0", *q;
int flags = 0;
if (!WithCrypto)
return 0;
p = skip_email_wsp(p);
for (; *p; p++)
{
switch (*p)
{
case 'e':
case 'E':
flags |= ENCRYPT;
break;
case 'o':
case 'O':
flags |= OPPENCRYPT;
break;
case 'a':
case 'A':
#ifdef USE_AUTOCRYPT
flags |= AUTOCRYPT;
#endif
break;
case 'z':
case 'Z':
#ifdef USE_AUTOCRYPT
flags |= AUTOCRYPT_OVERRIDE;
#endif
break;
case 's':
case 'S':
flags |= SIGN;
q = sign_as;
if (*(p+1) == '<')
{
for (p += 2;
*p && *p != '>' && q < sign_as + sizeof (sign_as) - 1;
*q++ = *p++)
;
if (*p!='>')
{
mutt_error _("Illegal crypto header");
return 0;
}
}
*q = '\0';
break;
/* This used to be the micalg parameter.
*
* It's no longer needed, so we just skip the parameter in order
* to be able to recall old messages.
*/
case 'm':
case 'M':
if (*(p+1) == '<')
{
for (p += 2; *p && *p != '>'; p++)
;
if (*p != '>')
{
mutt_error _("Illegal crypto header");
return 0;
}
}
break;
case 'c':
case 'C':
q = smime_cryptalg;
if (*(p+1) == '<')
{
for (p += 2; *p && *p != '>' && q < smime_cryptalg + sizeof(smime_cryptalg) - 1;
*q++ = *p++)
;
if (*p != '>')
{
mutt_error _("Illegal S/MIME header");
return 0;
}
}
*q = '\0';
break;
case 'i':
case 'I':
flags |= INLINE;
break;
default:
mutt_error _("Illegal crypto header");
return 0;
}
}
/* the cryptalg field must not be empty */
if ((WithCrypto & APPLICATION_SMIME) && *smime_cryptalg)
mutt_str_replace (&sctx->smime_crypt_alg, smime_cryptalg);
/* Set {Smime,Pgp}SignAs, if desired. */
if ((WithCrypto & APPLICATION_PGP) && (crypt_app == APPLICATION_PGP)
&& (flags & SIGN)
&& (set_empty_signas || *sign_as))
mutt_str_replace (&sctx->pgp_sign_as, sign_as);
if ((WithCrypto & APPLICATION_SMIME) && (crypt_app == APPLICATION_SMIME)
&& (flags & SIGN)
&& (set_empty_signas || *sign_as))
mutt_str_replace (&sctx->smime_sign_as, sign_as);
return flags;
}
/* args:
* fp If not NULL, file containing the template
* ctx If fp is NULL, the context containing the header with the template
* newhdr The template is read into this HEADER
* hdr The message to recall/resend
* resend Set if resending (as opposed to recalling a postponed msg).
* Resent messages enable header weeding, and also
* discard any existing Message-ID and Mail-Followup-To.
*/
int mutt_prepare_template (FILE *fp, CONTEXT *ctx, HEADER *newhdr, HEADER *hdr,
short resend)
{
MESSAGE *msg = NULL;
BUFFER *file = NULL;
BODY *b;
FILE *bfp;
int rv = -1;
STATE s;
int sec_type;
ENVELOPE *protected_headers = NULL;
memset (&s, 0, sizeof (s));
if (!fp && (msg = mx_open_message (ctx, hdr->msgno, 0)) == NULL)
return (-1);
if (!fp) fp = msg->fp;
bfp = fp;
/* parse the message header and MIME structure */
fseeko (fp, hdr->offset, SEEK_SET);
newhdr->offset = hdr->offset;
/* enable header weeding for resent messages */
newhdr->env = mutt_read_rfc822_header (fp, newhdr, 1, resend);
newhdr->content->length = hdr->content->length;
mutt_parse_part (fp, newhdr->content);
/* If resending a message, don't keep message_id or mail_followup_to.
* Otherwise, we are resuming a postponed message, and want to keep those
* headers if they exist.
*/
if (resend)
{
FREE (&newhdr->env->message_id);
rfc822_free_address (&newhdr->env->mail_followup_to);
}
/* decrypt pgp/mime encoded messages */
if ((WithCrypto & APPLICATION_PGP) &&
(sec_type = mutt_is_multipart_encrypted (newhdr->content)))
{
newhdr->security |= sec_type;
if (!crypt_valid_passphrase (sec_type))
goto bail;
mutt_message _("Decrypting message...");
if ((crypt_pgp_decrypt_mime (fp, &bfp, newhdr->content, &b) == -1)
|| b == NULL)
{
mutt_error _("Decryption failed.");
goto bail;
}
mutt_free_body (&newhdr->content);
newhdr->content = b;
if (b->mime_headers)
{
protected_headers = b->mime_headers;
b->mime_headers = NULL;
}
mutt_clear_error ();
}
/*
* remove a potential multipart/signed layer - useful when
* resending messages
*/
if (WithCrypto && mutt_is_multipart_signed (newhdr->content))
{
newhdr->security |= SIGN;
if ((WithCrypto & APPLICATION_PGP)
&& ascii_strcasecmp (mutt_get_parameter ("protocol", newhdr->content->parameter), "application/pgp-signature") == 0)
newhdr->security |= APPLICATION_PGP;
else if ((WithCrypto & APPLICATION_SMIME))
newhdr->security |= APPLICATION_SMIME;
/* destroy the signature */
mutt_free_body (&newhdr->content->parts->next);
newhdr->content = mutt_remove_multipart (newhdr->content);
if (newhdr->content->mime_headers)
{
mutt_free_envelope (&protected_headers);
protected_headers = newhdr->content->mime_headers;
newhdr->content->mime_headers = NULL;
}
}
/*
* We don't need no primary multipart.
* Note: We _do_ preserve messages!
*/
if (newhdr->content->type == TYPEMULTIPART)
newhdr->content = mutt_remove_multipart_mixed (newhdr->content);
/* Note: this just uses the *first* alternative and strips the rest.
* It might be better to scan for text/plain. On the other hand,
* mutt's alternative generation filter in theory allows composing
* text/html and generating the text/plain from that. This way will
* preserve the alternative originally composed by the user.
*/
newhdr->content = mutt_remove_multipart_alternative (newhdr->content);
s.fpin = bfp;
file = mutt_buffer_pool_get ();
/* create temporary files for all attachments */
for (b = newhdr->content; b; b = b->next)
{
/* what follows is roughly a receive-mode variant of
* mutt_get_tmp_attachment () from muttlib.c
*/
mutt_buffer_clear (file);
if (b->filename)
{
mutt_buffer_strcpy (file, b->filename);
b->d_filename = safe_strdup (b->filename);
}
else
{
/* avoid Content-Disposition: header with temporary filename */
b->use_disp = 0;
}
/* set up state flags */
s.flags = 0;
if (b->type == TYPETEXT)
{
if (!ascii_strcasecmp ("yes", mutt_get_parameter ("x-mutt-noconv", b->parameter)))
b->noconv = 1;
else
{
s.flags |= MUTT_CHARCONV;
b->noconv = 0;
}
mutt_delete_parameter ("x-mutt-noconv", &b->parameter);
}
mutt_adv_mktemp (file);
if ((s.fpout = safe_fopen (mutt_b2s (file), "w")) == NULL)
goto bail;
if ((WithCrypto & APPLICATION_PGP) &&
((sec_type = mutt_is_application_pgp (b)) & (ENCRYPT|SIGN)))
{
if (sec_type & ENCRYPT)
{
if (!crypt_valid_passphrase (APPLICATION_PGP))
goto bail;
mutt_message _("Decrypting message...");
}
if (mutt_body_handler (b, &s) < 0)
{
mutt_error _("Decryption failed.");
goto bail;
}
newhdr->security |= sec_type;
b->type = TYPETEXT;
mutt_str_replace (&b->subtype, "plain");
mutt_delete_parameter ("x-action", &b->parameter);
}
else if ((WithCrypto & APPLICATION_SMIME) &&
((sec_type = mutt_is_application_smime (b)) & (ENCRYPT|SIGN)))
{
if (sec_type & ENCRYPT)
{
if (!crypt_valid_passphrase (APPLICATION_SMIME))
goto bail;
crypt_smime_getkeys (newhdr->env);
mutt_message _("Decrypting message...");
}
if (mutt_body_handler (b, &s) < 0)
{
mutt_error _("Decryption failed.");
goto bail;
}
if (b == newhdr->content && !protected_headers)
{
protected_headers = b->mime_headers;
b->mime_headers = NULL;
}
newhdr->security |= sec_type;
b->type = TYPETEXT;
mutt_str_replace (&b->subtype, "plain");
}
else
mutt_decode_attachment (b, &s);
if (safe_fclose (&s.fpout) != 0)
goto bail;
mutt_str_replace (&b->filename, mutt_b2s (file));
b->unlink = 1;
mutt_stamp_attachment (b);
mutt_free_body (&b->parts);
if (b->hdr) b->hdr->content = NULL; /* avoid dangling pointer */
}
if (option (OPTCRYPTPROTHDRSREAD) &&
protected_headers &&
protected_headers->subject &&
mutt_strcmp (newhdr->env->subject, protected_headers->subject))
{
mutt_str_replace (&newhdr->env->subject, protected_headers->subject);
}
mutt_free_envelope (&protected_headers);
/* Fix encryption flags. */
/* No inline if multipart. */
if (WithCrypto && (newhdr->security & INLINE) && newhdr->content->next)
newhdr->security &= ~INLINE;
/* Do we even support multiple mechanisms? */
newhdr->security &= WithCrypto | ~(APPLICATION_PGP|APPLICATION_SMIME);
/* Theoretically, both could be set. Take the one the user wants to set by default. */
if ((newhdr->security & APPLICATION_PGP) && (newhdr->security & APPLICATION_SMIME))
{
if (option (OPTSMIMEISDEFAULT))
newhdr->security &= ~APPLICATION_PGP;
else
newhdr->security &= ~APPLICATION_SMIME;
}
mutt_rfc3676_space_unstuff (newhdr);
rv = 0;
bail:
/* that's it. */
mutt_buffer_pool_release (&file);
if (bfp != fp) safe_fclose (&bfp);
if (msg) mx_close_message (ctx, &msg);
if (rv == -1)
{
mutt_free_envelope (&newhdr->env);
mutt_free_body (&newhdr->content);
}
return rv;
}