[Commits] [SCM] claws branch, master, updated. 3.9.1-10-ge77b994

mones at claws-mail.org mones at claws-mail.org
Tue May 14 00:05:44 CEST 2013


The branch master of project "claws" (Claws Mail) has been updated
       via  e77b9943b358fa19d29061358191f1c9e463e998 (commit)
      from  8891f6e23e51b38c54c7b717fa0922cb101b76a2 (commit)


- Log -----------------------------------------------------------------
commit e77b9943b358fa19d29061358191f1c9e463e998
Author: H.Merijn Brand <h.m.brand at xs4all.nl>
Date:   Mon May 13 11:16:08 2013 +0200

    Fix bug #2923 'build failure with perl 5.18'
    
    Removed also some unnecessary whitespaces

diff --git a/src/plugins/perl/cm_perl.pod b/src/plugins/perl/cm_perl.pod
index fd52295..5551656 100644
--- a/src/plugins/perl/cm_perl.pod
+++ b/src/plugins/perl/cm_perl.pod
@@ -2,7 +2,6 @@
 
 cm_perl -- A Perl Plugin for Claws Mail
 
-
 =head1 DESCRIPTION
 
 This plugin provides an extended filtering engine for the email
@@ -192,7 +191,7 @@ Returns a true value if the messages has one or more tags.
 Corresponds the 'test' internal filtering rule. In particular, it
 accepts the same symbols, namely:
 
-=over 
+=over
 
 =item %%
 
@@ -299,7 +298,7 @@ This is a I<final> rule.
 
 =item mark_as_read
 
-Mark the message as read 
+Mark the message as read
 
 =item mark_as_unread
 
@@ -537,23 +536,23 @@ If the SECTION is omitted, "LOG_MANUAL" is assumed.
 Changes the filter log verbosity for the current mail. VERBOSITY
 must be any of
 
-=over
+=over 2
 
-=item *
+=item C<0>
 
-0
+Be silent
 
-=item *
+=item C<1>
 
-1
+Log MANUAL type
 
-=item *
+=item C<2>
 
-2
+Log Action type
 
-=item *
+=item C<3>
 
-3
+Log MATCH type
 
 =back
 
@@ -633,16 +632,16 @@ sure you get the idea..
 
  #-8<----------------------------------------------------
  # -*- perl -*-
- 
+
  # local functions
- 
+
  # Learn ham messages, and move them to specified folder. This is
  # useful for making sure a bayes filter sees ham as well.
  sub learn_and_move {
      execute('put command to learn ham here');
      move(@_);
  }
- 
+
  # Two-stage spam filter. Every email that scores higher than 15
  # on SpamAssassin gets moved into the default trash folder.
  # All mails lower than that, but higher than SpamAssassin's
@@ -658,15 +657,15 @@ sure you get the idea..
      }
      if($value >= $threshold) {mark_as_read; move '#mh/mail/Spam';}
  }
- 
+
  # Perl script execution starts here.
- 
+
  # Some specific sorting
  learn_and_move '#mh/mail/MailLists/Claws Mail/user'
    if matchcase('sender','claws-mail-users-admin at lists.sourceforge.net');
  learn_and_move '#mh/mail/MailLists/Sylpheed'
    if matchcase('list-id','sylpheed.good-day.net');
- 
+
  # Implement imcomming folders using addressbook
  # attributes. Target folders for specific email addresses are
  # stored directly in the addressbook. This way, if an email
@@ -687,7 +686,7 @@ sure you get the idea..
  # An example of a whitelist: If the from-address is in my
  # "office" addressbook, move the mail to folder #mh/mail/office
  learn_and_move '#mh/mail/office' if from_in_addressbook("office");
- 
+
  # If the from-address is in any other addressbook, move the
  # mail to folder #mh/mail/inbox/known
  learn_and_move '#mh/mail/inbox/known' if from_in_addressbook;

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

Summary of changes:
 src/plugins/perl/cm_perl.pod |   37 ++++++++++++++++++-------------------
 1 files changed, 18 insertions(+), 19 deletions(-)


hooks/post-receive
-- 
Claws Mail


More information about the Commits mailing list