1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
# pm-jaempty.rc -- check if message body is empty
#
# File id
#
# Copyright (C) 1997-2010 Jari Aalto
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
# published by the Free Software Foundation; either version 2 of the
# License, or (at your option) any later version
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details at
# <http://www.gnu.org/copyleft/gpl.html>.
#
# Description
#
# This simple includerc will define variable BODY_EMPTY to "yes" or
# "no" when called like this You can file empty messages to separate
# folder based on this value
#
# INCLUDERC = $PMSRC/pm-jaempty.rc
#
# :0
# * BODY_EMPTY ?? yes
# the-empty-mail-folder
#
# This is more designed to be part of other modules. If you just want
# to check for empty message, a simpler recipe like this might be
# better:
#
# INCLUDERC = $PMSRC/pm-javar.rc
#
# :0 B: # if body has only whitespace characters
# *$ ! $NSPC
# the-empty-mail-folder
#
# Required settings
#
# (none)
#
# Change Log (none)
# ............................................................ &init ...
id = "pm-jaempty.rc"
dummy = "
========================================================================
$id: init:
"
:0
* ! WSPC ?? [ ]
{
INCLUDERC = $PMSRC/pm-javar.rc
}
# ........................................................... &do-it ...
BODY_EMPTY = "yes"
# Every empty line or signarure start is a -1
#
# Every non-empty line that has characters is +10
#
:0
*$ B ?? -1^1 ^$s*$|^--
* B ?? 10^1 ^.*[a-z]
{
# no-op. We just count the score value.
}
SCORE = $=
:0
*$ ${SCORE}^0
{
BODY_EMPTY = "no"
}
dummy = "$id: end:"
# end of file pm-jaempty.rc
|
