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
|
### 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 viewingcharset {} {
# Viewing / Charactersets
Desc "Viewing Charactersets"
ShortDesc "Viewing Charactersets"
### Character sets ####
Header head1 \
-text "Character sets" \
-background gray\
-help "MIME, Multipurpose Internet Mail Extension (RFC 1341), provides a way to attach postscript(.ps), graphics(.jpeg), video(.mpeg), ..., and binary. Forinstance, this enables us (non US citizens) to use our local characters above the 128 charcters (8bit)."
Entry formatEntry0 \
-text "Name of character-set supported by your terminal" \
-width 35 \
-help "For sites with a X-Window system, \"ISO-8859-1\" is default but that will depend on your site's installation."
Entry formatEntry1 \
-text "Name of character-set used with MIME text/plain" \
-width 40 \
-help "This is the character set used for messages with a \"Content-Type: text/plain\" header. Be aware that if you use a national charset Elm probably needs metamail to display US-ASCII. An example could be \"ISO-8859-1\" which is set by default."
Line line1
Label formatLabel1 \
-text "List of Character Sets, which are more or less a superset of US-ASCII:"
Entry formatEntry2 \
-packFrame:expand 1 -packFrame:fill x -packEntry:fill x -packEntry:expand 1
foreach widget { formatLabel1 formatEntry2 } {
Help $widget "So Elm know that it can display messages with charset=US-ASCII without help of metamail. An example could be \"ISO-8859-1 ... ISO-8859-9\"."
}
################################ Change #################################
Change {
}
############################## Init / Save ##############################
Init {
}
Save {
print "\n# name of Character Set which the display supports. This is independent\n# of the above charset"
print "displaycharset = $formatEntry0"
print "\n# name of Character Set used with MIME text/plain Content-type\n# US-ASCII is default. Be aware that if you use a national charset\n# elm probably needs metamail to display US-ASCII."
print "charset = $formatEntry1"
print "\n# list of Character Sets, which are more or less a superset of US-ASCII\n# so Elm can display messages with charset=US-ASCII without help of metamail"
print "compatcharsets = $formatEntry2"
}
}
|
