[Bps-public-commit] Net-IMAP-Server branch, master, updated. 1.28-7-g278a9f5

[Alex Vandiver]

The branch, master has been updated
       via  278a9f50c293a374a940a17702dc093e175ee433 (commit)
      from  60edd5f94c6310ff3de3466a423a13c9b3714f1a (commit)

Summary of changes:
 lib/Net/IMAP/Server/Message.pm |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 278a9f50c293a374a940a17702dc093e175ee433
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Wed Jul 28 12:49:12 2010 -0400

    When we update \Seen due to a FETCH of BODY, don't double-report FLAGS

diff --git a/lib/Net/IMAP/Server/Message.pm b/lib/Net/IMAP/Server/Message.pm
index 3e52c0d..5d29a3d 100644
--- a/lib/Net/IMAP/Server/Message.pm
+++ b/lib/Net/IMAP/Server/Message.pm
@@ -377,8 +377,9 @@ sub fetch {
     # Look if this will change the \Seen flag
     if ( grep { $_ =~ /^BODY\[/i } @parts and not $self->has_flag('\Seen') ) {
 
-        # If so, update, and possibly also inform the user.
-        $self->set_flag('\Seen');
+        # If so, update, and possibly also inform the user; do it
+        # "silently" because we'll report the FLAGS change ourselves
+        $self->set_flag('\Seen', 1);
         push @parts, "FLAGS" if not grep { uc $_ eq "FLAGS" } @parts;
     }
 

-----------------------------------------------------------------------