[evolution] Bug #223337 - Auto-close message-browser when replying to them

[Milan Crha <mcrha src gnome org>]

commit d515cfc3324b04e3686becd931da1fd2bfdfa892
Author: Milan Crha <mcrha redhat com>
Date:   Fri Oct 8 12:16:53 2010 +0200

    Bug #223337 - Auto-close message-browser when replying to them

 mail/e-mail-reader.c           |   68 ++++++++++++++++++++++++++++++++++++++-
 mail/evolution-mail.schemas.in |   17 ++++++++++
 mail/mail.error.xml            |    9 +++++
 3 files changed, 92 insertions(+), 2 deletions(-)
---
diff --git a/mail/e-mail-reader.c b/mail/e-mail-reader.c
index 047f386..7f2f8dc 100644
--- a/mail/e-mail-reader.c
+++ b/mail/e-mail-reader.c
@@ -415,6 +415,55 @@ action_mail_flag_for_followup_cb (GtkAction *action,
 }
 
 static void
+check_close_browser_reader (EMailReader *reader)
+{
+	GConfClient *gconf;
+	gchar *value;
+	gboolean close_it = FALSE;
+
+	g_return_if_fail (read != NULL);
+
+	/* only allow closing of a mail browser and nothing else */
+	if (!E_IS_MAIL_BROWSER (reader))
+		return;
+
+	gconf = mail_config_get_gconf_client ();
+	value = gconf_client_get_string (gconf, "/apps/evolution/mail/prompts/reply_close_browser", NULL);
+	if (value && g_str_equal (value, "always")) {
+		close_it = TRUE;
+	} else if (!value || !g_str_equal (value, "never")) {
+		GtkWidget *dialog;
+		GtkWindow *parent;
+		gint response;
+		EShell *shell;
+		EShellBackend *shell_backend;
+
+		shell_backend = e_mail_reader_get_shell_backend (reader);
+		shell = e_shell_backend_get_shell (shell_backend);
+
+		parent = e_shell_get_active_window (shell);
+		if (!parent)
+			parent = e_mail_reader_get_window (reader);
+
+		dialog = e_alert_dialog_new_for_args (parent, "mail:ask-reply-close-browser", NULL);
+		response = gtk_dialog_run (GTK_DIALOG (dialog));
+		gtk_widget_destroy (dialog);
+
+		close_it = response == GTK_RESPONSE_YES || response == GTK_RESPONSE_OK;
+
+		if (response == GTK_RESPONSE_OK || response == GTK_RESPONSE_CANCEL)
+			gconf_client_set_string (
+				gconf, "/apps/evolution/mail/prompts/reply_close_browser",
+				response == GTK_RESPONSE_OK ? "always" : "never", NULL);
+	}
+
+	g_free (value);
+
+	if (close_it)
+		gtk_widget_destroy (GTK_WIDGET (reader));
+}
+
+static void
 action_mail_forward_cb (GtkAction *action,
                         EMailReader *reader)
 {
@@ -439,6 +488,8 @@ action_mail_forward_cb (GtkAction *action,
 		em_utils_forward_messages (shell, folder, uids, folder_uri);
 	else
 		em_utils_uids_free (uids);
+
+	check_close_browser_reader (reader);
 }
 
 static void
@@ -466,6 +517,8 @@ action_mail_forward_attached_cb (GtkAction *action,
 		em_utils_forward_attached (shell, folder, uids, folder_uri);
 	else
 		em_utils_uids_free (uids);
+
+	check_close_browser_reader (reader);
 }
 
 static void
@@ -493,6 +546,8 @@ action_mail_forward_inline_cb (GtkAction *action,
 		em_utils_forward_inline (shell, folder, uids, folder_uri);
 	else
 		em_utils_uids_free (uids);
+
+	check_close_browser_reader (reader);
 }
 
 static void
@@ -520,6 +575,8 @@ action_mail_forward_quoted_cb (GtkAction *action,
 		em_utils_forward_quoted (shell, folder, uids, folder_uri);
 	else
 		em_utils_uids_free (uids);
+
+	check_close_browser_reader (reader);
 }
 
 static void
@@ -911,6 +968,7 @@ action_mail_redirect_cb (GtkAction *action,
 	g_return_if_fail (uid != NULL);
 
 	em_utils_redirect_message_by_uid (shell, folder, uid);
+	check_close_browser_reader (reader);
 }
 
 static void
@@ -967,6 +1025,7 @@ action_mail_reply_all_check (CamelFolder *folder,
 	}
 
 	e_mail_reader_reply_to_message (reader, message, mode);
+	check_close_browser_reader (reader);
 }
 
 static void
