2 * Copyright (C) 1996-2000 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.
24 #include "mutt_curses.h"
26 #include "mutt_menu.h"
39 #include "imap_private.h"
42 #include "mutt_crypt.h"
57 static const char *No_mailbox_is_open = N_("No mailbox is open.");
58 static const char *There_are_no_messages = N_("There are no messages.");
59 static const char *Mailbox_is_read_only = N_("Mailbox is read-only.");
60 static const char *Function_not_permitted_in_attach_message_mode = N_("Function not permitted in attach-message mode.");
61 static const char *No_visible = N_("No visible messages.");
63 #define CHECK_MSGCOUNT if (!Context) \
66 mutt_error _(No_mailbox_is_open); \
69 else if (!Context->msgcount) \
72 mutt_error _(There_are_no_messages); \
76 #define CHECK_VISIBLE if (Context && menu->current >= Context->vcount) \
79 mutt_error _(No_visible); \
84 #define CHECK_READONLY if (Context->readonly) \
87 mutt_error _(Mailbox_is_read_only); \
92 /* the error message returned here could be better. */
93 #define CHECK_IMAP_ACL(aclbit) if (Context->magic == M_IMAP) \
94 if (mutt_bit_isset (((IMAP_DATA *)Context->data)->capabilities, ACL) \
95 && !mutt_bit_isset(((IMAP_DATA *)Context->data)->rights,aclbit)){ \
97 mutt_error ("Operation not permitted by the IMAP ACL for this mailbox"); \
102 #define CHECK_ATTACH if(option(OPTATTACHMSG)) \
105 mutt_error _(Function_not_permitted_in_attach_message_mode); \
109 #define CURHDR Context->hdrs[Context->v2r[menu->current]]
110 #define OLDHDR Context->hdrs[Context->v2r[menu->oldcurrent]]
111 #define UNREAD(h) mutt_thread_contains_unread (Context, h)
113 extern const char *ReleaseDate;
114 extern size_t UngetCount;
116 static void set_xterm_title_bar(char *title)
118 fputs("\033]2;", stdout);
119 fputs(title, stdout);
120 fputs("\007", stdout);
124 static void set_xterm_icon_name(char *name)
126 fputs("\033]1;", stdout);
128 fputs("\007", stdout);
132 void index_make_entry (char *s, size_t l, MUTTMENU *menu, int num)
134 format_flag flag = M_FORMAT_MAKEPRINT | M_FORMAT_ARROWCURSOR | M_FORMAT_INDEX;
135 int edgemsgno, reverse = Sort & SORT_REVERSE;
136 HEADER *h = Context->hdrs[Context->v2r[num]];
139 if ((Sort & SORT_MASK) == SORT_THREADS && h->tree)
141 flag |= M_FORMAT_TREE; /* display the thread tree */
142 if (h->display_subject)
143 flag |= M_FORMAT_FORCESUBJ;
148 if (menu->top + menu->pagelen > menu->max)
149 edgemsgno = Context->v2r[menu->max - 1];
151 edgemsgno = Context->v2r[menu->top + menu->pagelen - 1];
154 edgemsgno = Context->v2r[menu->top];
156 for (tmp = h->thread->parent; tmp; tmp = tmp->parent)
161 /* if no ancestor is visible on current screen, provisionally force
163 if (reverse ? tmp->message->msgno > edgemsgno : tmp->message->msgno < edgemsgno)
165 flag |= M_FORMAT_FORCESUBJ;
168 else if (tmp->message->virtual >= 0)
171 if (flag & M_FORMAT_FORCESUBJ)
173 for (tmp = h->thread->prev; tmp; tmp = tmp->prev)
178 /* ...but if a previous sibling is available, don't force it */
179 if (reverse ? tmp->message->msgno > edgemsgno : tmp->message->msgno < edgemsgno)
181 else if (tmp->message->virtual >= 0)
183 flag &= ~M_FORMAT_FORCESUBJ;
191 _mutt_make_string (s, l, NONULL (HdrFmt), Context, h, flag);
194 int index_color (int index_no)
196 HEADER *h = Context->hdrs[Context->v2r[index_no]];
201 mutt_set_header_color (Context, h);
205 static int ci_next_undeleted (int msgno)
209 for (i=msgno+1; i < Context->vcount; i++)
210 if (! Context->hdrs[Context->v2r[i]]->deleted)
215 static int ci_previous_undeleted (int msgno)
219 for (i=msgno-1; i>=0; i--)
220 if (! Context->hdrs[Context->v2r[i]]->deleted)
225 /* Return the index of the first new message, or failing that, the first
228 static int ci_first_message (void)
232 if (Context && Context->msgcount)
234 for (i=0; i < Context->vcount; i++)
236 if (! Context->hdrs[Context->v2r[i]]->read &&
237 ! Context->hdrs[Context->v2r[i]]->deleted)
239 if (! Context->hdrs[Context->v2r[i]]->old)
248 /* If Sort is reverse and not threaded, the latest message is first.
249 * If Sort is threaded, the latest message is first iff exactly one
250 * of Sort and SortAux are reverse.
252 if (((Sort & SORT_REVERSE) && (Sort & SORT_MASK) != SORT_THREADS) ||
253 ((Sort & SORT_MASK) == SORT_THREADS &&
254 ((Sort ^ SortAux) & SORT_REVERSE)))
257 return (Context->vcount ? Context->vcount - 1 : 0);
262 /* This should be in mx.c, but it only gets used here. */
263 static int mx_toggle_write (CONTEXT *ctx)
270 mutt_error _("Cannot toggle write on a readonly mailbox!");
277 mutt_message _("Changes to folder will be written on folder exit.");
282 mutt_message _("Changes to folder will not be written.");
288 static void update_index (MUTTMENU *menu, CONTEXT *ctx, int check,
289 int oldcount, int index_hint)
291 /* store pointers to the newly added messages */
292 HEADER **save_new = NULL;
295 /* take note of the current message */
298 if (menu->current < Context->vcount)
299 menu->oldcurrent = index_hint;
301 oldcount = 0; /* invalid message number! */
304 /* We are in a limited view. Check if the new message(s) satisfy
305 * the limit criteria. If they do, set their virtual msgno so that
306 * they will be visible in the limited view */
307 if (Context->pattern)
309 #define THIS_BODY Context->hdrs[j]->content
310 if (oldcount || check == M_REOPENED)
312 for (j = (check == M_REOPENED) ? 0 : oldcount; j < Context->msgcount; j++)
314 if (mutt_pattern_exec (Context->limit_pattern,
315 M_MATCH_FULL_ADDRESS,
316 Context, Context->hdrs[j]))
318 Context->hdrs[j]->virtual = Context->vcount;
319 Context->v2r[Context->vcount] = j;
320 Context->hdrs[j]->limited = 1;
322 Context->vsize += THIS_BODY->length + THIS_BODY->offset - THIS_BODY->hdr_offset;
329 /* save the list of new messages */
330 if (oldcount && check != M_REOPENED
331 && ((Sort & SORT_MASK) == SORT_THREADS))
333 save_new = (HEADER **) safe_malloc (sizeof (HEADER *) * (Context->msgcount - oldcount));
334 for (j = oldcount; j < Context->msgcount; j++)
335 save_new[j-oldcount] = Context->hdrs[j];
338 /* if the mailbox was reopened, need to rethread from scratch */
339 mutt_sort_headers (Context, (check == M_REOPENED));
341 /* uncollapse threads with new mail */
342 if ((Sort & SORT_MASK) == SORT_THREADS)
344 if (check == M_REOPENED)
348 Context->collapsed = 0;
350 for (h = Context->tree; h; h = h->next)
352 for (j = h; !j->message; j = j->child)
354 mutt_uncollapse_thread (Context, j->message);
356 mutt_set_virtual (Context);
360 for (j = 0; j < Context->msgcount - oldcount; j++)
364 for (k = 0; k < Context->msgcount; k++)
366 HEADER *h = Context->hdrs[k];
367 if (h == save_new[j] && (!Context->pattern || h->limited))
368 mutt_uncollapse_thread (Context, h);
372 mutt_set_virtual (Context);
379 /* restore the current message to the message it was pointing to */
380 for (j = 0; j < Context->vcount; j++)
382 if (Context->hdrs[Context->v2r[j]]->index == menu->oldcurrent)
390 if (menu->current < 0)
391 menu->current = ci_first_message ();
395 static void resort_index (MUTTMENU *menu)
398 HEADER *current = CURHDR;
401 mutt_sort_headers (Context, 0);
402 /* Restore the current message */
404 for (i = 0; i < Context->vcount; i++)
406 if (Context->hdrs[Context->v2r[i]] == current)
413 if ((Sort & SORT_MASK) == SORT_THREADS && menu->current < 0)
414 menu->current = mutt_parent_message (Context, current);
416 if (menu->current < 0)
417 menu->current = ci_first_message ();
419 menu->redraw = REDRAW_INDEX | REDRAW_STATUS;
422 struct mapping_t IndexHelp[] = {
423 { N_("Quit"), OP_QUIT },
424 { N_("Del"), OP_DELETE },
425 { N_("Undel"), OP_UNDELETE },
426 { N_("Save"), OP_SAVE },
427 { N_("Mail"), OP_MAIL },
428 { N_("Reply"), OP_REPLY },
429 { N_("Group"), OP_GROUP_REPLY },
430 { N_("Help"), OP_HELP },
435 struct mapping_t IndexNewsHelp[] = {
436 { N_("Quit"), OP_QUIT },
437 { N_("Del"), OP_DELETE },
438 { N_("Undel"), OP_UNDELETE },
439 { N_("Save"), OP_SAVE },
440 { N_("Post"), OP_POST },
441 { N_("Followup"), OP_FOLLOWUP },
442 { N_("Catchup"), OP_CATCHUP },
443 { N_("Help"), OP_HELP },
448 /* This function handles the message index window as well as commands returned
449 * from the pager (MENU_PAGER).
451 int mutt_index_menu (void)
453 char buf[LONG_STRING], helpstr[SHORT_STRING];
456 int done = 0; /* controls when to exit the "event" loop */
458 int tag = 0; /* has the tag-prefix command been pressed? */
463 char *cp; /* temporary variable. */
464 int index_hint; /* used to restore cursor position */
465 int do_buffy_notify = 1;
466 int close = 0; /* did we OP_QUIT or OP_EXIT out of this menu? */
467 int attach_msg = option(OPTATTACHMSG);
469 menu = mutt_new_menu ();
470 menu->menu = MENU_MAIN;
472 menu->pagelen = LINES - 3;
473 menu->make_entry = index_make_entry;
474 menu->color = index_color;
475 menu->current = ci_first_message ();
476 menu->help = mutt_compile_help (helpstr, sizeof (helpstr), MENU_MAIN,
478 (Context && (Context->magic == M_NNTP)) ? IndexNewsHelp :
483 mutt_buffy_check(1); /* force the buffy check after we enter the folder */
484 /* record folder we open to place sidebar indicator properly */
485 if (Context && Context->path)
486 set_curbuffy(Context->path);
491 tag = 0; /* clear the tag-prefix */
493 menu->max = Context ? Context->vcount : 0;
494 oldcount = Context ? Context->msgcount : 0;
496 /* check if we need to resort the index because just about
497 * any 'op' below could do mutt_enter_command(), either here or
498 * from any new menu launched, and change $sort/$sort_aux
500 if (option (OPTNEEDRESORT) && Context && Context->msgcount)
503 if (option (OPTREDRAWTREE) && Context && Context->msgcount && (Sort & SORT_MASK) == SORT_THREADS)
505 mutt_draw_tree (Context);
506 menu->redraw |= REDRAW_STATUS;
507 unset_option (OPTREDRAWTREE);
510 if (Context && !attach_msg)
513 /* check for new mail in the mailbox. If nonzero, then something has
514 * changed about the file (either we got new mail or the file was
515 * modified underneath us.)
519 imap_allow_reopen (Context);
522 index_hint = (Context->vcount && menu->current >= 0 && menu->current < Context->vcount) ? CURHDR->index : 0;
524 if ((check = mx_check_mailbox (Context, &index_hint, 0)) < 0)
528 /* fatal error occurred */
530 menu->redraw = REDRAW_FULL;
533 set_option (OPTSEARCHINVALID);
535 else if (check == M_NEW_MAIL || check == M_REOPENED || check == M_FLAGS)
537 update_index (menu, Context, check, oldcount, index_hint);
539 /* notify the user of new mail */
540 if (check == M_REOPENED)
541 mutt_error _("Mailbox was externally modified. Flags may be wrong.");
542 else if (check == M_NEW_MAIL)
544 /* on new mail: redraw sidebar */
545 draw_sidebar (CurrentMenu);
546 mutt_message _("New mail in this mailbox.");
547 if (option (OPTBEEPNEW))
549 } else if (check == M_FLAGS)
550 mutt_message _("Mailbox was externally modified.");
552 /* avoid the message being overwritten by buffy */
555 menu->redraw = REDRAW_FULL;
556 menu->max = Context->vcount;
558 set_option (OPTSEARCHINVALID);
564 imap_disallow_reopen (Context);
569 /* check for new mail in the incoming folders */
571 if ((newcount = mutt_buffy_check (0)) != oldcount){
572 menu->redraw |= REDRAW_STATUS;
573 menu->redraw |= REDRAW_SIDEBAR;
577 if (mutt_buffy_notify () && option (OPTBEEPNEW))
586 if (menu->redraw & REDRAW_SIDEBAR) draw_sidebar(menu->menu);
587 if (menu->redraw & REDRAW_FULL)
589 menu_redraw_full (menu);
590 draw_sidebar(menu->menu);
594 if (menu->menu == MENU_MAIN)
596 if (Context && Context->hdrs && !(menu->current >= Context->vcount))
598 menu_check_recenter (menu);
600 if (menu->redraw & REDRAW_INDEX)
602 menu_redraw_index (menu);
603 menu->redraw |= REDRAW_STATUS;
605 else if (menu->redraw & (REDRAW_MOTION_RESYNCH | REDRAW_MOTION))
606 menu_redraw_motion (menu);
607 else if (menu->redraw & REDRAW_CURRENT)
608 menu_redraw_current (menu);
611 if (menu->redraw & REDRAW_STATUS)
614 menu_status_line (buf, sizeof (buf), menu, NONULL (Status));
616 CLEARLINE (option (OPTSTATUSONTOP) ? 0 : LINES-2);
617 SETCOLOR (MT_COLOR_STATUS);
618 mutt_paddstr (COLS, buf);
619 SETCOLOR (MT_COLOR_NORMAL);
620 set_buffystats (Context);
621 menu->redraw &= ~REDRAW_STATUS;
622 if (option(OPTXTERMSETTITLES))
624 menu_status_line (buf, sizeof (buf), menu, NONULL (XtermTitle));
625 set_xterm_title_bar(buf);
626 menu_status_line (buf, sizeof (buf), menu, NONULL (XtermIcon));
627 set_xterm_icon_name(buf);
632 if (menu->current < menu->max)
633 menu->oldcurrent = menu->current;
635 menu->oldcurrent = -1;
637 if (option (OPTARROWCURSOR))
638 move (menu->current - menu->top + menu->offset, 2);
640 move (menu->current - menu->top + menu->offset, COLS - 1);
643 op = km_dokey (MENU_MAIN);
645 dprint(4, (debugfile, "mutt_index_menu[%d]: Got op %d\n", __LINE__, op));
647 #if defined (USE_SLANG_CURSES) || defined (HAVE_RESIZETERM)
651 mutt_resize_screen ();
652 menu->redraw = REDRAW_FULL;
653 menu->menu = MENU_MAIN;
655 menu->top = 0; /* so we scroll the right amount */
657 * force a real complete redraw. clrtobot() doesn't seem to be able
658 * to handle every case without this.
660 clearok(stdscr,TRUE);
666 continue; /* either user abort or timeout */
670 /* special handling for the tag-prefix function */
671 if (op == OP_TAG_PREFIX)
675 mutt_error _("No mailbox is open.");
679 if (!Context->tagged)
681 mutt_error _("No tagged messages.");
686 /* give visual indication that the next command is a tag- command */
687 mvaddstr (LINES - 1, 0, "tag-");
690 /* get the real command */
691 if ((op = km_dokey (MENU_MAIN)) == OP_TAG_PREFIX)
693 /* abort tag sequence */
698 else if (option (OPTAUTOTAG) && Context && Context->tagged)
701 if (op == OP_TAG_PREFIX_COND)
705 mutt_error _("No mailbox is open.");
709 if (!Context->tagged)
715 if(tmp.op==OP_END_COND)break;
717 mutt_message _("Nothing to do.");
722 /* give visual indication that the next command is a tag- command */
723 mvaddstr (LINES - 1, 0, "tag-");
726 /* get the real command */
727 if ((op = km_dokey (MENU_MAIN)) == OP_TAG_PREFIX)
729 /* abort tag sequence */
739 if (menu->current < menu->max)
740 menu->oldcurrent = menu->current;
742 menu->oldcurrent = -1;
744 mutt_curs_set (1); /* fallback from the pager */
748 unset_option (OPTNEWS); /* for any case */
754 /* ----------------------------------------------------------------------
759 menu_bottom_page (menu);
762 menu_first_entry (menu);
765 menu_middle_page (menu);
771 menu_half_down (menu);
774 menu_next_line (menu);
777 menu_prev_line (menu);
780 menu_next_page (menu);
783 menu_prev_page (menu);
786 menu_last_entry (menu);
789 menu_top_page (menu);
792 menu_current_top (menu);
794 case OP_CURRENT_MIDDLE:
795 menu_current_middle (menu);
797 case OP_CURRENT_BOTTOM:
798 menu_current_bottom (menu);
805 if (Context->magic == M_NNTP)
809 if (op == OP_GET_MESSAGE)
812 if (mutt_get_field (_("Enter Message-Id: "), buf, sizeof (buf), 0) != 0
818 LIST *ref = CURHDR->env->references;
821 mutt_error _("Article has no parent reference!");
824 strfcpy (buf, ref->data, sizeof (buf));
826 if (!Context->id_hash)
827 Context->id_hash = mutt_make_id_hash (Context);
828 if ((h = hash_find (Context->id_hash, buf)))
830 if (h->virtual != -1)
832 menu->current = h->virtual;
833 menu->redraw = REDRAW_MOTION_RESYNCH;
835 else if (h->collapsed)
837 mutt_uncollapse_thread (Context, h);
838 mutt_set_virtual (Context);
839 menu->current = h->virtual;
840 menu->redraw = REDRAW_MOTION_RESYNCH;
843 mutt_error _("Message not visible in limited view.");
847 if (nntp_check_msgid (Context, buf) == 0)
849 h = Context->hdrs[Context->msgcount-1];
850 mutt_sort_headers (Context, 0);
851 menu->current = h->virtual;
852 menu->redraw = REDRAW_FULL;
855 mutt_error (_("Article %s not found on server"), buf);
860 case OP_GET_CHILDREN:
861 case OP_RECONSTRUCT_THREAD:
863 if (Context->magic == M_NNTP)
866 int old = CURHDR->index, i;
868 if (!CURHDR->env->message_id)
870 mutt_error _("No Message-Id. Unable to perform operation");
874 if (!Context->id_hash)
875 Context->id_hash = mutt_make_id_hash (Context);
876 strfcpy (buf, CURHDR->env->message_id, sizeof (buf));
878 if (op == OP_RECONSTRUCT_THREAD)
880 LIST *ref = CURHDR->env->references;
883 nntp_check_msgid (Context, ref->data);
884 /* the last msgid in References is the root message */
886 strfcpy (buf, ref->data, sizeof (buf));
890 mutt_message _("Check for children of message...");
891 if (nntp_check_children (Context, buf) == 0)
893 mutt_sort_headers (Context, (op == OP_RECONSTRUCT_THREAD));
894 h = hash_find (Context->id_hash, buf);
895 /* if the root message was retrieved, move to it */
897 menu->current = h->virtual;
898 else /* try to restore old position */
899 for (i = 0; i < Context->msgcount; i++)
900 if (Context->hdrs[i]->index == old)
902 menu->current = Context->hdrs[i]->virtual;
903 /* As an added courtesy, recenter the menu
904 * with the current entry at the middle of the screen */
905 menu_check_recenter (menu);
906 menu_current_middle (menu);
909 menu->redraw = REDRAW_FULL;
919 if (isdigit (LastKey)) mutt_ungetch (LastKey, 0);
921 if (mutt_get_field (_("Jump to message: "), buf, sizeof (buf), 0) != 0
925 if (! isdigit ((unsigned char) buf[0]))
927 mutt_error _("Argument must be a message number.");
932 if (i > 0 && i <= Context->msgcount)
934 for (j = i-1; j < Context->msgcount; j++)
936 if (Context->hdrs[j]->virtual != -1)
939 if (j >= Context->msgcount)
941 for (j = i-2; j >= 0; j--)
943 if (Context->hdrs[j]->virtual != -1)
950 menu->current = Context->hdrs[j]->virtual;
951 if (menu->menu == MENU_PAGER)
953 op = OP_DISPLAY_MESSAGE;
957 menu->redraw = REDRAW_MOTION;
960 mutt_error _("That message is not visible.");
963 mutt_error _("Invalid message number.");
967 /* --------------------------------------------------------------------
968 * `index' specific commands
971 case OP_MAIN_DELETE_PATTERN:
978 CHECK_IMAP_ACL(IMAP_ACL_DELETE);
982 mutt_pattern_func (M_DELETE, _("Delete messages matching: "));
983 menu->redraw = REDRAW_INDEX | REDRAW_STATUS;
987 case OP_MAIN_FETCH_MAIL:
991 menu->redraw = REDRAW_FULL;
997 mutt_help (MENU_MAIN);
998 menu->redraw = REDRAW_FULL;
1001 case OP_MAIN_SHOW_LIMIT:
1003 if (!Context->pattern)
1004 mutt_message _("No limit pattern is in effect.");
1008 /* i18n: ask for a limit to apply */
1009 snprintf (buf, sizeof(buf), _("Limit: %s"),Context->pattern);
1010 mutt_message ("%s", buf);
1015 case OP_TOGGLE_READ:
1018 menu->oldcurrent = (Context->vcount && menu->current >= 0 && menu->current < Context->vcount) ?
1020 if (op == OP_TOGGLE_READ)
1022 char buf[LONG_STRING];
1024 if (!Context->pattern || strncmp (Context->pattern, "!~R!~D~s", 8) != 0)
1026 snprintf (buf, sizeof (buf), "!~R!~D~s%s",
1027 Context->pattern ? Context->pattern : ".*");
1028 set_option (OPTHIDEREAD);
1032 strfcpy (buf, Context->pattern + 8, sizeof(buf));
1033 if (!*buf || strncmp (buf, ".*", 2) == 0)
1034 snprintf (buf, sizeof(buf), "~A");
1035 unset_option (OPTHIDEREAD);
1037 FREE (&Context->pattern);
1038 Context->pattern = safe_strdup (buf);
1040 if ((op == OP_TOGGLE_READ && mutt_pattern_func (M_LIMIT, NULL) == 0) ||
1041 mutt_pattern_func (M_LIMIT, _("Limit to messages matching: ")) == 0)
1043 if (menu->oldcurrent >= 0)
1045 /* try to find what used to be the current message */
1047 for (i = 0; i < Context->vcount; i++)
1048 if (Context->hdrs[Context->v2r[i]]->index == menu->oldcurrent)
1053 if (menu->current < 0) menu->current = 0;
1057 menu->redraw = REDRAW_INDEX | REDRAW_STATUS;
1058 if ((Sort & SORT_MASK) == SORT_THREADS)
1059 mutt_draw_tree (Context);
1060 menu->redraw = REDRAW_FULL;
1073 if (query_quadoption (OPT_QUIT, _("Quit Mutt-ng?")) == M_YES)
1077 oldcount = Context ? Context->msgcount : 0;
1079 if (!Context || (check = mx_close_mailbox (Context, &index_hint)) == 0)
1083 if (check == M_NEW_MAIL || check == M_REOPENED)
1084 update_index (menu, Context, check, oldcount, index_hint);
1086 menu->redraw = REDRAW_FULL; /* new mail arrived? */
1087 set_option (OPTSEARCHINVALID);
1094 clearok (stdscr, TRUE);
1095 menu->redraw = REDRAW_FULL;
1099 case OP_SEARCH_REVERSE:
1100 case OP_SEARCH_NEXT:
1101 case OP_SEARCH_OPPOSITE:
1105 if ((menu->current = mutt_search_command (menu->current, op)) == -1)
1106 menu->current = menu->oldcurrent;
1108 menu->redraw = REDRAW_MOTION;
1112 case OP_SORT_REVERSE:
1114 if (mutt_select_sort ((op == OP_SORT_REVERSE)) == 0)
1116 if (Context && Context->msgcount)
1118 resort_index (menu);
1119 set_option (OPTSEARCHINVALID);
1128 if (tag && !option (OPTAUTOTAG))
1130 for (j = 0; j < Context->vcount; j++)
1131 mutt_set_flag (Context, Context->hdrs[Context->v2r[j]], M_TAG, 0);
1132 menu->redraw = REDRAW_STATUS | REDRAW_INDEX;
1136 mutt_set_flag (Context, CURHDR, M_TAG, !CURHDR->tagged);
1137 Context->last_tag = CURHDR->tagged ? CURHDR :
1138 ((Context->last_tag == CURHDR && !CURHDR->tagged)
1139 ? NULL : Context->last_tag);
1140 menu->redraw = REDRAW_STATUS;
1141 if (option (OPTRESOLVE) && menu->current < Context->vcount - 1)
1144 menu->redraw |= REDRAW_MOTION_RESYNCH;
1147 menu->redraw |= REDRAW_CURRENT;
1151 case OP_MAIN_TAG_PATTERN:
1155 mutt_pattern_func (M_TAG, _("Tag messages matching: "));
1156 menu->redraw = REDRAW_INDEX | REDRAW_STATUS;
1159 case OP_MAIN_UNDELETE_PATTERN:
1166 CHECK_IMAP_ACL(IMAP_ACL_DELETE);
1169 if (mutt_pattern_func (M_UNDELETE, _("Undelete messages matching: ")) == 0)
1170 menu->redraw = REDRAW_INDEX | REDRAW_STATUS;
1173 case OP_MAIN_UNTAG_PATTERN:
1177 if (mutt_pattern_func (M_UNTAG, _("Untag messages matching: ")) == 0)
1178 menu->redraw = REDRAW_INDEX | REDRAW_STATUS;
1181 /* --------------------------------------------------------------------
1182 * The following operations can be performed inside of the pager.
1186 case OP_MAIN_IMAP_FETCH:
1187 if (Context->magic == M_IMAP)
1188 imap_check_mailbox (Context, &index_hint, 1);
1192 case OP_MAIN_SYNC_FOLDER:
1194 if (Context && !Context->msgcount)
1201 int oldvcount = Context->vcount;
1202 int oldcount = Context->msgcount;
1206 /* calculate the number of messages _above_ the cursor,
1207 * so we can keep the cursor on the current message
1209 for (j = 0; j <= menu->current; j++)
1211 if (Context->hdrs[Context->v2r[j]]->deleted)
1215 if ((check = mx_sync_mailbox (Context, &index_hint)) == 0)
1217 if (Context->vcount != oldvcount)
1218 menu->current -= dcount;
1219 set_option (OPTSEARCHINVALID);
1221 else if (check == M_NEW_MAIL || check == M_REOPENED)
1222 update_index (menu, Context, check, oldcount, index_hint);
1225 * do a sanity check even if mx_sync_mailbox failed.
1228 if (menu->current < 0 || menu->current >= Context->vcount)
1229 menu->current = ci_first_message ();
1232 /* check for a fatal error, or all messages deleted */
1236 /* if we were in the pager, redisplay the message */
1237 if (menu->menu == MENU_PAGER)
1239 op = OP_DISPLAY_MESSAGE;
1243 menu->redraw = REDRAW_FULL;
1246 case OP_SIDEBAR_OPEN:
1247 case OP_MAIN_CHANGE_FOLDER:
1248 case OP_MAIN_CHANGE_FOLDER_READONLY:
1250 case OP_MAIN_CHANGE_GROUP:
1251 case OP_MAIN_CHANGE_GROUP_READONLY:
1253 if (attach_msg || option (OPTREADONLY) ||
1255 op == OP_MAIN_CHANGE_GROUP_READONLY ||
1257 op == OP_MAIN_CHANGE_FOLDER_READONLY)
1263 cp = _("Open mailbox in read-only mode");
1265 cp = _("Open mailbox");
1269 unset_option (OPTNEWS);
1270 if (op == OP_MAIN_CHANGE_GROUP ||
1271 op == OP_MAIN_CHANGE_GROUP_READONLY)
1273 set_option (OPTNEWS);
1274 if (!(CurrentNewsSrv = mutt_select_newsserver (NewsServer)))
1277 cp = _("Open newsgroup in read-only mode");
1279 cp = _("Open newsgroup");
1285 if (Context && Context->path)
1286 strncpy (buf, Context->path, sizeof (buf));
1287 mutt_buffy (buf, sizeof (buf));
1290 if ( op == OP_SIDEBAR_OPEN ) {
1293 strncpy( buf, CurBuffy->path, sizeof(buf) );
1294 } else if (mutt_enter_fname (cp, buf, sizeof (buf), &menu->redraw, 1) == -1)
1298 CLEARLINE (LINES-1);
1303 if (option (OPTNEWS))
1305 unset_option (OPTNEWS);
1306 nntp_expand_path (buf, sizeof (buf), &CurrentNewsSrv->conn->account);
1310 mutt_expand_path (buf, sizeof (buf));
1312 if (mx_get_magic (buf) <= 0)
1314 mutt_error (_("%s is not a mailbox."), buf);
1317 mutt_str_replace (&CurrentFolder, buf);
1323 #ifdef USE_COMPRESSED
1324 if (Context->compressinfo && Context->realpath)
1325 mutt_str_replace (&LastFolder, Context->realpath);
1329 mutt_str_replace (&LastFolder, Context->path);
1330 oldcount = Context ? Context->msgcount : 0;
1332 if ((check = mx_close_mailbox (Context, &index_hint)) != 0)
1334 if (check == M_NEW_MAIL || check == M_REOPENED)
1335 update_index (menu, Context, check, oldcount, index_hint);
1337 set_option (OPTSEARCHINVALID);
1338 menu->redraw = REDRAW_INDEX | REDRAW_STATUS;
1346 /* Set CurrentMenu to MENU_MAIN before executing any folder
1347 * hooks so that all the index menu functions are available to
1351 CurrentMenu = MENU_MAIN;
1352 mutt_folder_hook (buf);
1354 if ((Context = mx_open_mailbox (buf, flags, NULL)) != NULL)
1356 menu->current = ci_first_message ();
1362 /* mutt_buffy_check() must be done with mail-reader mode! */
1363 menu->help = mutt_compile_help (helpstr, sizeof (helpstr), MENU_MAIN,
1364 (Context && (Context->magic == M_NNTP)) ? IndexNewsHelp : IndexHelp);
1366 mutt_clear_error ();
1367 mutt_buffy_check(1); /* force the buffy check after we have changed
1369 menu->redraw = REDRAW_FULL;
1370 set_option (OPTSEARCHINVALID);
1373 case OP_DISPLAY_MESSAGE:
1374 case OP_DISPLAY_HEADERS: /* don't weed the headers */
1379 * toggle the weeding of headers so that a user can press the key
1380 * again while reading the message.
1382 if (op == OP_DISPLAY_HEADERS)
1383 toggle_option (OPTWEED);
1385 unset_option (OPTNEEDRESORT);
1387 if ((Sort & SORT_MASK) == SORT_THREADS && CURHDR->collapsed)
1389 mutt_uncollapse_thread (Context, CURHDR);
1390 mutt_set_virtual (Context);
1391 if (option (OPTUNCOLLAPSEJUMP))
1392 menu->current = mutt_thread_next_unread (Context, CURHDR);
1395 if ((op = mutt_display_message (CURHDR)) == -1)
1397 unset_option (OPTNEEDRESORT);
1401 menu->menu = MENU_PAGER;
1402 menu->oldcurrent = menu->current;
1408 if (menu->menu == MENU_MAIN && attach_msg)
1414 if ((menu->menu == MENU_MAIN)
1415 && (query_quadoption (OPT_QUIT,
1416 _("Exit Mutt-ng without saving?")) == M_YES))
1420 mx_fastclose_mailbox (Context);
1432 mutt_edit_content_type (CURHDR, CURHDR->content, NULL);
1433 /* if we were in the pager, redisplay the message */
1434 if (menu->menu == MENU_PAGER)
1436 op = OP_DISPLAY_MESSAGE;
1440 menu->redraw = REDRAW_CURRENT;
1443 case OP_MAIN_BREAK_THREAD:
1449 if ((Sort & SORT_MASK) != SORT_THREADS)
1450 mutt_error _("Threading is not enabled.");
1454 HEADER *oldcur = CURHDR;
1456 mutt_break_thread (CURHDR);
1457 mutt_sort_headers (Context, 1);
1458 menu->current = oldcur->virtual;
1461 Context->changed = 1;
1462 mutt_message _("Thread broken");
1464 if (menu->menu == MENU_PAGER)
1466 op = OP_DISPLAY_MESSAGE;
1470 menu->redraw |= REDRAW_INDEX;
1474 case OP_MAIN_LINK_THREADS:
1480 if ((Sort & SORT_MASK) != SORT_THREADS)
1481 mutt_error _("Threading is not enabled.");
1482 else if (!CURHDR->env->message_id)
1483 mutt_error _("No Message-ID: header available to link thread");
1484 else if (!tag && (!Context->last_tag || !Context->last_tag->tagged))
1485 mutt_error _("First, please tag a message to be linked here");
1488 HEADER *oldcur = CURHDR;
1490 if (mutt_link_threads (CURHDR, tag ? NULL : Context->last_tag,
1493 mutt_sort_headers (Context, 1);
1494 menu->current = oldcur->virtual;
1496 Context->changed = 1;
1497 mutt_message _("Threads linked");
1500 mutt_error _("No thread linked");
1503 if (menu->menu == MENU_PAGER)
1505 op = OP_DISPLAY_MESSAGE;
1509 menu->redraw |= REDRAW_STATUS | REDRAW_INDEX;
1512 case OP_MAIN_NEXT_UNDELETED:
1516 if (menu->current >= Context->vcount - 1)
1518 if (menu->menu == MENU_MAIN)
1519 mutt_error _("You are on the last message.");
1522 if ((menu->current = ci_next_undeleted (menu->current)) == -1)
1524 menu->current = menu->oldcurrent;
1525 if (menu->menu == MENU_MAIN)
1526 mutt_error _("No undeleted messages.");
1528 else if (menu->menu == MENU_PAGER)
1530 op = OP_DISPLAY_MESSAGE;
1534 menu->redraw = REDRAW_MOTION;
1541 if (menu->current >= Context->vcount - 1)
1543 if (menu->menu == MENU_MAIN)
1544 mutt_error _("You are on the last message.");
1548 if (menu->menu == MENU_PAGER)
1550 op = OP_DISPLAY_MESSAGE;
1554 menu->redraw = REDRAW_MOTION;
1557 case OP_MAIN_PREV_UNDELETED:
1561 if (menu->current < 1)
1563 mutt_error _("You are on the first message.");
1566 if ((menu->current = ci_previous_undeleted (menu->current)) == -1)
1568 menu->current = menu->oldcurrent;
1569 if (menu->menu == MENU_MAIN)
1570 mutt_error _("No undeleted messages.");
1572 else if (menu->menu == MENU_PAGER)
1574 op = OP_DISPLAY_MESSAGE;
1578 menu->redraw = REDRAW_MOTION;
1585 if (menu->current < 1)
1587 if (menu->menu == MENU_MAIN) mutt_error _("You are on the first message.");
1591 if (menu->menu == MENU_PAGER)
1593 op = OP_DISPLAY_MESSAGE;
1597 menu->redraw = REDRAW_MOTION;
1600 case OP_DECRYPT_COPY:
1601 case OP_DECRYPT_SAVE:
1605 case OP_COPY_MESSAGE:
1607 case OP_DECODE_COPY:
1608 case OP_DECODE_SAVE:
1611 if (mutt_save_message (tag ? NULL : CURHDR,
1612 (op == OP_DECRYPT_SAVE) ||
1613 (op == OP_SAVE) || (op == OP_DECODE_SAVE),
1614 (op == OP_DECODE_SAVE) || (op == OP_DECODE_COPY),
1615 (op == OP_DECRYPT_SAVE) || (op == OP_DECRYPT_COPY) ||
1617 &menu->redraw) == 0 &&
1618 (op == OP_SAVE || op == OP_DECODE_SAVE || op == OP_DECRYPT_SAVE)
1622 menu->redraw |= REDRAW_INDEX;
1623 else if (option (OPTRESOLVE))
1625 if ((menu->current = ci_next_undeleted (menu->current)) == -1)
1627 menu->current = menu->oldcurrent;
1628 menu->redraw |= REDRAW_CURRENT;
1631 menu->redraw |= REDRAW_MOTION_RESYNCH;
1634 menu->redraw |= REDRAW_CURRENT;
1638 case OP_MAIN_NEXT_NEW:
1639 case OP_MAIN_NEXT_UNREAD:
1640 case OP_MAIN_PREV_NEW:
1641 case OP_MAIN_PREV_UNREAD:
1642 case OP_MAIN_NEXT_NEW_THEN_UNREAD:
1643 case OP_MAIN_PREV_NEW_THEN_UNREAD:
1646 int first_unread = -1;
1654 for (j = 0; j != Context->vcount; j++)
1656 #define CURHDRi Context->hdrs[Context->v2r[i]]
1657 if (op == OP_MAIN_NEXT_NEW || op == OP_MAIN_NEXT_UNREAD || op == OP_MAIN_NEXT_NEW_THEN_UNREAD)
1660 if (i > Context->vcount - 1)
1662 mutt_message _("Search wrapped to top.");
1671 mutt_message _("Search wrapped to bottom.");
1672 i = Context->vcount - 1;
1676 if (CURHDRi->collapsed && (Sort & SORT_MASK) == SORT_THREADS)
1678 if (UNREAD (CURHDRi) && first_unread == -1)
1680 if (UNREAD (CURHDRi) == 1 && first_new == -1)
1683 else if ((!CURHDRi->deleted && !CURHDRi->read))
1685 if (first_unread == -1)
1687 if ((!CURHDRi->old) && first_new == -1)
1691 if ((op == OP_MAIN_NEXT_UNREAD || op == OP_MAIN_PREV_UNREAD) &&
1694 if ((op == OP_MAIN_NEXT_NEW || op == OP_MAIN_PREV_NEW ||
1695 op == OP_MAIN_NEXT_NEW_THEN_UNREAD || op == OP_MAIN_PREV_NEW_THEN_UNREAD)
1700 if ((op == OP_MAIN_NEXT_NEW || op == OP_MAIN_PREV_NEW ||
1701 op == OP_MAIN_NEXT_NEW_THEN_UNREAD || op == OP_MAIN_PREV_NEW_THEN_UNREAD)
1703 menu->current = first_new;
1704 else if ((op == OP_MAIN_NEXT_UNREAD || op == OP_MAIN_PREV_UNREAD ||
1705 op == OP_MAIN_NEXT_NEW_THEN_UNREAD || op == OP_MAIN_PREV_NEW_THEN_UNREAD)
1706 && first_unread != -1)
1707 menu->current = first_unread;
1709 if (menu->current == -1)
1711 menu->current = menu->oldcurrent;
1712 mutt_error ("%s%s.", (op == OP_MAIN_NEXT_NEW || op == OP_MAIN_PREV_NEW) ? _("No new messages") : _("No unread messages"),
1713 Context->pattern ? _(" in this limited view") : "");
1715 else if (menu->menu == MENU_PAGER)
1717 op = OP_DISPLAY_MESSAGE;
1721 menu->redraw = REDRAW_MOTION;
1724 case OP_FLAG_MESSAGE:
1731 if (Context->magic == M_POP)
1734 mutt_error _("Can't change 'important' flag on POP server.");
1740 CHECK_IMAP_ACL(IMAP_ACL_WRITE);
1744 if (Context->magic == M_NNTP)
1747 mutt_error _("Can't change 'important' flag on NNTP server.");
1754 for (j = 0; j < Context->vcount; j++)
1756 if (Context->hdrs[Context->v2r[j]]->tagged)
1757 mutt_set_flag (Context, Context->hdrs[Context->v2r[j]],
1758 M_FLAG, !Context->hdrs[Context->v2r[j]]->flagged);
1761 menu->redraw |= REDRAW_INDEX;
1765 mutt_set_flag (Context, CURHDR, M_FLAG, !CURHDR->flagged);
1766 if (option (OPTRESOLVE))
1768 if ((menu->current = ci_next_undeleted (menu->current)) == -1)
1770 menu->current = menu->oldcurrent;
1771 menu->redraw = REDRAW_CURRENT;
1774 menu->redraw = REDRAW_MOTION_RESYNCH;
1777 menu->redraw = REDRAW_CURRENT;
1779 menu->redraw |= REDRAW_STATUS;
1789 CHECK_IMAP_ACL(IMAP_ACL_SEEN);
1794 for (j = 0; j < Context->vcount; j++)
1796 if (Context->hdrs[Context->v2r[j]]->tagged)
1798 if (Context->hdrs[Context->v2r[j]]->read ||
1799 Context->hdrs[Context->v2r[j]]->old)
1800 mutt_set_flag (Context, Context->hdrs[Context->v2r[j]], M_NEW, 1);
1802 mutt_set_flag (Context, Context->hdrs[Context->v2r[j]], M_READ, 1);
1805 menu->redraw = REDRAW_STATUS | REDRAW_INDEX;
1809 if (CURHDR->read || CURHDR->old)
1810 mutt_set_flag (Context, CURHDR, M_NEW, 1);
1812 mutt_set_flag (Context, CURHDR, M_READ, 1);
1814 if (option (OPTRESOLVE))
1816 if ((menu->current = ci_next_undeleted (menu->current)) == -1)
1818 menu->current = menu->oldcurrent;
1819 menu->redraw = REDRAW_CURRENT;
1822 menu->redraw = REDRAW_MOTION_RESYNCH;
1825 menu->redraw = REDRAW_CURRENT;
1826 menu->redraw |= REDRAW_STATUS;
1830 case OP_TOGGLE_WRITE:
1833 if (mx_toggle_write (Context) == 0)
1834 menu->redraw |= REDRAW_STATUS;
1837 case OP_MAIN_NEXT_THREAD:
1838 case OP_MAIN_NEXT_SUBTHREAD:
1839 case OP_MAIN_PREV_THREAD:
1840 case OP_MAIN_PREV_SUBTHREAD:
1846 case OP_MAIN_NEXT_THREAD:
1847 menu->current = mutt_next_thread (CURHDR);
1850 case OP_MAIN_NEXT_SUBTHREAD:
1851 menu->current = mutt_next_subthread (CURHDR);
1854 case OP_MAIN_PREV_THREAD:
1855 menu->current = mutt_previous_thread (CURHDR);
1858 case OP_MAIN_PREV_SUBTHREAD:
1859 menu->current = mutt_previous_subthread (CURHDR);
1863 if (menu->current < 0)
1865 menu->current = menu->oldcurrent;
1866 if (op == OP_MAIN_NEXT_THREAD || op == OP_MAIN_NEXT_SUBTHREAD)
1867 mutt_error _("No more threads.");
1869 mutt_error _("You are on the first thread.");
1871 else if (menu->menu == MENU_PAGER)
1873 op = OP_DISPLAY_MESSAGE;
1877 menu->redraw = REDRAW_MOTION;
1880 case OP_MAIN_PARENT_MESSAGE:
1885 if ((menu->current = mutt_parent_message (Context, CURHDR)) < 0)
1887 menu->current = menu->oldcurrent;
1889 else if (menu->menu == MENU_PAGER)
1891 op = OP_DISPLAY_MESSAGE;
1895 menu->redraw = REDRAW_MOTION;
1898 case OP_MAIN_SET_FLAG:
1899 case OP_MAIN_CLEAR_FLAG:
1906 CHECK_IMAP_ACL(IMAP_ACL_WRITE);
1909 if (mutt_change_flag (tag ? NULL : CURHDR, (op == OP_MAIN_SET_FLAG)) == 0)
1911 menu->redraw = REDRAW_STATUS;
1913 menu->redraw |= REDRAW_INDEX;
1914 else if (option (OPTRESOLVE))
1916 if ((menu->current = ci_next_undeleted (menu->current)) == -1)
1918 menu->current = menu->oldcurrent;
1919 menu->redraw |= REDRAW_CURRENT;
1922 menu->redraw |= REDRAW_MOTION_RESYNCH;
1925 menu->redraw |= REDRAW_CURRENT;
1929 case OP_MAIN_COLLAPSE_THREAD:
1933 if ((Sort & SORT_MASK) != SORT_THREADS)
1935 mutt_error _("Threading is not enabled.");
1939 if (CURHDR->collapsed)
1941 menu->current = mutt_uncollapse_thread (Context, CURHDR);
1942 mutt_set_virtual (Context);
1943 if (option (OPTUNCOLLAPSEJUMP))
1944 menu->current = mutt_thread_next_unread (Context, CURHDR);
1946 else if (option (OPTCOLLAPSEUNREAD) || !UNREAD (CURHDR))
1948 menu->current = mutt_collapse_thread (Context, CURHDR);
1949 mutt_set_virtual (Context);
1953 mutt_error _("Thread contains unread messages.");
1957 menu->redraw = REDRAW_INDEX | REDRAW_STATUS;
1961 case OP_MAIN_COLLAPSE_ALL:
1965 if ((Sort & SORT_MASK) != SORT_THREADS)
1967 mutt_error _("Threading is not enabled.");
1973 THREAD *thread, *top;
1976 if (CURHDR->collapsed)
1977 final = mutt_uncollapse_thread (Context, CURHDR);
1978 else if (option (OPTCOLLAPSEUNREAD) || !UNREAD (CURHDR))
1979 final = mutt_collapse_thread (Context, CURHDR);
1981 final = CURHDR->virtual;
1983 base = Context->hdrs[Context->v2r[final]];
1985 top = Context->tree;
1986 Context->collapsed = !Context->collapsed;
1987 while ((thread = top) != NULL)
1989 while (!thread->message)
1990 thread = thread->child;
1991 h = thread->message;
1993 if (h->collapsed != Context->collapsed)
1996 mutt_uncollapse_thread (Context, h);
1997 else if (option (OPTCOLLAPSEUNREAD) || !UNREAD (h))
1998 mutt_collapse_thread (Context, h);
2003 mutt_set_virtual (Context);
2004 for (j = 0; j < Context->vcount; j++)
2006 if (Context->hdrs[Context->v2r[j]]->index == base->index)
2013 menu->redraw = REDRAW_INDEX | REDRAW_STATUS;
2017 /* --------------------------------------------------------------------
2018 * These functions are invoked directly from the internal-pager
2021 case OP_BOUNCE_MESSAGE:
2026 ci_bounce_message (tag ? NULL : CURHDR, &menu->redraw);
2029 case OP_CREATE_ALIAS:
2031 mutt_create_alias (Context && Context->vcount ? CURHDR->env : NULL, NULL);
2032 MAYBE_REDRAW (menu->redraw);
2033 menu->redraw |= REDRAW_CURRENT;
2038 mutt_query_menu (NULL, 0);
2039 MAYBE_REDRAW (menu->redraw);
2042 case OP_PURGE_MESSAGE:
2050 CHECK_IMAP_ACL(IMAP_ACL_DELETE);
2055 mutt_tag_set_flag (M_DELETE, 1);
2056 mutt_tag_set_flag (M_PURGED, (op != OP_PURGE_MESSAGE) ? 0 : 1);
2057 if (option (OPTDELETEUNTAG))
2058 mutt_tag_set_flag (M_TAG, 0);
2059 menu->redraw = REDRAW_INDEX;
2063 mutt_set_flag (Context, CURHDR, M_DELETE, 1);
2064 mutt_set_flag (Context, CURHDR, M_PURGED,
2065 (op != OP_PURGE_MESSAGE) ? 0 : 1);
2066 if (option (OPTDELETEUNTAG))
2067 mutt_set_flag (Context, CURHDR, M_TAG, 0);
2068 if (option (OPTRESOLVE))
2070 if ((menu->current = ci_next_undeleted (menu->current)) == -1)
2072 menu->current = menu->oldcurrent;
2073 menu->redraw = REDRAW_CURRENT;
2075 else if (menu->menu == MENU_PAGER)
2077 op = OP_DISPLAY_MESSAGE;
2081 menu->redraw |= REDRAW_MOTION_RESYNCH;
2084 menu->redraw = REDRAW_CURRENT;
2086 menu->redraw |= REDRAW_STATUS;
2089 case OP_DELETE_THREAD:
2090 case OP_DELETE_SUBTHREAD:
2097 CHECK_IMAP_ACL(IMAP_ACL_DELETE);
2100 rc = mutt_thread_set_flag (CURHDR, M_DELETE, 1,
2101 op == OP_DELETE_THREAD ? 0 : 1);
2105 if (option (OPTDELETEUNTAG))
2106 mutt_thread_set_flag (CURHDR, M_TAG, 0,
2107 op == OP_DELETE_THREAD ? 0 : 1);
2108 if (option (OPTRESOLVE))
2109 if ((menu->current = ci_next_undeleted (menu->current)) == -1)
2110 menu->current = menu->oldcurrent;
2111 menu->redraw = REDRAW_INDEX | REDRAW_STATUS;
2117 if (Context && Context->magic == M_NNTP)
2119 if (mutt_newsgroup_catchup (CurrentNewsSrv,
2120 ((NNTP_DATA *)Context->data)->group))
2121 menu->redraw = REDRAW_INDEX | REDRAW_STATUS;
2126 case OP_DISPLAY_ADDRESS:
2130 mutt_display_address (CURHDR->env);
2133 case OP_ENTER_COMMAND:
2135 CurrentMenu = MENU_MAIN;
2136 mutt_enter_command ();
2137 mutt_check_rescore (Context);
2138 if (option (OPTFORCEREDRAWINDEX))
2139 menu->redraw = REDRAW_FULL;
2140 unset_option (OPTFORCEREDRAWINDEX);
2141 unset_option (OPTFORCEREDRAWPAGER);
2144 case OP_EDIT_MESSAGE:
2152 if (Context->magic == M_POP)
2155 mutt_error _("Can't edit message on POP server.");
2161 CHECK_IMAP_ACL(IMAP_ACL_INSERT);
2165 if (Context->magic == M_NNTP)
2168 mutt_error _("Can't edit message on newsserver.");
2173 if (option (OPTPGPAUTODEC) && (tag || !(CURHDR->security & PGP_TRADITIONAL_CHECKED)))
2174 mutt_check_traditional_pgp (tag ? NULL : CURHDR, &menu->redraw);
2175 mutt_edit_message (Context, tag ? NULL : CURHDR);
2176 menu->redraw = REDRAW_FULL;
2180 case OP_FORWARD_MESSAGE:
2185 ci_send_message (SENDFORWARD, NULL, NULL, Context, tag ? NULL : CURHDR);
2186 menu->redraw = REDRAW_FULL;
2190 case OP_FORGET_PASSPHRASE:
2191 crypt_forget_passphrase ();
2194 case OP_GROUP_REPLY:
2199 ci_send_message (SENDREPLY|SENDGROUPREPLY, NULL, NULL, Context, tag ? NULL : CURHDR);
2200 menu->redraw = REDRAW_FULL;
2208 ci_send_message (SENDREPLY|SENDLISTREPLY, NULL, NULL, Context, tag ? NULL : CURHDR);
2209 menu->redraw = REDRAW_FULL;
2215 ci_send_message (0, NULL, NULL, Context, NULL);
2216 menu->redraw = REDRAW_FULL;
2220 if (!(WithCrypto & APPLICATION_PGP))
2223 ci_send_message (SENDKEY, NULL, NULL, NULL, NULL);
2224 menu->redraw = REDRAW_FULL;
2228 case OP_EXTRACT_KEYS:
2233 crypt_extract_keys_from_messages(tag ? NULL : CURHDR);
2234 menu->redraw = REDRAW_FULL;
2238 case OP_CHECK_TRADITIONAL:
2239 if (!(WithCrypto & APPLICATION_PGP))
2243 if (tag || !(CURHDR->security & PGP_TRADITIONAL_CHECKED))
2244 mutt_check_traditional_pgp (tag ? NULL : CURHDR, &menu->redraw);
2246 if (menu->menu == MENU_PAGER)
2248 op = OP_DISPLAY_MESSAGE;
2257 mutt_pipe_message (tag ? NULL : CURHDR);
2258 MAYBE_REDRAW (menu->redraw);
2265 mutt_print_message (tag ? NULL : CURHDR);
2268 case OP_MAIN_READ_THREAD:
2269 case OP_MAIN_READ_SUBTHREAD:
2276 CHECK_IMAP_ACL(IMAP_ACL_SEEN);
2279 rc = mutt_thread_set_flag (CURHDR, M_READ, 1,
2280 op == OP_MAIN_READ_THREAD ? 0 : 1);
2284 if (option (OPTRESOLVE))
2286 if ((menu->current = (op == OP_MAIN_READ_THREAD ?
2287 mutt_next_thread (CURHDR) : mutt_next_subthread (CURHDR))) == -1)
2288 menu->current = menu->oldcurrent;
2290 menu->redraw = REDRAW_INDEX | REDRAW_STATUS;
2294 case OP_RECALL_MESSAGE:
2297 ci_send_message (SENDPOSTPONED, NULL, NULL, Context, NULL);
2298 menu->redraw = REDRAW_FULL;
2309 for (j = 0; j < Context->vcount; j++)
2311 if (Context->hdrs[Context->v2r[j]]->tagged)
2312 mutt_resend_message (NULL, Context, Context->hdrs[Context->v2r[j]]);
2316 mutt_resend_message (NULL, Context, CURHDR);
2318 menu->redraw = REDRAW_FULL;
2324 case OP_FORWARD_TO_GROUP:
2327 if ((op == OP_FOLLOWUP || op == OP_FORWARD_TO_GROUP) &&
2328 Context && Context->msgcount == 0) {
2329 mutt_error (_("There are no messages."));
2331 } else if (op != OP_FOLLOWUP || !CURHDR->env->followup_to ||
2332 mutt_strcasecmp (CURHDR->env->followup_to, "poster") ||
2333 query_quadoption (OPT_FOLLOWUPTOPOSTER,_("Reply by mail as poster prefers?")) != M_YES)
2335 if (Context && Context->magic == M_NNTP &&
2336 !((NNTP_DATA *)Context->data)->allowed &&
2337 query_quadoption (OPT_TOMODERATED, _("Posting to this group not allowed, may be moderated. Continue?")) != M_YES)
2340 ci_send_message (SENDNEWS, NULL, NULL, Context, NULL);
2344 if (op == OP_FOLLOWUP)
2345 ci_send_message (SENDNEWS|SENDREPLY, NULL, NULL, Context,
2346 tag ? NULL : CURHDR);
2348 ci_send_message (SENDNEWS|SENDFORWARD, NULL, NULL, Context,
2349 tag ? NULL : CURHDR);
2351 menu->redraw = REDRAW_FULL;
2361 ci_send_message (SENDREPLY, NULL, NULL, Context, tag ? NULL : CURHDR);
2362 menu->redraw = REDRAW_FULL;
2365 case OP_SHELL_ESCAPE:
2367 mutt_shell_escape ();
2368 MAYBE_REDRAW (menu->redraw);
2372 case OP_TAG_SUBTHREAD:
2376 rc = mutt_thread_set_flag (CURHDR, M_TAG, !CURHDR->tagged,
2377 op == OP_TAG_THREAD ? 0 : 1);
2381 if (option (OPTRESOLVE))
2383 menu->current = mutt_next_thread (CURHDR);
2385 if (menu->current == -1)
2386 menu->current = menu->oldcurrent;
2388 menu->redraw = REDRAW_INDEX | REDRAW_STATUS;
2399 CHECK_IMAP_ACL(IMAP_ACL_DELETE);
2404 mutt_tag_set_flag (M_DELETE, 0);
2405 mutt_tag_set_flag (M_PURGED, 0);
2406 menu->redraw = REDRAW_INDEX;
2410 mutt_set_flag (Context, CURHDR, M_DELETE, 0);
2411 mutt_set_flag (Context, CURHDR, M_PURGED, 0);
2412 if (option (OPTRESOLVE) && menu->current < Context->vcount - 1)
2415 menu->redraw = REDRAW_MOTION_RESYNCH;
2418 menu->redraw = REDRAW_CURRENT;
2420 menu->redraw |= REDRAW_STATUS;
2423 case OP_UNDELETE_THREAD:
2424 case OP_UNDELETE_SUBTHREAD:
2431 CHECK_IMAP_ACL(IMAP_ACL_DELETE);
2434 rc = mutt_thread_set_flag (CURHDR, M_DELETE, 0,
2435 op == OP_UNDELETE_THREAD ? 0 : 1)
2436 + mutt_thread_set_flag (CURHDR, M_PURGED, 0,
2437 op == OP_UNDELETE_THREAD ? 0 : 1);
2441 if (option (OPTRESOLVE))
2443 if (op == OP_UNDELETE_THREAD)
2444 menu->current = mutt_next_thread (CURHDR);
2446 menu->current = mutt_next_subthread (CURHDR);
2448 if (menu->current == -1)
2449 menu->current = menu->oldcurrent;
2451 menu->redraw = REDRAW_INDEX | REDRAW_STATUS;
2461 menu->redraw = REDRAW_FULL;
2464 case OP_VIEW_ATTACHMENTS:
2467 mutt_view_attachments (CURHDR);
2468 if (CURHDR->attach_del)
2469 Context->changed = 1;
2470 menu->redraw = REDRAW_FULL;
2480 case OP_SIDEBAR_SCROLL_UP:
2481 case OP_SIDEBAR_SCROLL_DOWN:
2482 case OP_SIDEBAR_NEXT:
2483 case OP_SIDEBAR_PREV:
2484 case OP_SIDEBAR_NEXT_NEW:
2485 case OP_SIDEBAR_PREV_NEW:
2486 scroll_sidebar(op, menu->menu);
2489 if (menu->menu == MENU_MAIN)
2490 km_error_key (MENU_MAIN);
2493 if (menu->menu == MENU_PAGER)
2495 menu->menu = MENU_MAIN;
2496 menu->redraw = REDRAW_FULL;
2498 set_option (OPTWEED); /* turn header weeding back on. */
2506 /* Close all open IMAP connections */
2511 /* Close all open NNTP connections */
2516 mutt_menuDestroy (&menu);
2520 void mutt_set_header_color (CONTEXT *ctx, HEADER *curhdr)
2527 for (color = ColorIndexList; color; color = color->next)
2528 if (mutt_pattern_exec (color->color_pattern, M_MATCH_FULL_ADDRESS, ctx, curhdr))
2530 curhdr->pair = color->pair;
2533 curhdr->pair = ColorDefs[MT_COLOR_NORMAL];