mutt_*mktemp--
[apps/madmutt.git] / alias.c
diff --git a/alias.c b/alias.c
index 7282a8c..68afc25 100644 (file)
--- a/alias.c
+++ b/alias.c
@@ -1,3 +1,21 @@
+/*
+ *  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.
+ *
+ *  Copyright © 2006 Pierre Habouzit
+ */
 /*
  * Copyright notice from original mutt:
  * Copyright (C) 1996-2002 Michael R. Elkins <me@mutt.org>
@@ -7,21 +25,7 @@
  * please see the file GPL in the top level source directory.
  */
 
-#if HAVE_CONFIG_H
-# include "config.h"
-#endif
-
-#include <string.h>
-#include <ctype.h>
-
-#include <lib-lib/mem.h>
-#include <lib-lib/ascii.h>
-#include <lib-lib/str.h>
-#include <lib-lib/file.h>
-#include <lib-lib/macros.h>
-#include <lib-lib/mapping.h>
-#include <lib-lib/debug.h>
-#include <lib-lib/rx.h>
+#include <lib-lib/lib-lib.h>
 
 #include <lib-sys/unix.h>
 
 #include <lib-ui/enter.h>
 #include <lib-ui/menu.h>
 
-#include "mutt.h"
+#include "alias.h"
 #include "mutt_idna.h"
 #include "sort.h"
 
