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
87
88
|
### Copyright (C) 1996 Rasmus Ingemann Hansen
### 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.
###
### You should have received a copy of the GNU General Public License
### along with this program; if not, write to the Free Software
### Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
proc viewingheaders {} {
# Viewing / Headers
Desc "When viewing messages, abandon some headers"
ShortDesc "Viewing Headers"
### Behavior ###
Header head3 -text "Exclude headers for a message from being displayed" \
-background gray\
-help "Have some message headers newer to be shown. Default is to have a weedout list."
CheckBox actionMenuCheckBox00 \
-text "enable the weedout list (ie. headers like \"From:\" and \"Message-id:\") to be read" \
-help "Have a list of headers (as choosen below) which you never want to see."
TextBox actionMenuEntry00 \
-text "The following set of headers are never to be shown:" \
-help "Add any headers you want without use of 'Enter'- the listed are only optional. You might want to add something like \"X400-Received\" or \"X-Vms-From\".\nExamples could be:\n\">From\" \"Path:\" \"Sent:\" \"Sender:\" \"In-Reply-To:\" \"References:\" \"Newsgroups:\" \"Received:\" \"Aparently-To\" \"Message-Id:\" \"Content-Type:\" \"X-Status\" \"From:\" \"Mailer:\" \"*end-of-user-headers*\"" \
-height 5
### title header information ###
Header head15 \
-text "Display a header \"title\" when viewing a message" \
-background gray\
-help "When viewing, put a title infront of message"
CheckBox headersCheckBox12 \
-text "Have the first line of a viewed message titled with the following:" \
-help "When viewing a received message it's nice to have this informations in head of you (in case you forgotten since the main menu)."
Label headersLabel12 \
-text " 'MESSAGE #/total FROM username date time.'" \
-help "This field can't be edited. Choose to have it displayed or not."
################################ Change #################################
Change {
if {$actionMenuCheckBox00==1} {
Enable actionMenuEntry00
} {
Disable actionMenuEntry00
}
}
############################## Init / Save ##############################
Init {
}
Save {
print "\n# enable the weedout list to be read?"
if {$actionMenuCheckBox00==0} {
print "weed=OFF"
print "\n# what headers I DON'T want to see, ever:"
print "###weedout = \"*end-of-user-headers*\""
} else {
print "### weed=ON"
print "\n# what headers I DON'T want to see, ever:"
regsub -all {(
)} $actionMenuEntry00 " " str
print "weedout = $str"
}
print "\n# display message title when displaying pages of message?"
if {$headersCheckBox12==0} {
print "titles=OFF"
} else {
print "### titles=ON"
}
}
}
|
