turn charset into a lua package as well.

[apps/madmutt.git] / lib-mime / mime.c

diff --git a/lib-mime/mime.c b/lib-mime/mime.c
index 95dabad..8f10d56 100644 (file)
--- a/lib-mime/mime.c
+++ b/lib-mime/mime.c
@@ -16,13 +16,17 @@
  *
  *  Copyright © 2006 Pierre Habouzit
  */
  *
  *  Copyright © 2006 Pierre Habouzit
  */

+/*
+ * Copyright notice from original mutt:
+ * Copyright (C) 1996-2000 Michael R. Elkins <me@mutt.org>
+ * Copyright (C) 1999-2000 Thomas Roessler <roessler@does-not-exist.org>
+ */

 
 

-#include <lib-lib/ascii.h>
-#include <lib-lib/url.h>
+#include <lib-lib/lib-lib.h>

 
 

-#include "mime-types.h"
+#include "mime.h"

 
 

-#include "mutt.h"
+#define BOUNDARYLEN 16

 
 const char MimeSpecials[] = "@.,;:<>[]\\\"()?/= \t";
 
 
 const char MimeSpecials[] = "@.,;:<>[]\\\"()?/= \t";
 


@@ -48,6 +52,90 @@ const char *BodyEncodings[] = {
     "x-uuencoded",
 };
 
     "x-uuencoded",
 };
 

+/****************************************************************************/
+/* rfc822 header parameters                                                 */
+/****************************************************************************/
+
+char *parameter_getval(parameter_t *parm, const char *s)
+{
+    while (parm) {
+        if (!ascii_strcasecmp(parm->attribute, s))
+            return parm->value;
+        parm = parm->next;
+    }
+    return NULL;
+}
+
+void parameter_setval(parameter_t **p, const char *attribute, const char *value)
+{
+    while (*p) {
+        if (!ascii_strcasecmp(attribute, (*p)->attribute)) {
+            if (value) {
+                m_strreplace(&(*p)->value, value);
+            } else {
+                parameter_t *q = parameter_list_pop(p);
+                parameter_delete(&q);
+            }
+            return;
+        }
+        p = &(*p)->next;
+    }
+
+    if (value) {
+        (*p) = parameter_new();
+        (*p)->attribute = m_strdup(attribute);
+        (*p)->value = m_strdup(value);
+    }
+}
+
+void parameter_delval(parameter_t **p, const char *attribute)
+{
+    while (*p) {
+        if (!ascii_strcasecmp(attribute, (*p)->attribute)) {
+            parameter_t *q = parameter_list_pop(p);
+            parameter_delete(&q);
+            return;
+        }
+
+        p = &(*p)->next;
+    }
+}
+
+int parameter_equal(const parameter_t *p1, const parameter_t *p2)
+{
+    while (p1 && p2) {
+        if (m_strcmp(p1->attribute, p2->attribute)
+        ||  m_strcmp(p1->value, p2->value))
+            return 0;
+
+        p1 = p1->next;
+        p2 = p2->next;
+    }
+
+    if (p1 || p2)
+        return 0;
+
+    return 1;
+}
+
+void parameter_set_boundary(parameter_t **parm)
+{
+    char rs[BOUNDARYLEN + 1];
+    int i;
+
+    for (i = 0; i < BOUNDARYLEN; i++) {
+        rs[i] = __m_b64chars[lrand48() % sizeof(__m_b64chars)];
+    }
+    rs[BOUNDARYLEN] = '\0';
+
+    parameter_setval(parm, "boundary", rs);
+}
+
+
+/****************************************************************************/
+/* XXX                                                                      */
+/****************************************************************************/
+

 void envelope_wipe(ENVELOPE *p)
 {
     address_list_wipe(&p->return_path);
 void envelope_wipe(ENVELOPE *p)
 {
     address_list_wipe(&p->return_path);


@@ -80,76 +168,78 @@ void envelope_wipe(ENVELOPE *p)
     string_list_wipe(&p->userhdrs);
 }
 
     string_list_wipe(&p->userhdrs);
 }
 