+char    *AliasFmt;
+char    *AliasFile;
+alias_t *Aliases;
+rx_t     GecosMask;
+
 #define RSORT(x) (SortAlias & SORT_REVERSE) ? -x : x
 
 static struct mapping_t AliasHelp[] = {
@@ -44,18 +53,38 @@ static struct mapping_t AliasHelp[] = {
     {NULL, OP_NULL}
 };
 
-void alias_wipe(alias_t *a) {
-    p_delete(&a->name);
-    address_delete(&a->addr);
-    alias_delete(&a->next);
-}
+static void mutt_alias_menu(char *, size_t, alias_t *);
 
-address_t *alias_lookup(alias_t *list, const char *s)
+const address_t *alias_lookup(const char *s)
 {
-    while (list) {
+    alias_t *list;
+
+    for (list = Aliases; list; list = list->next) {
         if (!m_strcasecmp(s, list->name))
             return list->addr;
-        list = list->next;
+    }
+
+    return NULL;
+}
+
+/* This routine looks to see if the user has an alias defined for the given
+   address.                                                                 */
+const address_t *alias_reverse_lookup(const address_t *a)
+{
+    alias_t *list;
+
+    if (!a || !a->mailbox)
+        return NULL;
+
+    for (list = Aliases; list; list = list->next) {
+        address_t *ap;
+
+        /* cycle through all addresses if this is a group alias */
+        for (ap = list->addr; ap; ap = ap->next) {
+            if (!ap->group && ap->mailbox
+            &&  !ascii_strcasecmp(ap->mailbox, a->mailbox))
+                return ap;
+        }
     }
 
     return NULL;
@@ -192,7 +221,7 @@ void mutt_create_alias(ENVELOPE *cur, address_t *iadr)
         return;
 
     /* check to see if the user already has an alias defined */
-    if (alias_lookup(Aliases, buf)) {
+    if (alias_lookup(buf)) {
         mutt_error _("You already have an alias defined with that name!");
         return;
     }
@@ -211,10 +240,10 @@ void mutt_create_alias(ENVELOPE *cur, address_t *iadr)
     mutt_addrlist_to_idna(adr, NULL);
 
     do {
-        const char *err = NULL;
+        char *err = NULL;
 
         if (mutt_get_field(_("Address: "), buf, sizeof(buf), 0) || !buf[0]) {
-            alias_delete(&new);
+            alias_list_wipe(&new);
             return;
         }
 
@@ -224,6 +253,7 @@ void mutt_create_alias(ENVELOPE *cur, address_t *iadr)
 
         if (mutt_addrlist_to_idna(new->addr, &err)) {
             mutt_error(_("Error: '%s' is a bad IDN."), err);
+            p_delete(&err);
             mutt_sleep(1);
             continue;
         }
@@ -236,7 +266,7 @@ void mutt_create_alias(ENVELOPE *cur, address_t *iadr)
     }
 
     if (mutt_get_field(_("Personal name: "), buf, sizeof(buf), 0)) {
-        alias_delete(&new);
+        alias_list_wipe(&new);
         return;
     }
     new->addr->personal = m_strdup(buf);
@@ -245,7 +275,7 @@ void mutt_create_alias(ENVELOPE *cur, address_t *iadr)
     rfc822_write_address(buf, sizeof(buf), new->addr, 1);
     snprintf(prompt, sizeof(prompt), _("[%s = %s] Accept?"), new->name, buf);
     if (mutt_yesorno(prompt, M_YES) != M_YES) {
-        alias_delete(&new);
+        alias_list_wipe(&new);
         return;
     }
 
@@ -270,130 +300,91 @@ void mutt_create_alias(ENVELOPE *cur, address_t *iadr)
         buf[0] = '\0';
         rfc822_write_address(buf, sizeof(buf), new->addr, 0);
         write_safe_address(rc, buf);
-        fclose(rc);
+        m_fclose(&rc);
         mutt_message _("Alias added.");
     } else {
         mutt_perror(buf);
     }
 }
 
-/************* READ MARK *********************/
-
-static address_t *mutt_expand_aliases_r (address_t * a, LIST ** expn)
+static address_t *mutt_expand_aliases_r(address_t *a, string_list_t **expn)
 {
-  address_t *head = NULL, *last = NULL, *t, *w;
-  LIST *u;
-  char i;
-  const char *fqdn;
-
-  while (a) {
-    if (!a->group && !a->personal && a->mailbox
-        && strchr (a->mailbox, '@') == NULL) {
-      t = alias_lookup(Aliases, a->mailbox);
-
-      if (t) {
-        i = 0;
-        for (u = *expn; u; u = u->next) {
-          if (m_strcmp(a->mailbox, u->data) == 0) { /* alias already found */
-            debug_print(1, ("loop in alias found for '%s'\n", a->mailbox));
-            i = 1;
-            break;
-          }
-        }
-
-        if (!i) {
-          u = p_new(LIST, 1);
-          u->data = m_strdup(a->mailbox);
-          u->next = *expn;
-          *expn = u;
-          w = address_list_dup (t);
-          w = mutt_expand_aliases_r (w, expn);
-          if (head)
-            last->next = w;
-          else
-            head = last = w;
-          while (last && last->next)
-            last = last->next;
+    address_t *pop, *head = NULL;
+    address_t **last = &head;
+
+    while ((pop = address_list_pop(&a))) {
+        if (!pop->group && !pop->personal
+        &&  pop->mailbox && !strchr(pop->mailbox, '@'))
+        {
+            const address_t *t = alias_lookup(pop->mailbox);
+
+            if (t) {
+                string_list_t *u;
+
+                for (u = *expn; u; u = u->next) {
+                    if (!m_strcmp(pop->mailbox, u->data)) { /* alias already found */
+                        address_list_wipe(&pop);
+                        continue;
+                    }
+                }
+
+                /* save the fact we saw it */
+                u = string_item_new();
+                u->data = m_strdup(pop->mailbox);
+                u->next = *expn;
+                *expn = u;
+                address_list_wipe(&pop);
+
+                /* recurse */
+                last  = address_list_last(last);
+                *last = mutt_expand_aliases_r(address_list_dup(t), expn);
+                continue;
+            } else {
+                struct passwd *pw = getpwnam(pop->mailbox);
+
+                if (pw) {
+                    char namebuf[STRING];
+                    mutt_gecos_name(namebuf, sizeof(namebuf), pw, GecosMask.rx);
+                    m_strreplace(&pop->personal, namebuf);
+                }
+            }
         }
-        t = a;
-        a = a->next;
-        t->next = NULL;
-        address_delete (&t);
-        continue;
-      }
-      else {
-        struct passwd *pw = getpwnam (a->mailbox);
-
-        if (pw) {
-          char namebuf[STRING];
 
-          mutt_gecos_name(namebuf, sizeof (namebuf), pw, GecosMask.rx);
-          m_strreplace(&a->personal, namebuf);
-        }
-      }
+        last = address_list_append(last, pop);
     }
 
-    if (head) {
-      last->next = a;
-      last = last->next;
+    if (option(OPTUSEDOMAIN)) {
+        /* now qualify all local addresses */
+        const char *fqdn = mutt_fqdn(1);
+        if (fqdn)
+            rfc822_qualify(head, fqdn);
     }
-    else
-      head = last = a;
-    a = a->next;
-    last->next = NULL;
-  }
 
-  if (option (OPTUSEDOMAIN) && (fqdn = mutt_fqdn (1))) {
-    /* now qualify all local addresses */
-    rfc822_qualify (head, fqdn);
-  }
-
-  return (head);
+    return head;
 }
 
-address_t *mutt_expand_aliases (address_t * a)
+address_t *mutt_expand_aliases(address_t *a)
 {
-  address_t *t;
-  LIST *expn = NULL;            /* previously expanded aliases to avoid loops */
+    address_t *t;
+    string_list_t *expn = NULL;            /* previously expanded aliases to avoid loops */
 
-  t = mutt_expand_aliases_r (a, &expn);
-  mutt_free_list (&expn);
-  return (mutt_remove_duplicates (t));
+    t = mutt_expand_aliases_r(a, &expn);
+    string_list_wipe(&expn);
+    address_list_uniq(t);
+    return t;
 }
 
-void mutt_expand_aliases_env (ENVELOPE * env)
+void mutt_expand_aliases_env(ENVELOPE *env)
 {
-  env->from = mutt_expand_aliases (env->from);
-  env->to = mutt_expand_aliases (env->to);
-  env->cc = mutt_expand_aliases (env->cc);
-  env->bcc = mutt_expand_aliases (env->bcc);
-  env->reply_to = mutt_expand_aliases (env->reply_to);
-  env->mail_followup_to = mutt_expand_aliases (env->mail_followup_to);
+    env->from = mutt_expand_aliases(env->from);
+    env->to = mutt_expand_aliases(env->to);
+    env->cc = mutt_expand_aliases(env->cc);
+    env->bcc = mutt_expand_aliases(env->bcc);
+    env->reply_to = mutt_expand_aliases(env->reply_to);
+    env->mail_followup_to = mutt_expand_aliases(env->mail_followup_to);
 }
 
-
-/*
- * This routine looks to see if the user has an alias defined for the given
- * address.
- */
-address_t *alias_reverse_lookup (address_t * a)
-{
-  alias_t *t = Aliases;
-  address_t *ap;
-
-  if (!a || !a->mailbox)
-    return NULL;
-
-  for (; t; t = t->next) {
-    /* cycle through all addresses if this is a group alias */
-    for (ap = t->addr; ap; ap = ap->next) {
-      if (!ap->group && ap->mailbox &&
-          ascii_strcasecmp (ap->mailbox, a->mailbox) == 0)
-        return ap;
-    }
-  }
-  return 0;
-}
+/************* READ MARK *********************/
 
 /* alias_complete() -- alias completion routine
  *
@@ -474,7 +465,7 @@ int mutt_alias_complete (char *s, size_t buflen)
         Aliases = a_cur->next;
 
       a_cur->next = NULL;
-      alias_delete(&a_cur);
+      alias_list_wipe(&a_cur);
 
       if (a_list)
         a_cur = a_list;
@@ -680,5 +671,4 @@ new_aliases:
 
   mutt_menuDestroy (&menu);
   p_delete(&AliasTable);
-
 }