[balsa/gtk4: 238/286] main-window: New API for balsa_window_next_unread

[Peter Bloomfield <peterb src gnome org>]

commit 1c5b5f6e6f1528a18661701ec67ab6b5e5c76aaf
Author: Peter Bloomfield <PeterBloomfield bellsouth net>
Date:   Fri Oct 30 16:15:38 2020 -0400

    main-window: New API for balsa_window_next_unread
    
    Pass the BalsaMessage to it as a second parameter, so that we can set
    BALSA_MESSAGE_FOCUS_STATE_HOLD if we switch to a different mailbox.

 src/balsa-mime-widget-callbacks.c | 11 +++--
 src/main-window.c                 | 94 +++++++++++++++++++++++++--------------
 src/main-window.h                 |  9 +++-
 3 files changed, 74 insertions(+), 40 deletions(-)
---
diff --git a/src/balsa-mime-widget-callbacks.c b/src/balsa-mime-widget-callbacks.c
index 27fa13cb6..e627e80db 100644
--- a/src/balsa-mime-widget-callbacks.c
+++ b/src/balsa-mime-widget-callbacks.c
@@ -273,12 +273,11 @@ scroll_change(GtkAdjustment * adj, gint diff, BalsaMessage * bm)
         gtk_adjustment_get_upper(adj) - gtk_adjustment_get_page_size(adj);
     gdouble value;
 
