[Tkabber-dev] r1739 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Mar 20 12:23:12 MSK 2009


Author: sergei
Date: 2009-03-20 12:23:11 +0300 (Fri, 20 Mar 2009)
New Revision: 1739

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/messages.tcl
Log:
	* messages.tcl: Put messages in the message archive only if they have
	  non-empty body.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-03-17 07:11:25 UTC (rev 1738)
+++ trunk/tkabber/ChangeLog	2009-03-20 09:23:11 UTC (rev 1739)
@@ -1,3 +1,8 @@
+2009-03-20  Sergei Golovan  <sgolovan at nes.ru>
+
+	* messages.tcl: Put messages in the message archive only if they have
+	  non-empty body.
+
 2009-03-17  Sergei Golovan  <sgolovan at nes.ru>
 
 	* messages.tcl: Don't create subject menu on every incoming message.

Modified: trunk/tkabber/messages.tcl
===================================================================
--- trunk/tkabber/messages.tcl	2009-03-17 07:11:25 UTC (rev 1738)
+++ trunk/tkabber/messages.tcl	2009-03-20 09:23:11 UTC (rev 1739)
@@ -32,7 +32,7 @@
 proc message::show_dialog {xlib from id type subject body thread priority x {replyP 1}} {
     variable msgid
 
-    if {$type == "normal"} {
+    if {$type == "normal" && $body != ""} {
         ::message_archive::log_message \
 	    $from [connection_jid $xlib] \
             $subject $body $x
@@ -541,7 +541,8 @@
 
     eval $command
 
-    if {(![info exists params(-type)]) || ($params(-type) == "normal") } {
+    if {(![info exists params(-type)] || $params(-type) == "normal") && \
+	    $log_body != ""} {
         ::message_archive::log_message \
 	    [connection_jid $xlib] \
             $to $log_subject $log_body $xs



More information about the Tkabber-dev mailing list