2 * Copyright (C) 1996-2002 Michael R. Elkins <me@mutt.org>
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation; either version 2 of the License, or
7 * (at your option) any later version.
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
14 * You should have received a copy of the GNU General Public License
15 * along with this program; if not, write to the Free Software
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA.
20 #include "mutt_regex.h"
21 #include "mutt_curses.h"
22 #include "mutt_idna.h"
27 ADDRESS *mutt_lookup_alias (const char *s)
31 for (; t; t = t->next)
32 if (!mutt_strcasecmp (s, t->name))
34 return (NULL); /* no such alias */
37 static ADDRESS *mutt_expand_aliases_r (ADDRESS *a, LIST **expn)
39 ADDRESS *head = NULL, *last = NULL, *t, *w;
46 if (!a->group && !a->personal && a->mailbox && strchr (a->mailbox, '@') == NULL)
48 t = mutt_lookup_alias (a->mailbox);
53 for (u = *expn; u; u = u->next)
55 if (mutt_strcmp (a->mailbox, u->data) == 0) /* alias already found */
57 dprint (1, (debugfile, "mutt_expand_aliases_r(): loop in alias found for '%s'\n", a->mailbox));
65 u = safe_malloc (sizeof (LIST));
66 u->data = safe_strdup (a->mailbox);
69 w = rfc822_cpy_adr (t);
70 w = mutt_expand_aliases_r (w, expn);
75 while (last && last->next)
81 rfc822_free_address (&t);
86 struct passwd *pw = getpwnam (a->mailbox);
92 mutt_gecos_name (namebuf, sizeof (namebuf), pw);
93 mutt_str_replace (&a->personal, namebuf);
113 if (option (OPTUSEDOMAIN) && (fqdn = mutt_fqdn(1)))
115 /* now qualify all local addresses */
116 rfc822_qualify (head, fqdn);
122 ADDRESS *mutt_expand_aliases (ADDRESS *a)
125 LIST *expn = NULL; /* previously expanded aliases to avoid loops */
127 t = mutt_expand_aliases_r (a, &expn);
128 mutt_free_list (&expn);
129 return (mutt_remove_duplicates (t));
132 void mutt_expand_aliases_env (ENVELOPE *env)
134 env->from = mutt_expand_aliases (env->from);
135 env->to = mutt_expand_aliases (env->to);
136 env->cc = mutt_expand_aliases (env->cc);
137 env->bcc = mutt_expand_aliases (env->bcc);
138 env->reply_to = mutt_expand_aliases (env->reply_to);
139 env->mail_followup_to = mutt_expand_aliases (env->mail_followup_to);
144 * if someone has an address like
145 * From: Michael `/bin/rm -f ~` Elkins <me@mutt.org>
146 * and the user creates an alias for this, Mutt could wind up executing
147 * the backtics because it writes aliases like
148 * alias me Michael `/bin/rm -f ~` Elkins <me@mutt.org>
149 * To avoid this problem, use a backslash (\) to quote any backtics. We also
150 * need to quote backslashes as well, since you could defeat the above by
152 * From: Michael \`/bin/rm -f ~\` Elkins <me@mutt.org>
153 * since that would get aliased as
154 * alias me Michael \\`/bin/rm -f ~\\` Elkins <me@mutt.org>
155 * which still gets evaluated because the double backslash is not a quote.
157 * Additionally, we need to quote ' and " characters - otherwise, mutt will
158 * interpret them on the wrong parsing step.
160 * $ wants to be quoted since it may indicate the start of an environment
164 static void write_safe_address (FILE *fp, char *s)
168 if (*s == '\\' || *s == '`' || *s == '\'' || *s == '"'
176 ADDRESS *mutt_get_address (ENVELOPE *env, char **pfxp)
181 if (mutt_addr_is_user (env->from))
183 if (env->to && !mutt_is_mail_list (env->to))
194 else if (env->reply_to && !mutt_is_mail_list (env->reply_to))
205 if (pfxp) *pfxp = pfx;
210 void mutt_create_alias (ENVELOPE *cur, ADDRESS *iadr)
213 char buf[LONG_STRING], prompt[SHORT_STRING], *pc;
215 char fixed[LONG_STRING];
221 adr = mutt_get_address (cur, NULL);
228 if (adr && adr->mailbox)
230 strfcpy (buf, adr->mailbox, sizeof (buf));
231 if ((pc = strchr (buf, '@')))
237 /* Don't suggest a bad alias name in the event of a strange local part. */
238 mutt_check_alias_name (buf, buf);
241 /* add a new alias */
242 if (mutt_get_field (_("Alias as: "), buf, sizeof (buf), 0) != 0 || !buf[0])
245 /* check to see if the user already has an alias defined */
246 if (mutt_lookup_alias (buf))
248 mutt_error _("You already have an alias defined with that name!");
252 if (mutt_check_alias_name (buf, fixed))
254 switch (mutt_yesorno (_("Warning: This alias name may not work. Fix it?"), M_YES))
257 strfcpy (buf, fixed, sizeof (buf));
264 new = safe_calloc (1, sizeof (ALIAS));
266 new->name = safe_strdup (buf);
268 mutt_addrlist_to_local (adr);
271 strfcpy (buf, adr->mailbox, sizeof (buf));
275 mutt_addrlist_to_idna (adr, NULL);
279 if (mutt_get_field (_("Address: "), buf, sizeof (buf), 0) != 0 || !buf[0])
281 mutt_free_alias (&new);
285 if((new->addr = rfc822_parse_adrlist (new->addr, buf)) == NULL)
287 if (mutt_addrlist_to_idna (new->addr, &err))
289 mutt_error (_("Error: '%s' is a bad IDN."), err);
294 while(new->addr == NULL);
296 if (adr && adr->personal && !mutt_is_mail_list (adr))
297 strfcpy (buf, adr->personal, sizeof (buf));
301 if (mutt_get_field (_("Personal name: "), buf, sizeof (buf), 0) != 0)
303 mutt_free_alias (&new);
306 new->addr->personal = safe_strdup (buf);
309 rfc822_write_address (buf, sizeof (buf), new->addr, 1);
310 snprintf (prompt, sizeof (prompt), _("[%s = %s] Accept?"), new->name, buf);
311 if (mutt_yesorno (prompt, M_YES) != M_YES)
313 mutt_free_alias (&new);
326 strfcpy (buf, NONULL (AliasFile), sizeof (buf));
327 if (mutt_get_field (_("Save to file: "), buf, sizeof (buf), M_FILE) != 0)
329 mutt_expand_path (buf, sizeof (buf));
330 if ((rc = safe_fopen (buf, "a")))
332 if (mutt_check_alias_name (new->name, NULL))
333 mutt_quote_filename (buf, sizeof (buf), new->name);
335 strfcpy (buf, new->name, sizeof (buf));
336 fprintf (rc, "alias %s ", buf);
338 rfc822_write_address (buf, sizeof (buf), new->addr, 0);
339 write_safe_address (rc, buf);
342 mutt_message _("Alias added.");
349 * Sanity-check an alias name: Only characters which are non-special to both
350 * the RFC 822 and the mutt configuration parser are permitted.
353 static int check_alias_name_char (char c)
355 return (c == '-' || c == '_' || c == '+' || c == '=' || c == '.' ||
356 isalnum ((unsigned char) c));
359 int mutt_check_alias_name (const char *s, char *d)
364 if (!check_alias_name_char (*s))
383 * This routine looks to see if the user has an alias defined for the given
386 ADDRESS *alias_reverse_lookup (ADDRESS *a)
391 if (!a || !a->mailbox)
394 for (; t; t = t->next)
396 /* cycle through all addresses if this is a group alias */
397 for (ap = t->addr; ap; ap = ap->next)
399 if (!ap->group && ap->mailbox &&
400 ascii_strcasecmp (ap->mailbox, a->mailbox) == 0)
407 /* alias_complete() -- alias completion routine
409 * given a partial alias, this routine attempts to fill in the alias
410 * from the alias list as much as possible. if given empty search string
411 * or found nothing, present all aliases
413 int mutt_alias_complete (char *s, size_t buflen)
416 ALIAS *a_list = NULL, *a_cur = NULL;
417 char bestname[HUGE_STRING];
420 #define min(a,b) ((a<b)?a:b)
422 if (s[0] != 0) /* avoid empty string as strstr argument */
424 memset (bestname, 0, sizeof (bestname));
428 if (a->name && strstr (a->name, s) == a->name)
430 if (!bestname[0]) /* init */
431 strfcpy (bestname, a->name,
432 min (mutt_strlen (a->name) + 1, sizeof (bestname)));
435 for (i = 0 ; a->name[i] && a->name[i] == bestname[i] ; i++)
443 if (bestname[0] != 0)
445 if (mutt_strcmp (bestname, s) != 0)
447 /* we are adding something to the completion */
448 strfcpy (s, bestname, mutt_strlen (bestname) + 1);
452 /* build alias list and show it */
457 if (a->name && (strstr (a->name, s) == a->name))
459 if (!a_list) /* init */
460 a_cur = a_list = (ALIAS *) safe_malloc (sizeof (ALIAS));
463 a_cur->next = (ALIAS *) safe_malloc (sizeof (ALIAS));
466 memcpy (a_cur, a, sizeof (ALIAS));
475 mutt_alias_menu (bestname, sizeof(bestname), a_list ? a_list : Aliases);
476 if (bestname[0] != 0)
477 strfcpy (s, bestname, buflen);
479 /* free the alias list */
483 a_list = a_list->next;
487 /* remove any aliases marked for deletion */
489 for (a_cur = Aliases; a_cur;)
494 a_list->next = a_cur->next;
496 Aliases = a_cur->next;
499 mutt_free_alias (&a_cur);
516 static int string_is_address(const char *str, const char *u, const char *d)
518 char buf[LONG_STRING];
520 snprintf(buf, sizeof(buf), "%s@%s", NONULL(u), NONULL(d));
521 if (ascii_strcasecmp(str, buf) == 0)
527 /* returns TRUE if the given address belongs to the user. */
528 int mutt_addr_is_user (ADDRESS *addr)
530 /* NULL address is assumed to be the user. */
533 dprint (5, (debugfile, "mail_addr_is_user: yes, NULL address\n"));
538 dprint (5, (debugfile, "mail_addr_is_user: no, no mailbox\n"));
542 if (ascii_strcasecmp (addr->mailbox, Username) == 0)
544 dprint (5, (debugfile, "mail_addr_is_user: yes, %s = %s\n", addr->mailbox, Username));
547 if (string_is_address(addr->mailbox, Username, Hostname))
549 dprint (5, (debugfile, "mail_addr_is_user: yes, %s = %s @ %s \n", addr->mailbox, Username, Hostname));
552 if (string_is_address(addr->mailbox, Username, mutt_fqdn(0)))
554 dprint (5, (debugfile, "mail_addr_is_user: yes, %s = %s @ %s \n", addr->mailbox, Username, mutt_fqdn (0)));
557 if (string_is_address(addr->mailbox, Username, mutt_fqdn(1)))
559 dprint (5, (debugfile, "mail_addr_is_user: yes, %s = %s @ %s \n", addr->mailbox, Username, mutt_fqdn (1)));
563 if (From && !ascii_strcasecmp (From->mailbox, addr->mailbox))
565 dprint (5, (debugfile, "mail_addr_is_user: yes, %s = %s\n", addr->mailbox, From->mailbox));
569 if (mutt_match_rx_list (addr->mailbox, Alternates))
571 dprint (5, (debugfile, "mail_addr_is_user: yes, %s matched by alternates.\n", addr->mailbox));
575 dprint (5, (debugfile, "mail_addr_is_user: no, all failed.\n"));