+void body_wipe(BODY *b)
+{
+    if (b->parameter)
+        parameter_list_wipe(&b->parameter);
+
+    if (b->unlink && b->filename) {
+        unlink (b->filename);
+    }
+
+    p_delete(&b->filename);
+    p_delete(&b->content);
+    p_delete(&b->xtype);
+    p_delete(&b->subtype);
+    p_delete(&b->description);
+    p_delete(&b->form_name);
+
+    if (b->hdr) {
+        /* Don't free twice (b->hdr->content = b->parts) */
+        b->hdr->content = NULL;
+        header_delete(&b->hdr);
+    }
+
+    if (b->parts)
+        body_list_wipe(&b->parts);
+}
+

 void header_wipe(HEADER *h)
 {
     envelope_delete(&h->env);
 void header_wipe(HEADER *h)
 {
     envelope_delete(&h->env);

-    mutt_free_body (&h->content);
+    body_list_wipe(&h->content);

     p_delete(&h->maildir_flags);
     p_delete(&h->tree);
     p_delete(&h->path);
     p_delete(&h->maildir_flags);
     p_delete(&h->tree);
     p_delete(&h->path);

-#ifdef MIXMASTER

     string_list_wipe(&h->chain);
     string_list_wipe(&h->chain);

-#endif

     p_delete(&h->data);
 }
 
     p_delete(&h->data);
 }
 

-int url_parse_mailto(ENVELOPE *e, char **body, const char *src)
-{
-    char *t;
-    char *tmp;
-    char *headers;
-    char *tag, *value;
-    char scratch[HUGE_STRING];

 
 

-    int taglen;
+/****************************************************************************/
+/* misc functions                                                           */
+/****************************************************************************/

 
 

-    string_list_t **last = &e->userhdrs;
+int mutt_is_message_type(BODY *b)
+{
+    int tok;

 
 

-    if (!(t = strchr (src, ':')))
-        return -1;
+    if (b->type != TYPEMESSAGE)
+        return 0;

 
 

-    if ((tmp = m_strdup(t + 1)) == NULL)
-        return -1;
+    tok = mime_which_token(b->subtype, -1);
+    return tok == MIME_RFC822 || tok == MIME_NEWS;
+}

 
 

-    if ((headers = strchr (tmp, '?')))
-        *headers++ = '\0';
+int mutt_is_text_part(BODY * b)
+{
+    char *s = b->subtype;

 
 

-    url_decode(tmp);
-    e->to = rfc822_parse_adrlist (e->to, tmp);
+    if (mutt_is_application_pgp(b))
+        return 0;

 
 

-    tag = headers ? strtok (headers, "&") : NULL;
+    switch (b->type) {
+      case TYPETEXT:
+        return 1;

 
 

-    for (; tag; tag = strtok (NULL, "&")) {
-        if ((value = strchr (tag, '=')))
-            *value++ = '\0';
-        if (!value || !*value)
-            continue;
+      case TYPEMESSAGE:
+        return mime_which_token(s, -1) == MIME_DELIVERY_STATUS;

 
 

-        url_decode (tag);
-        url_decode (value);
+      case TYPEAPPLICATION:
+        return mime_which_token(s, -1) == MIME_PGP_KEYS;

 
 

-        if (!ascii_strcasecmp (tag, "body")) {
-            if (body)
-                m_strreplace(body, value);
-        }
-        else {
-#define SAFEPFX (option (OPTSTRICTMAILTO) ? "" : "X-Mailto-")
-            taglen = m_strlen(tag) + m_strlen(SAFEPFX);
-            /* mutt_parse_rfc822_line makes some assumptions */
-            snprintf (scratch, sizeof (scratch), "%s%s: %s", SAFEPFX, tag, value);
-#undef SAVEPFX
-            scratch[taglen] = '\0';
-            value = vskipspaces(&scratch[taglen + 1]);
-            last = mutt_parse_rfc822_line (e, NULL, scratch, value, 0, 0, last);
-            /* if $strict_mailto is set, force editing headers to let
-             * users have a look at what we got */
-            if (!option (OPTSTRICTMAILTO)) {
-                set_option (OPTXMAILTO);
-                set_option (OPTEDITHDRS);
-            }
-        }
+      default:
+        return 0;

     }
     }

-
-    p_delete(&tmp);
-    return 0;

 }
 }

+