[IMP] Add option to read e-mails unseen

Author: Jose Zambudio

fetchmail_attach_from_folder/models/fetchmail_server_folder.py

@@ -97,6 +97,10 @@ class FetchmailServerFolder(models.Model):
         help="Optional custom server action to trigger for each incoming "
         "mail, on the record that was created or updated by this mail",
     )
+    fetch_unseen_only = fields.Boolean(
+        help="By default all undeleted emails are searched. Checking this "
+        "field adds the unread condition.",
+    )
 
     def button_confirm_folder(self):
         self.write({"state": "draft"})
@@ -170,10 +174,13 @@ def check_imap_archive_folder(self, connection):
                     % {"folder": self.archive_path, "server": server.name}
                 )
 
+    def get_criteria(self):
+        return "UNDELETED" if not self.fetch_unseen_only else "UNSEEN UNDELETED"
+
     def retrieve_imap_folder(self, connection):
         """Retrieve all mails for one IMAP folder."""
         self.ensure_one()
-        msgids = self.get_msgids(connection, "UNDELETED")
+        msgids = self.get_msgids(connection, self.get_criteria())
         for msgid in msgids[0].split():
             # We will accept exceptions for single messages
             try:

fetchmail_attach_from_folder/views/fetchmail_server.xml

@@ -103,6 +103,7 @@
                                     <field name="active" />
                                     <field name="archive_path" />
                                     <field name="delete_matching" />
+                                    <field name="fetch_unseen_only" />
                                     <field name="msg_state" />
                                 </group>
                             </group>

fetchmail_attach_from_folder/wizard/attach_mail_manually.py

@@ -42,7 +42,7 @@ def default_get(self, fields_list):
         folder = folder_model.browse([folder_id])
         connection = folder.server_id.connect()
         connection.select(folder.path)
-        criteria = "FLAGGED" if folder.flag_nonmatching else "UNDELETED"
+        criteria = "FLAGGED" if folder.flag_nonmatching else folder.get_criteria()
         msgids = folder.get_msgids(connection, criteria)
         for msgid in msgids[0].split():
             mail_message, message_org = folder.fetch_msg(connection, msgid)