2 * This program is free software; you can redistribute it and/or modify
3 * it under the terms of the GNU General Public License as published by
4 * the Free Software Foundation; either version 2 of the License, or (at
5 * your option) any later version.
7 * This program is distributed in the hope that it will be useful, but
8 * WITHOUT ANY WARRANTY; without even the implied warranty of
9 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
10 * General Public License for more details.
12 * You should have received a copy of the GNU General Public License
13 * along with this program; if not, write to the Free Software
14 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
17 * Copyright © 2006 Pierre Habouzit
20 * Copyright notice from original mutt:
21 * Copyright (C) 1996-2000 Michael R. Elkins <me@mutt.org>
22 * Copyright (C) 1999-2000 Thomas Roessler <roessler@does-not-exist.org>
25 #include <lib-lib/lib-lib.h>
26 #include <lib-lua/lib-lua.h>
28 @import "../lib-lua/base.cpkg"
30 #define BOUNDARYLEN 16
31 const char MimeSpecials[] = "@.,;:<>[]\\\"()?/= \t";
33 const char *BodyTypes[] = {
45 const char *BodyEncodings[] = {
55 rx_t *SpamList = NULL, *NoSpamList = NULL;
60 ** ``$spam_separator'' controls what happens when multiple spam headers
61 ** are matched: if \fIunset\fP, each successive header will overwrite any
62 ** previous matches value for the spam label. If \fIset\fP, each successive
63 ** match will append to the previous, using ``$spam_separator'' as a
66 string_t spam_separator = m_strdup(",");
68 void spam(rx_t rx, const string_t tpl) {
69 rx_set_template(rx, tpl);
70 rx_list_append(&SpamList, rx);
74 void nospam(rx_t rx) {
75 if (!m_strcmp(rx->pattern, "*")) {
76 rx_list_wipe(&SpamList);
77 rx_list_wipe(&NoSpamList);
80 rx_list_append(&NoSpamList, rx);
86 /****************************************************************************/
87 /* rfc822 header parameters */
88 /****************************************************************************/
90 char *parameter_getval(parameter_t *parm, const char *s)
93 if (!ascii_strcasecmp(parm->attribute, s))
100 void parameter_setval(parameter_t **p, const char *attribute, const char *value)
103 if (!ascii_strcasecmp(attribute, (*p)->attribute)) {
105 m_strreplace(&(*p)->value, value);
107 parameter_t *q = parameter_list_pop(p);
108 parameter_delete(&q);
116 (*p) = parameter_new();
117 (*p)->attribute = m_strdup(attribute);
118 (*p)->value = m_strdup(value);
122 void parameter_delval(parameter_t **p, const char *attribute)
125 if (!ascii_strcasecmp(attribute, (*p)->attribute)) {
126 parameter_t *q = parameter_list_pop(p);
127 parameter_delete(&q);
135 int parameter_equal(const parameter_t *p1, const parameter_t *p2)
138 if (m_strcmp(p1->attribute, p2->attribute)
139 || m_strcmp(p1->value, p2->value))
152 void parameter_set_boundary(parameter_t **parm)
154 char rs[BOUNDARYLEN + 1];
157 for (i = 0; i < BOUNDARYLEN; i++) {
158 rs[i] = __m_b64chars[lrand48() % sizeof(__m_b64chars)];
160 rs[BOUNDARYLEN] = '\0';
162 parameter_setval(parm, "boundary", rs);
166 /****************************************************************************/
168 /****************************************************************************/
170 void envelope_wipe(ENVELOPE *p)
172 address_list_wipe(&p->return_path);
173 address_list_wipe(&p->from);
174 address_list_wipe(&p->to);
175 address_list_wipe(&p->cc);
176 address_list_wipe(&p->bcc);
177 address_list_wipe(&p->sender);
178 address_list_wipe(&p->reply_to);
179 address_list_wipe(&p->mail_followup_to);
181 p_delete(&p->list_post);
182 p_delete(&p->subject);
183 /* real_subj is just an offset to subject and shouldn't be freed */
184 p_delete(&p->message_id);
185 p_delete(&p->supersedes);
187 p_delete(&p->x_label);
188 p_delete(&p->organization);
190 p_delete(&p->newsgroups);
192 p_delete(&p->followup_to);
193 p_delete(&p->x_comment_to);
196 mutt_buffer_free (&p->spam);
197 string_list_wipe(&p->references);
198 string_list_wipe(&p->in_reply_to);
199 string_list_wipe(&p->userhdrs);
202 void body_wipe(BODY *b)
205 parameter_list_wipe(&b->parameter);
207 if (b->unlink && b->filename) {
208 unlink (b->filename);
211 p_delete(&b->filename);
212 p_delete(&b->content);
214 p_delete(&b->subtype);
215 p_delete(&b->description);
216 p_delete(&b->form_name);
219 /* Don't free twice (b->hdr->content = b->parts) */
220 b->hdr->content = NULL;
221 header_delete(&b->hdr);
225 body_list_wipe(&b->parts);
228 void header_wipe(HEADER *h)
230 envelope_delete(&h->env);
231 body_list_wipe(&h->content);
232 p_delete(&h->maildir_flags);
235 string_list_wipe(&h->chain);
240 /****************************************************************************/
242 /****************************************************************************/
244 int mutt_is_message_type(BODY *b)
248 if (b->type != TYPEMESSAGE)
251 tok = mime_which_token(b->subtype, -1);
252 return tok == MIME_RFC822 || tok == MIME_NEWS;
255 int mutt_is_text_part(BODY * b)
257 char *s = b->subtype;
259 if (mutt_is_application_pgp(b))
267 return mime_which_token(s, -1) == MIME_DELIVERY_STATUS;
269 case TYPEAPPLICATION:
270 return mime_which_token(s, -1) == MIME_PGP_KEYS;