X-Git-Url: http://git.madism.org/?p=apps%2Fmadmutt.git;a=blobdiff_plain;f=init.c;h=ce05070dd9bf3c8a7629b17b9b18de42ad90e638;hp=82636f18ba55723a3a619ea80c3f6e1f921f27ee;hb=1c62190597f45fd606cf680df3f6a099b9f7ec18;hpb=79b870584c9a4fca6f6bf34b9b95dcff3b76dc29 diff --git a/init.c b/init.c index 82636f1..ce05070 100644 --- a/init.c +++ b/init.c @@ -11,26 +11,19 @@ */ #include -#include +#include #include -#include - -#include +#include #include #include #include "mutt.h" #include "keymap.h" +#include "crypt.h" #include "charset.h" #include "thread.h" -#include #include "mutt_idna.h" - -#if defined (USE_LIBESMTP) && (defined (USE_SSL) || defined (USE_GNUTLS)) -#include "mutt_libesmtp.h" -#endif - #include "alias.h" #include "init.h" @@ -42,7 +35,7 @@ static int parse_sort (struct option_t* dst, const char *s, const struct mapping_t *map, char* errbuf, ssize_t errlen); -static HASH *ConfigOptions = NULL; +static hash_t *ConfigOptions = NULL; /* for synonym warning reports: synonym found during parsing */ typedef struct syn_t { @@ -69,10 +62,6 @@ static const char* CurRCFile = NULL; static int CurRCLine = 0; /* prototypes for checking for special vars */ -static int check_dsn_return (const char* option, unsigned long val, - char* errbuf, ssize_t errlen); -static int check_dsn_notify (const char* option, unsigned long val, - char* errbuf, ssize_t errlen); static int check_history (const char* option, unsigned long val, char* errbuf, ssize_t errlen); /* this checks that numbers are >= 0 */ @@ -92,74 +81,12 @@ static struct { int (*check) (const char* option, unsigned long val, char* errbuf, ssize_t errlen); } SpecialVars[] = { - { "dsn_notify", check_dsn_notify }, - { "dsn_return", check_dsn_return }, -#if defined (USE_LIBESMTP) && (defined (USE_SSL) || defined (USE_GNUTLS)) - { "smtp_use_tls", mutt_libesmtp_check_usetls }, -#endif { "history", check_history }, { "pager_index_lines", check_num }, /* last */ { NULL, NULL } }; -/* protos for config type handles: convert value to string */ -static void bool_to_string (char* dst, ssize_t dstlen, struct option_t* option); -static void num_to_string (char* dst, ssize_t dstlen, struct option_t* option); -static void str_to_string (char* dst, ssize_t dstlen, struct option_t* option); -static void quad_to_string (char* dst, ssize_t dstlen, struct option_t* option); -static void sort_to_string (char* dst, ssize_t dstlen, struct option_t* option); -static void rx_to_string (char* dst, ssize_t dstlen, struct option_t* option); -static void magic_to_string (char* dst, ssize_t dstlen, struct option_t* option); -static void addr_to_string (char* dst, ssize_t dstlen, struct option_t* option); -static void user_to_string (char* dst, ssize_t dstlen, struct option_t* option); -static void sys_to_string (char* dst, ssize_t dstlen, struct option_t* option); - -/* protos for config type handles: convert to value from string */ -static int bool_from_string (struct option_t* dst, const char* val, - char* errbuf, ssize_t errlen); -static int num_from_string (struct option_t* dst, const char* val, - char* errbuf, ssize_t errlen); -static int str_from_string (struct option_t* dst, const char* val, - char* errbuf, ssize_t errlen); -static int path_from_string (struct option_t* dst, const char* val, - char* errbuf, ssize_t errlen); -static int quad_from_string (struct option_t* dst, const char* val, - char* errbuf, ssize_t errlen); -static int sort_from_string (struct option_t* dst, const char* val, - char* errbuf, ssize_t errlen); -static int rx_from_string (struct option_t* dst, const char* val, - char* errbuf, ssize_t errlen); -static int magic_from_string (struct option_t* dst, const char* val, - char* errbuf, ssize_t errlen); -static int addr_from_string (struct option_t* dst, const char* val, - char* errbuf, ssize_t errlen); -static int user_from_string (struct option_t* dst, const char* val, - char* errbuf, ssize_t errlen); - -static struct { - unsigned short type; - void (*opt_tostr) (char* dst, ssize_t dstlen, struct option_t* option); - int (*opt_fromstr) (struct option_t* dst, const char* val, - char* errbuf, ssize_t errlen); -} FuncTable[] = { - { 0, NULL, NULL }, /* there's no DT_ type with 0 */ - { DT_BOOL, bool_to_string, bool_from_string }, - { DT_NUM, num_to_string, num_from_string }, - { DT_STR, str_to_string, str_from_string }, - { DT_PATH, str_to_string, path_from_string }, - { DT_QUAD, quad_to_string, quad_from_string }, - { DT_SORT, sort_to_string, sort_from_string }, - { DT_RX, rx_to_string, rx_from_string }, - { DT_MAGIC, magic_to_string, magic_from_string }, - /* synonyms should be resolved already so we don't need this - * but must define it as DT_ is used for indexing */ - { DT_SYN, NULL, NULL }, - { DT_ADDR, addr_to_string, addr_from_string }, - { DT_USER, user_to_string, user_from_string }, - { DT_SYS, sys_to_string, NULL }, -}; - static void bool_to_string (char* dst, ssize_t dstlen, struct option_t* option) { snprintf (dst, dstlen, "%s=%s", option->option, @@ -233,55 +160,6 @@ static void str_to_string (char* dst, ssize_t dstlen, NONULL (*((char**) option->data))); } -static void user_to_string (char* dst, ssize_t dstlen, - struct option_t* option) { - snprintf (dst, dstlen, "%s=\"%s\"", option->option, - NONULL (((char*) option->data))); -} - -static void sys_to_string (char* dst, ssize_t dstlen, - struct option_t* option) { - char *val = NULL, *t = NULL; - int clean = 0; - - /* get some $madmutt_ values dynamically */ - if (m_strcmp("madmutt_pwd", option->option) == 0) { - val = p_new(char, _POSIX_PATH_MAX); - val = getcwd (val, _POSIX_PATH_MAX-1); - clean = 1; - } else if (m_strcmp("madmutt_folder_path", option->option) == 0 && - CurrentFolder && *CurrentFolder) { - val = CurrentFolder; - } else if (m_strcmp("madmutt_folder_name", option->option) == 0 && - CurrentFolder && *CurrentFolder) { - - ssize_t Maildirlength = m_strlen(Maildir); - - /* - * if name starts with $folder, just strip it to keep hierarchy - * $folder=imap://host, path=imap://host/inbox/b -> inbox/b - */ - if (Maildirlength > 0 && m_strncmp(CurrentFolder, Maildir, - Maildirlength) == 0 && - m_strlen(CurrentFolder) > Maildirlength) { - val = CurrentFolder + Maildirlength; - if (Maildir[Maildirlength]!='/') - val += 1; - /* if not $folder, just use everything after last / */ - } else if ((t = strrchr (CurrentFolder, '/')) != NULL) - val = t+1; - /* default: use as-is */ - else - val = (char *) CurrentFolder; - - } else - val = (char *) option->init; - - snprintf (dst, dstlen, "%s=\"%s\"", option->option, NONULL (val)); - if (clean) - p_delete(&val); -} - static int path_from_string (struct option_t* dst, const char* val, char* errbuf __attribute__ ((unused)), ssize_t errlen __attribute__ ((unused))) { char path[_POSIX_PATH_MAX]; @@ -313,24 +191,6 @@ static int str_from_string (struct option_t* dst, const char* val, return (1); } -static int user_from_string (struct option_t* dst, const char* val, - char* errbuf __attribute__ ((unused)), ssize_t errlen __attribute__ ((unused))) { - /* if dst == NULL, we may get here in case the user did unset it, - * see parse_set() where item is free()'d before coming here; so - * just silently ignore it */ - if (!dst) - return (1); - if (m_strlen((char*) dst->data) == 0) - dst->data = (unsigned long) m_strdup(val); - else { - char* s = (char*) dst->data; - m_strreplace(&s, val); - } - if (m_strlen(dst->init) == 0) - dst->init = m_strdup((char*) dst->data); - return (1); -} - static void quad_to_string (char* dst, ssize_t dstlen, struct option_t* option) { const char *vals[] = { "no", "yes", "ask-no", "ask-yes" }; @@ -404,7 +264,7 @@ static int rx_from_string (struct option_t* dst, const char* val, char* errbuf, ssize_t errlen) { rx_t* p = NULL; regex_t* rx = NULL; - int flags = 0, e = 0, not = 0; + int flags = 0, e = 0, neg = 0; char* s = NULL; if (!dst) @@ -431,7 +291,7 @@ static int rx_from_string (struct option_t* dst, const char* val, s = (char*) val; if (m_strcmp(dst->option, "mask") == 0 && *s == '!') { - not = 1; + neg = 1; s++; } @@ -451,7 +311,7 @@ static int rx_from_string (struct option_t* dst, const char* val, m_strreplace(&p->pattern, val); p->rx = rx; - p->not = not; + p->neg = neg; if (m_strcmp(dst->option, "reply_regexp") == 0) mutt_adjust_all_subjects (); @@ -464,7 +324,6 @@ static void magic_to_string (char* dst, ssize_t dstlen, const char* s = NULL; switch (option->data) { case M_MBOX: s = "mbox"; break; - case M_MMDF: s = "MMDF"; break; case M_MH: s = "MH"; break; case M_MAILDIR: s = "Maildir"; break; default: s = "unknown"; break; @@ -473,15 +332,14 @@ static void magic_to_string (char* dst, ssize_t dstlen, } static int magic_from_string (struct option_t* dst, const char* val, - char* errbuf __attribute__ ((unused)), ssize_t errlen __attribute__ ((unused))) { + char *errbuf, ssize_t errlen) +{ int flag = -1; if (!dst || m_strisempty(val)) return (0); if (ascii_strncasecmp (val, "mbox", 4) == 0) flag = M_MBOX; - else if (ascii_strncasecmp (val, "mmdf", 4) == 0) - flag = M_MMDF; else if (ascii_strncasecmp (val, "mh", 2) == 0) flag = M_MH; else if (ascii_strncasecmp (val, "maildir", 7) == 0) @@ -495,23 +353,23 @@ static int magic_from_string (struct option_t* dst, const char* val, } -static void addr_to_string (char* dst, ssize_t dstlen, - struct option_t* option) { - char s[HUGE_STRING]; - s[0] = '\0'; - rfc822_addrcat(s, sizeof(s), *((address_t**) option->data), 0); - snprintf (dst, dstlen, "%s=\"%s\"", option->option, NONULL (s)); -} +static struct { + unsigned short type; + void (*opt_tostr) (char* dst, ssize_t dstlen, struct option_t* option); + int (*opt_fromstr) (struct option_t* dst, const char* val, + char* errbuf, ssize_t errlen); +} FuncTable[] = { + { 0, NULL, NULL }, /* there's no DT_ type with 0 */ + { DT_BOOL, bool_to_string, bool_from_string }, + { DT_NUM, num_to_string, num_from_string }, + { DT_STR, str_to_string, str_from_string }, + { DT_PATH, str_to_string, path_from_string }, + { DT_QUAD, quad_to_string, quad_from_string }, + { DT_SORT, sort_to_string, sort_from_string }, + { DT_RX, rx_to_string, rx_from_string }, + { DT_MAGIC, magic_to_string, magic_from_string }, +}; -static int addr_from_string (struct option_t* dst, const char* val, - char* errbuf __attribute__ ((unused)), ssize_t errlen __attribute__ ((unused))) { - if (!dst) - return (0); - address_list_wipe((address_t**) dst->data); - if (val && *val) - *((address_t**) dst->data) = rfc822_parse_adrlist (NULL, val); - return (1); -} int mutt_option_value (const char* val, char* dst, ssize_t dstlen) { struct option_t* option = NULL; @@ -567,329 +425,36 @@ int quadoption (int opt) return (QuadOptions[n] >> b) & 0x3; } -int query_quadoption (int opt, const char *prompt) +int query_quadoption2(int v, const char *prompt) { - int v = quadoption (opt); - switch (v) { case M_YES: case M_NO: return (v); default: - v = mutt_yesorno (prompt, (v == M_ASKYES)); - CLEARLINE (LINES - 1); + v = mutt_yesorno(prompt, (v == M_ASKYES)); + CLEARLINE(stdscr, LINES - 1); return (v); } - - /* not reached */ -} - -static void add_to_list(string_list_t **list, const char *str) -{ - /* don't add a NULL or empty string to the list */ - if (m_strisempty(str)) - return; - - /* check to make sure the item is not already on this list */ - while (*list) { - if (!ascii_strcasecmp(str, (*list)->data)) - return; - list = &(*list)->next; - } - - *list = p_new(string_list_t, 1); - (*list)->data = m_strdup(str); -} - -static int -add_to_rx_list(rx_t **list, const char *s, int flags, BUFFER *err) -{ - rx_t *rx; - - if (m_strisempty(s)) - return 0; - - if (rx_lookup(list, s)) - return 0; - - rx = rx_compile(s, flags); - if (!rx) { - snprintf(err->data, err->dsize, "Bad regexp: %s\n", s); - return -1; - } - - rx_list_append(list, rx); - return 0; -} - -static int add_to_spam_list(rx_t **list, const char *pat, - const char *templ, BUFFER * err) -{ - rx_t *rx; - - if (m_strisempty(pat) || !templ) - return 0; - - if (!(rx = rx_compile (pat, REG_ICASE))) { - snprintf (err->data, err->dsize, _("Bad regexp: %s"), pat); - return -1; - } - - /* check to make sure the item is not already on this list */ - while (*list) { - if (!ascii_strcasecmp(rx->pattern, (*list)->pattern)) { - rx_t *tmp = rx_list_pop(list); - rx_delete(&tmp); - } else { - list = &(*list)->next; - } - } - - *list = rx; - rx_set_template(rx, templ); - return 0; -} - -static int remove_from_spam_list (rx_t ** list, const char *pat) -{ - int nremoved = 0; - - while (*list) { - if (!m_strcmp((*list)->pattern, pat)) { - rx_t *spam = rx_list_pop(list); - rx_delete(&spam); - nremoved++; - } else { - list = &(*list)->next; - } - } - - return nremoved; -} - - -static void remove_from_list(string_list_t **l, const char *str) -{ - if (!m_strcmp("*", str)) { - string_list_wipe(l); /* ``unCMD *'' means delete all current entries */ - return; - } - - while (*l) { - if (!ascii_strcasecmp(str, (*l)->data)) { - string_list_t *it = string_list_pop(l); - string_item_delete(&it); - } else { - l = &(*l)->next; - } - } -} - -static int remove_from_rx_list(rx_t **l, const char *str) -{ - if (m_strcmp("*", str) == 0) { - rx_list_wipe(l); - return 0; - } - - l = rx_lookup(l, str); - if (l) { - rx_t *r = rx_list_pop(l); - rx_delete(&r); - return 0; - } - - return -1; -} - -static int parse_unignore (BUFFER * buf, BUFFER * s, - unsigned long data __attribute__ ((unused)), - BUFFER * err __attribute__ ((unused))) -{ - do { - mutt_extract_token (buf, s, 0); - - /* don't add "*" to the unignore list */ - if (m_strcmp (buf->data, "*")) - add_to_list (&UnIgnore, buf->data); - - remove_from_list (&Ignore, buf->data); - } while (MoreArgs (s)); - - return 0; -} - -static int parse_ignore (BUFFER * buf, BUFFER * s, - unsigned long data __attribute__ ((unused)), - BUFFER * err __attribute__ ((unused))) -{ - do { - mutt_extract_token (buf, s, 0); - remove_from_list (&UnIgnore, buf->data); - add_to_list (&Ignore, buf->data); - } while (MoreArgs(s)); - return 0; -} - -static int parse_list (BUFFER * buf, BUFFER * s, - unsigned long data __attribute__ ((unused)), - BUFFER * err __attribute__ ((unused))) -{ - do { - mutt_extract_token (buf, s, 0); - add_to_list ((string_list_t **) data, buf->data); - } while (MoreArgs(s)); - return 0; -} - -static void _alternates_clean (void) -{ - int i; - - if (Context && Context->msgcount) { - for (i = 0; i < Context->msgcount; i++) - Context->hdrs[i]->recip_valid = 0; - } -} - -static int parse_alternates (BUFFER * buf, BUFFER * s, - unsigned long data __attribute__ ((unused)), - BUFFER * err __attribute__ ((unused))) -{ - _alternates_clean (); - do { - mutt_extract_token (buf, s, 0); - remove_from_rx_list (&UnAlternates, buf->data); - - if (add_to_rx_list (&Alternates, buf->data, REG_ICASE, err) != 0) - return -1; - } - while (MoreArgs (s)); - - return 0; -} - -static int parse_unalternates (BUFFER * buf, BUFFER * s, - unsigned long data __attribute__ ((unused)), - BUFFER * err __attribute__ ((unused))) -{ - _alternates_clean (); - do { - mutt_extract_token (buf, s, 0); - remove_from_rx_list (&Alternates, buf->data); - - if (m_strcmp(buf->data, "*") && - add_to_rx_list (&UnAlternates, buf->data, REG_ICASE, err) != 0) - return -1; - - } - while (MoreArgs (s)); - - return 0; -} - -static int parse_spam_list (BUFFER * buf, BUFFER * s, unsigned long data, - BUFFER * err) -{ - BUFFER templ; - - p_clear(&templ, 1); - - /* Insist on at least one parameter */ - if (!MoreArgs (s)) { - if (data == M_SPAM) - m_strcpy(err->data, err->dsize, _("spam: no matching pattern")); - else - m_strcpy(err->data, err->dsize, _("nospam: no matching pattern")); - return -1; - } - - /* Extract the first token, a regexp */ - mutt_extract_token (buf, s, 0); - - /* data should be either M_SPAM or M_NOSPAM. M_SPAM is for spam commands. */ - if (data == M_SPAM) { - /* If there's a second parameter, it's a template for the spam tag. */ - if (MoreArgs (s)) { - mutt_extract_token (&templ, s, 0); - - /* Add to the spam list. */ - if (add_to_spam_list (&SpamList, buf->data, templ.data, err) != 0) { - p_delete(&templ.data); - return -1; - } - p_delete(&templ.data); - } - - /* If not, try to remove from the nospam list. */ - else { - remove_from_rx_list (&NoSpamList, buf->data); - } - - return 0; - } - - /* M_NOSPAM is for nospam commands. */ - else if (data == M_NOSPAM) { - /* nospam only ever has one parameter. */ - - /* "*" is a special case. */ - if (!m_strcmp(buf->data, "*")) { - rx_list_wipe(&SpamList); - rx_list_wipe(&NoSpamList); - return 0; - } - - /* If it's on the spam list, just remove it. */ - if (remove_from_spam_list (&SpamList, buf->data) != 0) - return 0; - - /* Otherwise, add it to the nospam list. */ - if (add_to_rx_list (&NoSpamList, buf->data, REG_ICASE, err) != 0) - return -1; - - return 0; - } - - /* This should not happen. */ - m_strcpy(err->data, err->dsize, "This is no good at all."); - return -1; } -static int parse_unlist (BUFFER * buf, BUFFER * s, unsigned long data, - BUFFER * err __attribute__ ((unused))) +int query_quadoption (int opt, const char *prompt) { - do { - mutt_extract_token (buf, s, 0); - /* - * Check for deletion of entire list - */ - if (m_strcmp(buf->data, "*") == 0) { - string_list_wipe((string_list_t **) data); - break; - } - remove_from_list ((string_list_t **) data, buf->data); - } - while (MoreArgs (s)); - - return 0; -} + int v = quadoption (opt); -static int parse_lists (BUFFER * buf, BUFFER * s, - unsigned long data __attribute__ ((unused)), - BUFFER * err) -{ - do { - mutt_extract_token (buf, s, 0); - remove_from_rx_list (&UnMailLists, buf->data); + switch (v) { + case M_YES: + case M_NO: + return (v); - if (add_to_rx_list (&MailLists, buf->data, REG_ICASE, err) != 0) - return -1; + default: + v = mutt_yesorno (prompt, (v == M_ASKYES)); + CLEARLINE(stdscr, LINES - 1); + return (v); } - while (MoreArgs (s)); - return 0; + /* not reached */ } /* always wise to do what someone else did before */ @@ -994,7 +559,7 @@ static int parse_unattach_list (BUFFER *buf, BUFFER *s, string_list_t **ldata, } major = mutt_check_mime_type(tmp); - /* We must do our own walk here because remove_from_list() will only + /* We must do our own walk here because string_list_remove() will only * remove the string_list_t->data, not anything pointed to by the string_list_t->data. */ lastp = NULL; for(lp = *ldata; lp; ) { @@ -1126,59 +691,6 @@ static int parse_unattachments (BUFFER *buf, BUFFER *s, unsigned long data __att return parse_unattach_list(buf, s, listp, err); } -static int parse_unlists (BUFFER * buf, BUFFER * s, - unsigned long data __attribute__ ((unused)), - BUFFER * err __attribute__ ((unused))) -{ - do { - mutt_extract_token (buf, s, 0); - remove_from_rx_list (&SubscribedLists, buf->data); - remove_from_rx_list (&MailLists, buf->data); - - if (m_strcmp(buf->data, "*") && - add_to_rx_list (&UnMailLists, buf->data, REG_ICASE, err) != 0) - return -1; - } - while (MoreArgs (s)); - - return 0; -} - -static int parse_subscribe (BUFFER * buf, BUFFER * s, unsigned long data __attribute__ ((unused)), - BUFFER * err) -{ - do { - mutt_extract_token (buf, s, 0); - remove_from_rx_list (&UnMailLists, buf->data); - remove_from_rx_list (&UnSubscribedLists, buf->data); - - if (add_to_rx_list (&MailLists, buf->data, REG_ICASE, err) != 0) - return -1; - if (add_to_rx_list (&SubscribedLists, buf->data, REG_ICASE, err) != 0) - return -1; - } - while (MoreArgs (s)); - - return 0; -} - -static int parse_unsubscribe (BUFFER * buf, BUFFER * s, - unsigned long data __attribute__ ((unused)), - BUFFER * err __attribute__ ((unused))) -{ - do { - mutt_extract_token (buf, s, 0); - remove_from_rx_list (&SubscribedLists, buf->data); - - if (m_strcmp(buf->data, "*") && - add_to_rx_list (&UnSubscribedLists, buf->data, REG_ICASE, err) != 0) - return -1; - } - while (MoreArgs (s)); - - return 0; -} - static int parse_unalias (BUFFER * buf, BUFFER * s, unsigned long data __attribute__ ((unused)), BUFFER * err __attribute__ ((unused))) @@ -1251,8 +763,7 @@ static int parse_alias (BUFFER * buf, BUFFER * s, set_option (OPTFORCEREDRAWINDEX); } - mutt_extract_token(buf, s, - M_TOKEN_QUOTE | M_TOKEN_SPACE | M_TOKEN_SEMICOLON); + mutt_extract_token(buf, s, M_TOKEN_QUOTE | M_TOKEN_SPACE); (*last)->addr = mutt_parse_adrlist((*last)->addr, buf->data); if (mutt_addrlist_to_idna((*last)->addr, &estr)) { snprintf (err->data, err->dsize, @@ -1367,53 +878,21 @@ static void mutt_set_default(const char *name __attribute__ ((unused)), void* p, char buf[LONG_STRING]; struct option_t *ptr = p; - if (DTYPE(ptr->type) == DT_SYN) { - if (!more) - return; - ptr = hash_find(ConfigOptions, (const char *)ptr->data); - } if (!ptr || *ptr->init || !FuncTable[DTYPE (ptr->type)].opt_fromstr) return; mutt_option_value(ptr->option, buf, sizeof(buf)); - if (m_strlen(ptr->init) == 0 && buf && *buf) + if (m_strlen(ptr->init) == 0 && *buf) ptr->init = m_strdup(buf); } -static struct option_t* add_option (const char* name, const char* init, - short type, short dodup) { - struct option_t* option = p_new(struct option_t, 1); - - option->option = m_strdup(name); - option->type = type; - if (init) - option->init = dodup ? m_strdup(init) : (char*) init; - return (option); -} - -/* creates new option_t* of type DT_USER for $user_ var */ -static struct option_t* add_user_option (const char* name) { - return (add_option (name, NULL, DT_USER, 1)); -} - -/* free()'s option_t* */ -static void del_option (void* p) { - struct option_t *ptr = (struct option_t*) p; - char* s = (char*) ptr->data; - p_delete(&ptr->option); - p_delete(&s); - p_delete(&ptr->init); - p_delete(&ptr); -} - static int init_expand (char** dst, struct option_t* src) { BUFFER token, in; ssize_t len = 0; p_delete(dst); - if (DTYPE(src->type) == DT_STR || - DTYPE(src->type) == DT_PATH) { + if (DTYPE(src->type) == DT_STR || DTYPE(src->type) == DT_PATH) { /* only expand for string as it's the only place where * we want to expand vars right now */ if (src->init && *src->init) { @@ -1446,11 +925,6 @@ static void mutt_restore_default (const char* name __attribute__ ((unused)), struct option_t* ptr = (struct option_t*) p; char* init = NULL; - if (DTYPE (ptr->type) == DT_SYN) { - if (!more) - return; - ptr = hash_find (ConfigOptions, (char*) ptr->data); - } if (!ptr) return; if (FuncTable[DTYPE (ptr->type)].opt_fromstr) { @@ -1467,57 +941,12 @@ static void mutt_restore_default (const char* name __attribute__ ((unused)), p_delete(&init); } - if (ptr->flags & R_INDEX) - set_option (OPTFORCEREDRAWINDEX); - if (ptr->flags & R_PAGER) - set_option (OPTFORCEREDRAWPAGER); - if (ptr->flags & R_RESORT_SUB) - set_option (OPTSORTSUBTHREADS); - if (ptr->flags & R_RESORT) - set_option (OPTNEEDRESORT); - if (ptr->flags & R_RESORT_INIT) - set_option (OPTRESORTINIT); - if (ptr->flags & R_TREE) - set_option (OPTREDRAWTREE); -} - -/* check whether value for $dsn_return would be valid */ -static int check_dsn_return (const char* option __attribute__ ((unused)), unsigned long p, - char* errbuf, ssize_t errlen) { - char* val = (char*) p; - if (val && *val && m_strncmp(val, "hdrs", 4) != 0 && - m_strncmp(val, "full", 4) != 0) { - if (errbuf) - snprintf (errbuf, errlen, _("'%s' is invalid for $%s"), val, "dsn_return"); - return (0); - } - return (1); -} - -/* check whether value for $dsn_notify would be valid */ -static int -check_dsn_notify (const char* option __attribute__ ((unused)), - unsigned long val, char* errbuf, ssize_t errlen) -{ - const char *p = (const char*)val; - - while (p && *p) { - const char *q = m_strchrnul(p, ','); - int len = q - p; - - if (!m_strncmp(p, "never", len) && !m_strncmp(p, "delay", len) - && !m_strncmp(p, "failure", len) && !m_strncmp(p, "success", len)) - { - if (errbuf) - snprintf(errbuf, errlen, _("'%.*s' is invalid for $%s"), - len, p, "dsn_notify"); - return 0; - } - - p = q + 1; - } - - return 1; + set_option (OPTFORCEREDRAWINDEX); + set_option (OPTFORCEREDRAWPAGER); + set_option (OPTSORTSUBTHREADS); + set_option (OPTNEEDRESORT); + set_option (OPTRESORTINIT); + set_option (OPTREDRAWTREE); } static int check_num (const char* option, unsigned long p, @@ -1574,15 +1003,6 @@ static const struct mapping_t* get_sortmap (struct option_t* option) { return (map); } -#define CHECK_PAGER \ - if ((CurrentMenu == MENU_PAGER) && \ - (!option || (option->flags & R_RESORT))) \ - { \ - snprintf (err->data, err->dsize, \ - _("Not available in this menu.")); \ - return (-1); \ - } - static int parse_set (BUFFER * tmp, BUFFER * s, unsigned long data, BUFFER * err) { @@ -1615,31 +1035,7 @@ static int parse_set (BUFFER * tmp, BUFFER * s, unsigned long data, /* get the variable name */ mutt_extract_token (tmp, s, M_TOKEN_EQUAL); - - /* resolve synonyms */ - if ((option = hash_find (ConfigOptions, tmp->data)) != NULL && - DTYPE (option->type == DT_SYN)) - { - struct option_t* newopt = hash_find (ConfigOptions, (char*) option->data); - syn_t* syn = syn_new(); - syn->f = m_strdup(CurRCFile); - syn->l = CurRCLine; - syn->n = newopt; - syn->o = option; - syn_list_push(&Synonyms, syn); - option = newopt; - } - - /* see if we need to add $user_ var */ - if (!option && m_strncmp("user_", tmp->data, 5) == 0) { - /* there's no option named like this yet so only add one - * if the action isn't any of: reset, unset, query */ - if (!(reset || unset || query || *s->dptr != '=')) { - option = add_user_option (tmp->data); - hash_insert (ConfigOptions, option->option, option, 0); - } - } - + option = hash_find(ConfigOptions, tmp->data); if (!option && !(reset && m_strcmp("all", tmp->data) == 0)) { snprintf (err->data, err->dsize, _("%s: unknown variable"), tmp->data); return (-1); @@ -1670,13 +1066,7 @@ static int parse_set (BUFFER * tmp, BUFFER * s, unsigned long data, set_option (OPTRESORTINIT); set_option (OPTREDRAWTREE); return (0); - } - else if (!FuncTable[DTYPE (option->type)].opt_fromstr) { - snprintf (err->data, err->dsize, _("$%s is read-only"), option->option); - r = -1; - break; } else { - CHECK_PAGER; mutt_restore_default (NULL, option, 1); } } @@ -1706,7 +1096,6 @@ static int parse_set (BUFFER * tmp, BUFFER * s, unsigned long data, return 0; } - CHECK_PAGER; if (unset) unset_option (option->data); else if (inv) @@ -1716,35 +1105,15 @@ static int parse_set (BUFFER * tmp, BUFFER * s, unsigned long data, } else if (DTYPE (option->type) == DT_STR || DTYPE (option->type) == DT_PATH || - DTYPE (option->type) == DT_ADDR || DTYPE (option->type) == DT_MAGIC || DTYPE (option->type) == DT_NUM || DTYPE (option->type) == DT_SORT || - DTYPE (option->type) == DT_RX || - DTYPE (option->type) == DT_USER || - DTYPE (option->type) == DT_SYS) { - + DTYPE (option->type) == DT_RX) + { /* XXX maybe we need to get unset into handlers? */ - if (DTYPE (option->type) == DT_STR || - DTYPE (option->type) == DT_PATH || - DTYPE (option->type) == DT_ADDR || - DTYPE (option->type) == DT_USER || - DTYPE (option->type) == DT_SYS) { + if (DTYPE (option->type) == DT_STR || DTYPE (option->type) == DT_PATH) { if (unset) { - CHECK_PAGER; - if (!FuncTable[DTYPE (option->type)].opt_fromstr) { - snprintf (err->data, err->dsize, _("$%s is read-only"), - option->option); - r = -1; - break; - } else if (DTYPE (option->type) == DT_ADDR) - address_list_wipe((address_t **) option->data); - else if (DTYPE (option->type) == DT_USER) - /* to unset $user_ means remove */ - hash_delete (ConfigOptions, option->option, - option, del_option); - else - p_delete((void **)(void *)&option->data); + p_delete((void **)(void *)&option->data); break; } } @@ -1755,20 +1124,11 @@ static int parse_set (BUFFER * tmp, BUFFER * s, unsigned long data, break; } - /* the $madmutt_ variables are read-only */ - if (!FuncTable[DTYPE (option->type)].opt_fromstr) { - snprintf (err->data, err->dsize, _("$%s is read-only"), - option->option); + s->dptr++; + mutt_extract_token (tmp, s, 0); + if (!FuncTable[DTYPE (option->type)].opt_fromstr + (option, tmp->data, err->data, err->dsize)) r = -1; - break; - } else { - CHECK_PAGER; - s->dptr++; - mutt_extract_token (tmp, s, 0); - if (!FuncTable[DTYPE (option->type)].opt_fromstr - (option, tmp->data, err->data, err->dsize)) - r = -1; - } } else if (DTYPE (option->type) == DT_QUAD) { @@ -1778,7 +1138,6 @@ static int parse_set (BUFFER * tmp, BUFFER * s, unsigned long data, } if (*s->dptr == '=') { - CHECK_PAGER; s->dptr++; mutt_extract_token (tmp, s, 0); if (ascii_strcasecmp ("yes", tmp->data) == 0) @@ -1812,18 +1171,12 @@ static int parse_set (BUFFER * tmp, BUFFER * s, unsigned long data, break; } - if (option->flags & R_INDEX) - set_option (OPTFORCEREDRAWINDEX); - if (option->flags & R_PAGER) - set_option (OPTFORCEREDRAWPAGER); - if (option->flags & R_RESORT_SUB) - set_option (OPTSORTSUBTHREADS); - if (option->flags & R_RESORT) - set_option (OPTNEEDRESORT); - if (option->flags & R_RESORT_INIT) - set_option (OPTRESORTINIT); - if (option->flags & R_TREE) - set_option (OPTREDRAWTREE); + set_option (OPTFORCEREDRAWINDEX); + set_option (OPTFORCEREDRAWPAGER); + set_option (OPTSORTSUBTHREADS); + set_option (OPTNEEDRESORT); + set_option (OPTRESORTINIT); + set_option (OPTREDRAWTREE); } return (r); } @@ -1849,12 +1202,12 @@ static int source_rc (const char *rcfile, BUFFER * err) p_clear(&token, 1); while ((linebuf = mutt_read_line(linebuf, &buflen, f, &line)) != NULL) { - conv = ConfigCharset && (*ConfigCharset) && Charset; + conv = ConfigCharset && (*ConfigCharset) && mod_cset.charset; if (conv) { currentline = m_strdup(linebuf); if (!currentline) continue; - mutt_convert_string (¤tline, ConfigCharset, Charset, 0); + mutt_convert_string (¤tline, ConfigCharset, mod_cset.charset, 0); } else currentline = linebuf; @@ -1928,7 +1281,7 @@ static int parse_source (BUFFER * tmp, BUFFER * s, every call to this function. err where to write error messages */ -int mutt_parse_rc_line ( /* const */ char *line, BUFFER * token, BUFFER * err) +int mutt_parse_rc_line (const char *line, BUFFER * token, BUFFER * err) { int i, r = -1; BUFFER expn; @@ -2185,9 +1538,6 @@ int mutt_var_value_complete (char *buffer, ssize_t len, int pos) if (DTYPE (option->type) == DT_PATH) mutt_pretty_mailbox (tmp); } - else if (DTYPE (option->type) == DT_ADDR) { - rfc822_addrcat(tmp, sizeof(tmp), *((address_t **) option->data), 0); - } else if (DTYPE (option->type) == DT_QUAD) m_strcpy(tmp, sizeof(tmp), vals[quadoption(option->data)]); else if (DTYPE (option->type) == DT_NUM) @@ -2221,12 +1571,9 @@ int mutt_var_value_complete (char *buffer, ssize_t len, int pos) case M_MBOX: p = "mbox"; break; - case M_MMDF: - p = "MMDF"; - break; case M_MH: p = "MH"; - break; + break; case M_MAILDIR: p = "Maildir"; break; @@ -2256,36 +1603,6 @@ int mutt_var_value_complete (char *buffer, ssize_t len, int pos) return 0; } -/* Implement the -Q command line flag */ -int mutt_query_variables (string_list_t * queries) -{ - string_list_t *p; - - char errbuff[STRING]; - char command[STRING]; - - BUFFER err, token; - - p_clear(&err, 1); - p_clear(&token, 1); - - err.data = errbuff; - err.dsize = sizeof(errbuff); - - for (p = queries; p; p = p->next) { - snprintf (command, sizeof(command), "set ?%s\n", p->data); - if (mutt_parse_rc_line (command, &token, &err) == -1) { - fprintf (stderr, "%s\n", err.data); - p_delete(&token.data); - return 1; - } - printf ("%s\n", err.data); - } - - p_delete(&token.data); - return 0; -} - static int mutt_execute_commands (string_list_t * p) { BUFFER err, token; @@ -2309,7 +1626,6 @@ static int mutt_execute_commands (string_list_t * p) void mutt_init (int skip_sys_rc, string_list_t * commands) { struct passwd *pw; - struct utsname utsname; const char *p; char buffer[STRING], error[STRING]; int default_rc = 0, need_pause = 0; @@ -2320,16 +1636,9 @@ void mutt_init (int skip_sys_rc, string_list_t * commands) err.data = error; err.dsize = sizeof(error); - /* use 3*sizeof(muttvars) instead of 2*sizeof() - * to have some room for $user_ vars */ - ConfigOptions = hash_create (sizeof(MuttVars) * 3); + ConfigOptions = hash_new (sizeof(MuttVars) * 2, 0); for (i = 0; MuttVars[i].option; i++) { - if (DTYPE (MuttVars[i].type) != DT_SYS) - hash_insert (ConfigOptions, MuttVars[i].option, &MuttVars[i], 0); - else - hash_insert (ConfigOptions, MuttVars[i].option, - add_option (MuttVars[i].option, MuttVars[i].init, - DT_SYS, 0), 0); + hash_insert (ConfigOptions, MuttVars[i].option, &MuttVars[i]); } /* @@ -2338,114 +1647,21 @@ void mutt_init (int skip_sys_rc, string_list_t * commands) snprintf (AttachmentMarker, sizeof(AttachmentMarker), "\033]9;%ld\a", (long) time (NULL)); - /* on one of the systems I use, getcwd() does not return the same prefix - as is listed in the passwd file */ - if ((p = getenv ("HOME"))) - Homedir = m_strdup(p); - + luaM_initialize(); /* Get some information about the user */ if ((pw = getpwuid (getuid ()))) { char rnbuf[STRING]; - - Username = m_strdup(pw->pw_name); - if (!Homedir) - Homedir = m_strdup(pw->pw_dir); - - mutt_gecos_name(rnbuf, sizeof(rnbuf), pw, GecosMask.rx); + mutt_gecos_name(rnbuf, sizeof(rnbuf), pw, mod_core.gecos_mask); Realname = m_strdup(rnbuf); - Shell = m_strdup(pw->pw_shell); - endpwent (); - } - else { - if (!Homedir) { - mutt_endwin (NULL); - fputs (_("unable to determine home directory"), stderr); - exit (1); - } - if ((p = getenv ("USER"))) - Username = m_strdup(p); - else { - mutt_endwin (NULL); - fputs (_("unable to determine username"), stderr); - exit (1); - } - Shell = m_strdup((p = getenv ("SHELL")) ? p : "/bin/sh"); - } - - /* And about the host... */ - uname (&utsname); - /* some systems report the FQDN instead of just the hostname */ - if ((p = strchr (utsname.nodename, '.'))) { - Hostname = p_dupstr(utsname.nodename, p - utsname.nodename); - p++; - m_strcpy(buffer, sizeof(buffer), p); /* save the domain for below */ - } - else - Hostname = m_strdup(utsname.nodename); - - if (!p && getdnsdomainname(buffer, sizeof(buffer)) == -1) - Fqdn = m_strdup("@"); - else - if (*buffer != '@') { - Fqdn = p_new(char, m_strlen(buffer) + m_strlen(Hostname) + 2); - sprintf (Fqdn, "%s.%s", NONULL(Hostname), buffer); - } - else - Fqdn = m_strdup(NONULL (Hostname)); - -#ifdef USE_NNTP - { - FILE *f; - char *q; - - if ((f = safe_fopen (SYSCONFDIR "/nntpserver", "r"))) { - buffer[0] = '\0'; - fgets (buffer, sizeof(buffer), f); - p = vskipspaces(buffer); - q = (char*)p; - while (*q && !isspace(*q)) - q++; - *q = '\0'; - NewsServer = m_strdup(p); - m_fclose(&f); - } } - if ((p = getenv ("NNTPSERVER"))) - NewsServer = m_strdup(p); -#endif - if ((p = getenv ("MAIL"))) - Spoolfile = m_strdup(p); - else if ((p = getenv ("MAILDIR"))) + if ((p = getenv("MAIL") ?: getenv("MAILDIR"))) { Spoolfile = m_strdup(p); - else { -#ifdef HOMESPOOL - mutt_concat_path(buffer, sizeof(buffer), NONULL(Homedir), MAILPATH); -#else - mutt_concat_path(buffer, sizeof(buffer), MAILPATH, NONULL(Username)); -#endif + } else { + mutt_concat_path(buffer, sizeof(buffer), NONULL(mod_core.homedir), MAILPATH); Spoolfile = m_strdup(buffer); } - if ((p = getenv ("MAILCAPS"))) - MailcapPath = m_strdup(p); - else { - /* Default search path from RFC1524 */ - MailcapPath = - m_strdup("~/.mailcap:" PKGDATADIR "/mailcap:" SYSCONFDIR - "/mailcap:/etc/mailcap:/usr/etc/mailcap:/usr/local/etc/mailcap"); - } - - Tempdir = m_strdup((p = getenv ("TMPDIR")) ? p : "/tmp"); - - p = getenv ("VISUAL"); - if (!p) { - p = getenv ("EDITOR"); - if (!p) - p = "vi"; - } - Editor = m_strdup(p); - if ((p = getenv ("REPLYTO")) != NULL) { BUFFER buf, token; @@ -2460,30 +1676,18 @@ void mutt_init (int skip_sys_rc, string_list_t * commands) p_delete(&token.data); } - if ((p = getenv ("EMAIL")) != NULL) - From = rfc822_parse_adrlist (NULL, p); - - charset_initialize(); - /* Set standard defaults */ hash_map (ConfigOptions, mutt_set_default, 0); hash_map (ConfigOptions, mutt_restore_default, 0); CurrentMenu = MENU_MAIN; - -#ifdef HAVE_GETSID - /* Unset suspend by default if we're the session leader */ - if (getsid (0) == getpid ()) - unset_option (OPTSUSPEND); -#endif - mutt_init_history (); if (!Muttrc) { - snprintf (buffer, sizeof(buffer), "%s/.madmuttrc", NONULL (Homedir)); + snprintf (buffer, sizeof(buffer), "%s/.madmuttrc", NONULL(mod_core.homedir)); if (access (buffer, F_OK) == -1) snprintf (buffer, sizeof(buffer), "%s/.madmutt/madmuttrc", - NONULL (Homedir)); + NONULL(mod_core.homedir)); default_rc = 1; Muttrc = m_strdup(buffer); @@ -2494,8 +1698,6 @@ void mutt_init (int skip_sys_rc, string_list_t * commands) mutt_expand_path (buffer, sizeof(buffer)); Muttrc = m_strdup(buffer); } - p_delete(&AliasFile); - AliasFile = m_strdup(NONULL (Muttrc)); /* Process the global rc file if it exists and the user hasn't explicity requested not to via "-n". */ @@ -2535,6 +1737,15 @@ void mutt_init (int skip_sys_rc, string_list_t * commands) exit (1); } + /* LUA {{{ */ + snprintf(buffer, sizeof(buffer), "%s/.madmutt.lua", NONULL(mod_core.homedir)); + if (access(buffer, F_OK) < 0) + snprintf(buffer, sizeof(buffer), "%s/.madmutt/cfg.lua", NONULL(mod_core.homedir)); + if (!access(buffer, F_OK)) { + need_pause = luaM_wrap(mutt_error, luaM_dofile(buffer)); + } + /* }}} */ + if (mutt_execute_commands (commands) != 0) need_pause = 1; @@ -2572,29 +1783,3 @@ int mutt_get_hook_type (const char *name) return 0; } -/* dump out the value of all the variables we have */ -int mutt_dump_variables (int full) { - ssize_t i = 0; - - /* get all non-synonyms into list... */ - for (i = 0; MuttVars[i].option; i++) { - struct option_t *option = MuttVars + i; - char buf[LONG_STRING]; - - if (DTYPE(option->type) == DT_SYN) - continue; - - if (!full) { - mutt_option_value(option->option, buf, sizeof(buf)); - if (!m_strcmp(buf, option->init)) - continue; - } - - printf("set "); - FuncTable[DTYPE(option->type)].opt_tostr(buf, sizeof(buf), option); - printf ("%s\n", buf); - } - - printf ("\n# vi""m:set ft=muttrc:\n"); - return 0; -}