#include "alias.h"
#include "mutt_idna.h"
#include "sort.h"
-
-@type bool = {
- .kind = 'b';
- .ctype = unsigned : 1;
-};
-
-@type string_t = {
- .kind = 's';
- .ctype = char *;
- .dtor = p_delete($$);
- .ctor = m_strdup($$);
-};
-
-@type path_t = {
- .push = luaM_path_post($$);
- .kind = 's';
- .ctype = char *;
- .dtor = p_delete($$);
- .ctor = m_strdup($$);
-};
-
-@type quadopt_t = {
- .kind = 'i';
- .check = luaM_checkquadopt($L, $$);
- .ctype = unsigned : 2;
+@import "lib-lua/base.cpkg"
+
+static rx_t *Alternates = NULL, *UnAlternates = NULL;
+rx_t *MailLists = NULL, *UnMailLists = NULL;
+rx_t *SubscribedLists = NULL, *UnSubscribedLists = NULL;
+
+@static_package MAlias {
+ /*
+ ** .pp
+ ** Specifies the format of the data displayed for the ``alias'' menu. The
+ ** following \fTprintf(3)\fP-style sequences are available:
+ ** .pp
+ ** .dl
+ ** .dt %a .dd alias name
+ ** .dt %f .dd flags - currently, a "d" for an alias marked for deletion
+ ** .dt %n .dd index number
+ ** .dt %r .dd address which alias expands to
+ ** .dt %t .dd character which indicates if the alias is tagged for inclusion
+ ** .de
+ */
+ string_t alias_format = m_strdup("%4n %2f %t %-10a %r");
+ /*
+ ** .pp
+ ** The default file in which to save aliases created by the
+ ** ``$create-alias'' function.
+ ** .pp
+ ** \fBNote:\fP Madmutt will not automatically source this file; you must
+ ** explicitly use the ``$source'' command for it to be executed.
+ */
+ path_t alias_file = m_strdup("~/.madmutt/aliases");
+
+ void alternates(rx_t rx) {
+ rx_list_remove(&UnAlternates, rx);
+ rx_list_add(&Alternates, rx);
+ RETURN();
+ };
+ void unalternates(rx_t rx) {
+ rx_list_remove(&Alternates, rx);
+ rx_list_add(&UnAlternates, rx);
+ RETURN();
+ };
+
+ void lists(rx_t rx) {
+ rx_list_remove(&UnMailLists, rx);
+ rx_list_add(&MailLists, rx);
+ RETURN();
+ };
+ void unlists(rx_t rx) {
+ rx_list_remove(&MailLists, rx);
+ rx_list_remove(&SubscribedLists, rx);
+ rx_list_add(&UnMailLists, rx);
+ RETURN();
+ };
+
+ void subscribe(rx_t rx) {
+ rx_list_remove(&UnMailLists, rx);
+ rx_list_remove(&UnSubscribedLists, rx);
+ rx_list_add(&MailLists, rx);
+ rx_list_add(&SubscribedLists, rx_dup(rx));
+ RETURN();
+ };
+ void unsubscribe(rx_t rx) {
+ rx_list_remove(&SubscribedLists, rx);
+ rx_list_add(&UnSubscribedLists, rx);
+ RETURN();
+ };
};
-static @package MAlias {
- path_t alias_format = m_strdup("%4n %2f %t %-10a %r");
-} MAlias;
-
-char *AliasFile;
alias_t *Aliases;
-rx_t GecosMask;
#define RSORT(x) (SortAlias & SORT_REVERSE) ? -x : x
return 0;
if (!ascii_strcasecmp(addr->mailbox, MCore.username)
- || string_is_address(addr->mailbox, MCore.username, Hostname)
+ || string_is_address(addr->mailbox, MCore.username, MCore.shorthost)
|| string_is_address(addr->mailbox, MCore.username, mutt_fqdn(0))
|| string_is_address(addr->mailbox, MCore.username, mutt_fqdn(1))
|| (From && !ascii_strcasecmp(From->mailbox, addr->mailbox)))
alias_list_push(&Aliases, new);
- m_strcpy(buf, sizeof(buf), NONULL(AliasFile));
+ m_strcpy(buf, sizeof(buf), NONULL(MAlias.alias_file));
if (mutt_get_field(_("Save to file: "), buf, sizeof(buf), M_FILE)) {
return;
}
if (pw) {
char namebuf[STRING];
- mutt_gecos_name(namebuf, sizeof(namebuf), pw, GecosMask.rx);
+ mutt_gecos_name(namebuf, sizeof(namebuf), pw, MCore.gecos_mask);
m_strreplace(&pop->personal, namebuf);
}
}
last = address_list_append(last, pop);
}
- if (option(OPTUSEDOMAIN)) {
+ if (MCore.use_domain) {
/* now qualify all local addresses */
rfc822_qualify(head, mutt_fqdn(1));
}