@@ -1008,6 +1067,7 @@ action_mail_reply_all_cb (GtkAction *action,
 	}
 
 	e_mail_reader_reply_to_message (reader, NULL, REPLY_MODE_ALL);
+	check_close_browser_reader (reader);
 }
 
 static void
@@ -1019,9 +1079,10 @@ action_mail_reply_group_cb (GtkAction *action,
 					"/apps/evolution/mail/composer/group_reply_to_list", NULL);
 	guint32 state = e_mail_reader_check_state (reader);
 
-	if (reply_list && (state & E_MAIL_READER_SELECTION_IS_MAILING_LIST))
+	if (reply_list && (state & E_MAIL_READER_SELECTION_IS_MAILING_LIST)) {
 		e_mail_reader_reply_to_message (reader, NULL, REPLY_MODE_LIST);
-	else
+		check_close_browser_reader (reader);
+	} else
 		action_mail_reply_all_cb (action, reader);
 }
 
@@ -1030,6 +1091,7 @@ action_mail_reply_list_cb (GtkAction *action,
                            EMailReader *reader)
 {
 	e_mail_reader_reply_to_message (reader, NULL, REPLY_MODE_LIST);
+	check_close_browser_reader (reader);
 }
 
 static void
@@ -1136,6 +1198,7 @@ action_mail_reply_sender_check (CamelFolder *folder,
 	}
 
 	e_mail_reader_reply_to_message (reader, message, mode);
+	check_close_browser_reader (reader);
 }
 
 static void
@@ -1177,6 +1240,7 @@ action_mail_reply_sender_cb (GtkAction *action,
 		return;
 	}
 	e_mail_reader_reply_to_message (reader, NULL, REPLY_MODE_SENDER);
+	check_close_browser_reader (reader);
 }
 
 static void
diff --git a/mail/evolution-mail.schemas.in b/mail/evolution-mail.schemas.in
index 737dcfa..26f9faa 100644
--- a/mail/evolution-mail.schemas.in
+++ b/mail/evolution-mail.schemas.in
@@ -1154,6 +1154,23 @@
       </locale>
     </schema>
 
+    <schema>
+      <key>/schemas/apps/evolution/mail/prompts/reply_close_browser</key>
+      <applyto>/apps/evolution/mail/prompts/reply_close_browser</applyto>
+      <owner>evolution-mail</owner>
+      <type>string</type>
+      <default>ask</default>
+      <locale name="C">
+         <short>Prompt when replying or forwarding from a mail browser whether close it</short>
+         <long>
+	 Possible values are:
+	 never - to never close browser window
+	 always - to always close browser window
+	 ask - (or any other value) will ask user
+         </long>
+      </locale>
+    </schema>
+
        <!-- Trash settings -->
 
     <schema>
diff --git a/mail/mail.error.xml b/mail/mail.error.xml
index f376cfa..dbbb84d 100644
--- a/mail/mail.error.xml
+++ b/mail/mail.error.xml
@@ -429,6 +429,15 @@ You can choose to ignore this folder, overwrite or append its contents, or quit.
     <button stock="gtk-yes" response="GTK_RESPONSE_YES"/>
   </error>
 
+  <error id="ask-reply-close-browser" type="question" default="GTK_RESPONSE_NO">
+    <_primary>Close message window.</_primary>
+    <_secondary xml:space="preserve">Would you like to close the message window?</_secondary>
+    <button _label="_Yes" response="GTK_RESPONSE_YES"/>
+    <button _label="_No" response="GTK_RESPONSE_NO"/>
+    <button _label="_Always" response="GTK_RESPONSE_OK"/>
+    <button _label="N_ever" response="GTK_RESPONSE_CANCEL"/>
+  </error>
+
   <error id="signature-already-exists" type="error" modal="true">
     <_primary>Signature Already Exists</_primary>
     <_secondary>A signature already exists with the name "{0}". Please specify a different name. </_secondary>