-    if (bm && gtk_adjustment_get_value(adj) >= upper && diff > 0) {
-        if (balsa_window_next_unread(balsa_app.main_window))
-            /* We're changing mailboxes, and GtkNotebook will grab the
-             * focus, so we want to grab it back the next time we lose
-             * it. */
-            balsa_message_set_focus_state(bm, BALSA_MESSAGE_FOCUS_STATE_HOLD);
+    if (bm != NULL && gtk_adjustment_get_value(adj) >= upper && diff > 0) {
+        /* Scrolling below the bottom of a message means select the next
+         * unread message: */
+        balsa_window_next_unread(balsa_app.main_window, bm);
+
         return;
     }
 
diff --git a/src/main-window.c b/src/main-window.c
index 86646964e..1897c9824 100644
--- a/src/main-window.c
+++ b/src/main-window.c
@@ -1346,7 +1346,7 @@ next_unread_activated(GSimpleAction * action,
 {
     BalsaWindow *window = BALSA_WINDOW(user_data);
 
-    balsa_window_next_unread(window);
+    balsa_window_next_unread(window, NULL);
 }
 
 static void
@@ -4781,35 +4781,73 @@ balsa_window_set_statusbar(BalsaWindow * window, LibBalsaMailbox * mailbox)
     g_string_free(desc, TRUE);
 }
 
-/* Select next unread message, changing mailboxes if necessary;
- * returns TRUE if mailbox was changed. */
-gboolean
-balsa_window_next_unread(BalsaWindow * window)
+/* Select next unread message, changing mailboxes if necessary; */
+typedef struct {
+    LibBalsaMailbox *mailbox;
+    BalsaMessage    *bm;
+} bw_next_unread_data;
+
+static void
+bw_next_unread_response(GtkDialog *dialog,
+                        int        response,
+                        gpointer   user_data)
+{
+    if (response == GTK_RESPONSE_YES) {
+        bw_next_unread_data *data = user_data;
+        BalsaIndex *bindex;
+
+        balsa_mblist_open_mailbox(data->mailbox);
+        bindex = balsa_find_index_by_mailbox(data->mailbox);
+        if (bindex != NULL) {
+            balsa_index_select_next_unread(bindex);
+        } else {
+            g_object_set_data(G_OBJECT(data->mailbox), BALSA_INDEX_VIEW_ON_OPEN, GINT_TO_POINTER(TRUE));
+        }
+        /* We are changing mailboxes, and GtkNotebook will grab the
+         * focus, so we want to grab it back the next time we lose it. */
+        if (data->bm != NULL)
+            balsa_message_set_focus_state(data->bm, BALSA_MESSAGE_FOCUS_STATE_HOLD);
+    }
+
+    g_free(user_data);
+    if (dialog != NULL)
+        gtk_window_destroy(GTK_WINDOW(dialog));
+}
+
+/* See the header file for why the second parameter is a gpointer */
+void
+balsa_window_next_unread(BalsaWindow * window, gpointer bm_gpointer)
 {
-    BalsaIndex *index =
+    BalsaMessage *bm = bm_gpointer;
+    BalsaIndex *bindex =
         BALSA_INDEX(balsa_window_find_current_index(window));
-    LibBalsaMailbox *mailbox = index ? balsa_index_get_mailbox(index): NULL;
+    LibBalsaMailbox *mailbox = bindex ? balsa_index_get_mailbox(bindex): NULL;
+    bw_next_unread_data *data;
 
     if (libbalsa_mailbox_get_unread(mailbox) > 0) {
-        balsa_index_select_next_unread(index);
+        balsa_index_select_next_unread(bindex);
 
-        return FALSE;
+        return;
     }
 
     mailbox = bw_next_unread_mailbox(mailbox);
-    if (!mailbox || libbalsa_mailbox_get_unread(mailbox) == 0)
-        return FALSE;
+    if (mailbox == NULL || libbalsa_mailbox_get_unread(mailbox) == 0)
+        return;
 
-    if (balsa_app.ask_before_select) {
+    data = g_new(bw_next_unread_data, 1);
+    data->mailbox = mailbox;
+    data->bm = bm;
+
+    if (!balsa_app.ask_before_select) {
+        bw_next_unread_response(NULL, GTK_RESPONSE_YES, data);
+    } else {
         GtkWidget *dialog;
-        gint response;
-
-        dialog =
-            gtk_message_dialog_new(GTK_WINDOW(window), 0,
-                                   GTK_MESSAGE_QUESTION,
-                                   GTK_BUTTONS_YES_NO,
-                                   _("The next unread message is in %s"),
-                                   libbalsa_mailbox_get_name(mailbox));
+
+        dialog = gtk_message_dialog_new(GTK_WINDOW(window), 0,
+                                        GTK_MESSAGE_QUESTION,
+                                        GTK_BUTTONS_YES_NO,
+                                        _("The next unread message is in %s"),
+                                        libbalsa_mailbox_get_name(mailbox));
 #if HAVE_MACOSX_DESKTOP
         libbalsa_macosx_menu_for_parent(dialog, GTK_WINDOW(window));
 #endif
@@ -4818,20 +4856,10 @@ balsa_window_next_unread(BalsaWindow * window)
              _("Do you want to select %s?"), libbalsa_mailbox_get_name(mailbox));
         gtk_dialog_set_default_response(GTK_DIALOG(dialog),
                                         GTK_RESPONSE_YES);
-        response = gtk_dialog_run(GTK_DIALOG(dialog));
-        gtk_widget_destroy(dialog);
-        if (response != GTK_RESPONSE_YES)
-            return FALSE;
-    }
 
-    balsa_mblist_open_mailbox(mailbox);
-    index = balsa_find_index_by_mailbox(mailbox);
-    if (index)
-        balsa_index_select_next_unread(index);
-    else
-        g_object_set_data(G_OBJECT(mailbox),
-                          BALSA_INDEX_VIEW_ON_OPEN, GINT_TO_POINTER(TRUE));
-    return TRUE;
+        g_signal_connect(dialog, "response", G_CALLBACK(bw_next_unread_response), data);
+        gtk_widget_show(dialog);
+    }
 }
 
 /*
diff --git a/src/main-window.h b/src/main-window.h
index 1760e129c..485519d0d 100644
--- a/src/main-window.h
+++ b/src/main-window.h
@@ -29,6 +29,13 @@
 #include "mailbox-node.h"
 #include "toolbar-factory.h"
 
+/* We would like to duplicate the declaration of BalsaMessage here,
+ * because we cannot include balsa-message.h. It is prohibited in C99 but
+  * allowed in C11:
+  * typedef struct _BalsaMessage BalsaMessage;
+  * Instead we make the BalsaMessage parameter of balsa_window_next_unread
+  * a gpointer */
+
 #define BALSA_TYPE_WINDOW balsa_window_get_type()
 
 G_DECLARE_DERIVABLE_TYPE(BalsaWindow,
@@ -95,7 +102,7 @@ void update_view_menu(BalsaWindow * window);
 BalsaToolbarModel *balsa_window_get_toolbar_model(void);
 void balsa_window_add_action_entries(GActionMap * action_map);
 void balsa_window_select_all(GtkWindow * window);
-gboolean balsa_window_next_unread(BalsaWindow * window);
+void balsa_window_next_unread(BalsaWindow * window, gpointer bm);
 
 /* functions to manipulate the progress bars of the window */
 gboolean balsa_window_setup_progress(BalsaWindow * window,