[claws-mail-cvs-commit] compose.c

Update of /srv/cvs/claws-mail/claws/src
In directory ran:/tmp/cvs-serv19536/src

Modified Files:
      Tag: gtk2
	compose.c 
Log Message:
2009-08-21 [colin]	3.7.2cvs23

	* src/compose.c
		Fix scrolling when adding an header

Index: compose.c
===================================================================
RCS file: /srv/cvs/claws-mail/claws/src/compose.c,v
retrieving revision 1.382.2.521
retrieving revision 1.382.2.522
diff -u -d -r1.382.2.521 -r1.382.2.522
--- compose.c	21 Aug 2009 15:56:28 -0000	1.382.2.521
+++ compose.c	21 Aug 2009 15:58:30 -0000	1.382.2.522
@@ -10518,6 +10518,7 @@
 			 0, 0, NULL, NULL, headerentry);
 		
 		/* Automatically scroll down */
+		GTK_EVENTS_FLUSH();
 		compose_show_first_last_header(headerentry->compose, FALSE);
 		
 	}
@@ -10531,9 +10532,8 @@
 	cm_return_if_fail(compose);
 	cm_return_if_fail(GTK_IS_WIDGET(compose->header_table));
 	cm_return_if_fail(GTK_IS_VIEWPORT(compose->header_table->parent));
-
 	vadj = gtk_viewport_get_vadjustment(GTK_VIEWPORT(compose->header_table->parent));
-	gtk_adjustment_set_value(vadj, (show_first ? vadj->lower : vadj->upper));
+	gtk_adjustment_set_value(vadj, (show_first ? vadj->lower : (vadj->upper - vadj->page_size)));
 	gtk_adjustment_changed(vadj);
 }