+2007-12-04 [colin] 3.1.0cvs52
+
+ * tools/Makefile.am
+ * tools/README.sylprint
+ * tools/sylprint.pl
+ * tools/sylprint.rc
+ Fix debian bug #454089 (symlink attack in TMP directory)
+ http://secwatch.org/advisories/1019661/ :
+ Remove the buggy script, which was unmaintained anyway
+ * src/news.c
+ * src/procmsg.c
+ Store things in our private tmp directory.
+
2007-12-03 [colin] 3.1.0cvs51
* src/folder.c
( cvs diff -u -r 1.5.2.19 -r 1.5.2.20 src/plugins/dillo_viewer/dillo_prefs.c; ) > 3.1.0cvs49.patchset
( cvs diff -u -r 1.1.4.90 -r 1.1.4.91 src/etpan/imap-thread.c; cvs diff -u -r 1.1.2.2 -r 1.1.2.3 src/etpan/nntp-thread.c; ) > 3.1.0cvs50.patchset
( cvs diff -u -r 1.213.2.170 -r 1.213.2.171 src/folder.c; cvs diff -u -r 1.87.2.51 -r 1.87.2.52 src/folder.h; cvs diff -u -r 1.207.2.189 -r 1.207.2.190 src/folderview.c; cvs diff -u -r 1.179.2.202 -r 1.179.2.203 src/imap.c; cvs diff -u -r 1.274.2.222 -r 1.274.2.223 src/mainwindow.c; cvs diff -u -r 1.43.2.65 -r 1.43.2.66 src/prefs_matcher.c; ) > 3.1.0cvs51.patchset
+( cvs diff -u -r 1.101.2.46 -r 1.101.2.47 src/news.c; cvs diff -u -r 1.150.2.106 -r 1.150.2.107 src/procmsg.c; cvs diff -u -r 1.25.2.24 -r 1.25.2.25 tools/Makefile.am; cvs diff -u -r -1.1.14.4 -r -1.1.14.5 tools/README.sylprint; cvs diff -u -r -1.2.14.3 -r -1.2.14.4 tools/sylprint.pl; cvs diff -u -r -1.1.14.2 -r -1.1.14.3 tools/sylprint.rc; ) > 3.1.0cvs52.patchset
MICRO_VERSION=0
INTERFACE_AGE=0
BINARY_AGE=0
-EXTRA_VERSION=51
+EXTRA_VERSION=52
EXTRA_RELEASE=
EXTRA_GTK2_VERSION=
FILE * tmpfp;
gchar buf[BUFFSIZE];
- tmp = g_strdup_printf("%s%ctmp%p", g_get_tmp_dir(),
+ tmp = g_strdup_printf("%s%ccancel%p", get_tmp_dir(),
G_DIR_SEPARATOR, msginfo);
if (tmp == NULL)
return -1;
FILE *tmpfp;
/* write to temporary file */
- tmp = g_strdup_printf("%s%ctmp%p", g_get_tmp_dir(),
+ tmp = g_strdup_printf("%s%cnntp%p", get_tmp_dir(),
G_DIR_SEPARATOR, file);
if ((tmpfp = g_fopen(tmp, "wb")) == NULL) {
FILE_OP_ERROR(tmp, "fopen");
nautilus2claws-mail.sh \
outlook2claws-mail.pl \
popfile-link.sh \
- sylprint.pl \
- sylprint.rc \
tb2claws-mail \
tbird2claws.py \
textviewer.pl \
EXTRA_DIST = \
README \
- README.sylprint \
multiwebsearch.conf \
kdeservicemenu/README \
kdeservicemenu/claws-mail-attach-files.desktop.template \
+++ /dev/null
-
-NAME
- sylprint.pl - process a Claws Mail mail and print it using
- enscript if available (or lpr if not)
-
-SYNTAX
- sylprint.pl '%s' [-r] [options]
-
-DESCRIPTION
- Sylprint is a perl script for printing mails from Claws Mail
- mailer. Syntax given is appropiate (and designed) for usage
- in the "Printing" box of Claws Mail that appears when going
- Configuration->Common Preferences menu, Other tab.
-
- Sylprint translates the english header names given by
- Claws Mail into the local language if available. Also wraps
- long lines without breaking words, and indents headers, all
- in order to make a nicer and easier to read hardcopy.
-
- There are other programs that produce a nicer hardcopy,
- for example muttprint, but you pay the price of requiring
- LaTeX installed for the job. Sylprint tries to do it nice,
- but no so nice and also lowering resources required.
-
- It also has a GTK interface (in development) if you don't
- want to remember all those flags. The interface is only that,
- an interface, thus isn't required at all for running
- sylprint script, but while an experienced user may prefer
- to use the script straightforward, a beginner may feel more
- comfortable with a "printing panel"-like window.
-
-OPTIONS
- Options may be specfied in any order, but separated (i.e.: a
- valid specification is "-e -h" while "-eh" is not).
-
- All the options except -p and -v have the purpose of changing
- or disabling something that is done by default, so if you like
- the default output all may be totally useless. But not always.
-
- Options are:
-
- -e Do not use enscript at all (even if available).
-
- -f font
- Use font for printing mail. Font specification style
- is name[@{size|width/height}] (examples: 'Times',
- 'Times@12', 'Times@8/10').
- Font syntax correctness is checked, but availability
- of the font on the system is not checked.
- Default font is 'Courier@9/13'.
-
- -h Do not print page header. Page header includes date
- and page numbering and is generated by enscript.
-
- -p printer
- Use printer for printing (default is 'lp'). Printer
- is not checked at all, so must be a valid printer
- name within your system.
-
- -r Do not parse user configuration file (sylprint.rc).
- This must be the first option after filename if used.
-
- -s [char]
- Do not print separator line between headers and body
- unless char is specified, then set char as separator
- character in place of default one (underscore).
-
- -t Do not translate mail headers.
-
- -v Preview mail before printing. Preview is done using
- gv for enscript processed mails and gless for non
- processed ones.
- You can specify this option twice to avoid printing
- at all, in case you only want a preview.
-
- -w [number]
- If no number is given, disables line wrapping in
- mail text, else sets the column for wrapping to
- number instead of 79, which is the default value.
-
- -H Do not print mail headers (From, To, etc.). This also
- disables separator line printing.
-
- -Q [quote chars]
- Do not print quoted text (usually introduced by '>').
- You may supply the character or characters that lead
- the quoted text. These character(s) must be the first
- on a line to be interpreted as quoted.
- Remember to escape them from shell enclosed in single
- quotes ('|' for example) if required.
-
- -S Do not print mail signature (mail signatures started
- with -- and carriage return).
-
- -- Finish option parsing. All the options specified after
- this are passed unmodified to enscript or lpr.
-
-DIAGNOSTICS
- "required filename missing"
- No arguments were provided to the script, at least
- one, the filename with the mail to be printed, is
- required. See SYNTAX.
-
- "invalid font"
- The parameter of -f option does not match a valid
- font specification. See OPTIONS or enscript manpage.
-
- "invalid number"
- The parameter of -w option must be a decimal number
- without sign. See SYNTAX.
-
- "/usr/bin/lpr not found"
- The line printer command couldn't be stated. Be sure
- you have it installed where you configured, and if
- file permissions allow you to execute it.
- In some systems access to printer(s) is restricted.
-
- "trying lpr: error message"
- The lpr command failed by some reason, luckily by the
- stated in error message.
-
- "/usr/bin/enscript not found, using lpr"
- Enscript can't be found there, be sure it's installed
- and you set the right path in the config.
- As fallback, mail is printed using (ugly) lpr.
-
- "charset not supported by enscript: using lpr"
- Enscript doesn't (actually) support:
- * euc-jp (Japanese)
- * euc-kr (Korean)
- * iso-8859-9 (Turkish)
- * gb2312, big5 (Chinese)
- charset encodings, so only lpr can be used with them.
-
-ENVIRONMENT
- LANG If defined is used to guess the language that should
- be tried for translating and the charset encoding.
-
- HOME For getting Claws Mail user's config directory.
-
- USER For building temp files.
-
-FILES
- sylprint.pl
- The script itself.
-
- sylprint.rc
- Stores user default preferred configuration for the
- script. Settings in this file may be overriden by
- command line options. Must be stored in the same
- directory of the script and/or in the ~/.claws-mail
- one (Claws Mail user's configuration directory).
-
- /tmp/sylprint.username.number
- Temporary files created to store a processed mail.
- Username is the login name of the user invoking the
- sylprint script and number is the PID of the script
- process itself.
- These files are actually deleted unless something went
- really wrong.
-
- /tmp/sylprint.username.number.ps
- Same as the former, used to store PostScript preview
- of mail if preview is enabled.
-
-SEE ALSO
- Sylpheed: http://sylpheed.good-day.net
- Claws Mail: http://claws-mail.org/
- Enscript: http://www.iki.fi/~mtr/genscript/
- Muttprint: http://bwalle.exit.mytoday.de/muttprint/
- Sylprint: http://www.aic.uniovi.es/mones/sylprint/
-
- enscript(1), lpr(1), gv(1)
-
-LIMITATIONS
- Supported languages are only those supported by Claws Mail.
-
- Supported encodings are only those supported by enscript.
- Charset encodings not supported by enscript are printed via
- lpr.
-
- There are languages partially translated, mainly because
- the strings lack of translation in the po files or I was
- unable to guess a correct one from them.
- Currently Greek is the only language in this category.
-
-BUGS
- There is no enough command line options to set all config
- variables. This is not really a bug, because is intentional,
- only most common/useful features have an option. The rest
- can be set on the rc file.
-
- Diagnostic messages should be nicer and more informative.
-
- If you use a proportional font for printing mail with
- enscript, all the header's alignment and long line wrapping
- may be (and almost surely be) lost.
-
-AUTHOR
- The original author is Ricardo Mones Lastra, but much more
- people have, indirectly, contributed to this by providing
- Claws Mail translations, here used again:
-
- Alfons Hoogervorst; Andreas Hinz; Ante Karamatiæ;
- Danilo Bodei; Dmitry S. Sivachenko; Fabio Junior
- Beneditto; Frank J. J. Weng; Görkem Çetin; Gustavo
- Noronha Silva; Hiroyuki Yamamoto; Jens Oberender;
- Joakim Andreasson; Martin Schaaf; Melvin Hadasht;
- Michalis Kabrianis; Paul Rolland; Peeter Vois;
- Przemyslaw Sulek; Sergey Vlasov; Székely Krisztián;
- Vincent van Adrighem; Vladimír Marek; Xiangxin Luo.
-
- (Obtained from "Last-Translator" field on current po files)
-
-LICENSE
- Sylprint script, config files and documentation.
- (c) 2001 by Ricardo Mones Lastra <mones@aic.uniovi.es>.
-
- 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 3
- 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., 59 Temple Place - Suite 330, Boston,
- MA 02111-1307, USA.
-
+++ /dev/null
-#!/usr/bin/perl -w
-#
-# sylprint.pl - process a Claws Mail mail and print it using enscript or lpr
-#
-# (c) 2001 by Ricardo Mones Lastra <mones@aic.uniovi.es>
-# This program is released under the GNU General Public License.
-# See README.sylprint file for details and usage.
-
-# NOTE: If you want to to change configuration edit sylprint.rc file,
-# all options are further explained in that file.
-
-# hardwired config
-$headerformat = '|%W|$%/$=';
-$printer = 'lp';
-$papersize = 'A4';
-$encoding = 'latin1';
-$pageheaderfont = 'Times-Roman@11';
-$mailfont = 'Courier@9/13';
-$separator = '_';
-$usenscript = 1;
-$translate = 1;
-$signature = 1;
-$headers = 1;
-$preview = 0;
-$remquoted = '';
-$wrapping = 79;
-# programs
-$_=`which enscript`; chomp; $ENS=$_;
-$_=`which lpr`; chomp; $LPR=$_;
-$_=`which gv`; chomp; $GPR=$_;
-$_=`which gless`; chomp; $TPR=$_;
-$rc='sylprint.rc';
-# parse parameters
-die "required filename missing\n" unless (defined($ARGV[0]));
-$a = 1;
-# get user config
-if (defined($ARGV[1]) && $ARGV[1] eq '-r') { $a++; }
-else {
- @spp = split('/',$0);
- $spp[$#spp] = '';
- $spp = join('/',@spp);
- $rcf="$spp$rc";
- if (-x $rcf) { do $rcf; }
- $rcf="$ENV{'HOME'}/.claws-mail/$rc";
- if (-x $rcf) { do $rcf; }
-}
-@forens = ();
-while (defined($ARGV[$a])) {
- for ($ARGV[$a]) {
- /-p/ && do {
- $a++;
- $printer = (defined($ARGV[$a]))? $ARGV[$a]: $printer;
- last;
- };
- /-f/ && do {
- $a++;
- $mailfont = (defined($ARGV[$a]))? $ARGV[$a]: $mailfont;
- $_ = $mailfont;
- die "$0: invalid font\n" unless (/\w+(\@\d+(\.\d+)?(\/\d+(\.\d+)?)?)?/);
- last;
- };
- /-s/ && do {
- $a++;
- $separator = (defined($ARGV[$a]))? $ARGV[$a]: '';
- if ($separator) {
- $_ = $separator;
- if (/-./) { $separator = ''; $a--; }
- }
- last;
- };
- /-h/ && do { $headerformat = ''; last; };
- /-t/ && do { $translate = 0; last; };
- /-e/ && do { $usenscript = 0; last; };
- /-v/ && do { $preview++; last; };
- /-w/ && do {
- $a++;
- $wrapping = (defined($ARGV[$a]))? $ARGV[$a]: 0;
- if ($wrapping) {
- $_ = $wrapping;
- if (/-./) { $wrapping = 0; $a--; }
- else { die "$0: invalid number\n" unless (/\d+/); }
- }
- last;
- };
- /-Q/ && do {
- $remquoted = '>';
- if (defined($ARGV[$a + 1])) {
- $_ = $ARGV[$a + 1];
- do { $remquoted = $_; $a++ ; } unless (/-./);
- }
- last;
- };
- /-S/ && do { $signature = 0; last; };
- /-H/ && do { $headers = 0; last; };
- /--/ && do { $a++; @forens = splice(@ARGV,$a); last; };
- };
- $a++;
-}
-# translations/encoding
-$lang = (defined($ENV{'LANG'}) && $translate)? $ENV{'LANG'}: 'en';
-for ($lang) {
- /cs.*/ && do {
- @cabl=("Datum","Od","Komu","Kopie","Diskusní skupiny","Pøedmìt");
- $encoding = 'latin2'; # Czech (iso-8859-2)
- last;
- };
- /da.*/ && do {
- @cabl=("Dato","Fra","Til","Cc","Newsgroups","Emne");
- last;
- };
- /de.*/ && do {
- @cabl=("Datum","Von","An","Cc","Newsgruppen","Betreff");
- $headerformat = '|%W|Seite $% vom $=';
- last;
- };
- /el.*/ && do {
- @cabl=("Çìåñïìçíßá","Áðü", "Ðñïò","Êïéíïðïßçóç","Newsgroups","ÈÝìá");
- $encoding = 'greek'; # Greek (iso-8859-7)
- last;
- };
- /es.*/ && do {
- @cabl=("Fecha","Desde","Para","Copia","Grupos de noticias","Asunto");
- $headerformat = '|%W|Pág. $% de $=';
- last;
- };
- /et.*/ && do {
- @cabl=("Kuupäev","Kellelt","Kellele","Koopia","Uudistegrupid","Pealkiri");
- last;
- };
- /fr.*/ && do {
- @cabl=("Date","De","À","Cc","Groupe de discussion","Sujet");
- $headerformat = '|%W|Page $% des $=';
- last;
- };
- /hr.*/ && do {
- @cabl=("Datum","Od","Za","Cc","News grupe","Tema");
- $encoding = 'latin2'; # Croatian (iso-8859-2)
- last;
- };
- /hu.*/ && do {
- @cabl=("Dátum","Feladó","Címzett","Másolat","Üzenet-azonosító","Tárgy");
- $encoding = 'latin2'; # Hungarian (iso-8859-2)
- last;
- };
- /it.*/ && do {
- @cabl=("Data","Da","A","Cc","Gruppo di notizie","Oggetto");
- $headerformat = '|%W|Pag. $% di $=';
- last;
- };
- /ja.*/ && do {
- @cabl=("ÆüÉÕ","º¹½Ð¿Í","°¸Àè","Cc","¥Ë¥å¡¼¥¹¥°¥ë¡¼¥×","·ï̾");
- warn "$0: charset not supported by enscript: using lpr\n";
- $usenscript = 0;
- last;
- };
- /ko.*/ && do {
- @cabl=("³¯Â¥","º¸³½ »ç¶÷","¹Þ´Â »ç¶÷","ÂüÁ¶","´º½º±×·ì","Á¦¸ñ");
- warn "$0: charset not supported by enscript: using lpr\n";
- $usenscript = 0;
- last;
- };
- /nl.*/ && do {
- @cabl=("Datum","Afzender","Aan","Cc","Nieuwsgroepen","Onderwerp");
- last;
- };
- /pl.*/ && do {
- @cabl=("Data","Od","Do","Kopia","Grupy news","Temat");
- $encoding = 'latin2'; # Polish (iso-8859-2)
- last;
- };
- /pt.*/ && do {
- @cabl=("Data","De","Para","Cc","Grupos de notícias","Assunto");
- last;
- };
- /ru.*/ && do {
- @cabl=("äÁÔÁ","ïÔ","ëÏÍÕ","ëÏÐÉÑ","çÒÕÐÐÙ ÎÏ×ÏÓÔÅÊ","ôÅÍÁ");
- $encoding = 'koi8'; # Russian (koi8-r)
- last;
- };
- /sv.*/ && do {
- @cabl=("Datum","Från","Till","Cc","Nyhetsgrupper","Ärende");
- last;
- };
- /tr.*/ && do {
- @cabl=("Tarih","Kimden","Kime","Kk","Haber gruplarý","Konu");
- warn "$0: charset not supported by enscript: using lpr\n";
- $usenscript = 0;
- last;
- };
- /zh_CN\.GB2312/ && do {
- @cabl=("ÈÕÆÚ","·¢¼þÈË£º","ÖÂ(To)£º","³ËÍ(Cc)£º","ÐÂÎÅ×飺","±êÌ⣺");
- warn "$0: charset not supported by enscript: using lpr\n";
- $usenscript = 0;
- last;
- };
- /zh_TW\.Big5/ && do {
- @cabl=("¤é´Á","¨Ó¦Û¡G","¦¬¥ó¤H","°Æ¥»","·s»D¸s²Õ¡G","¼ÐÃD¡G");
- warn "$0: charset not supported by enscript: using lpr\n";
- $usenscript = 0;
- last;
- };
- /.*/ && do {
- @cabl=("Date","From","To","Cc","Newsgroups","Subject");
- last;
- };
-}
-# headers as given by Claws Mail
-%cabs = ("Date",0,"From",1,"To",2,"Cc",3,"Newsgroups",4,"Subject",5);
-@cabn = ("Date","From","To","Cc","Newsgroups","Subject");
-@cont = ("","","","","","");
-$body = "";
-# go
-$tmpfn="/tmp/sylprint.$ENV{'USER'}.$$";
-open(TMP,">$tmpfn");
-open(FIN,"<$ARGV[0]");
-LN: while (<FIN>) {
- $ln = $_;
- foreach $n (@cabn) {
- $ix = $cabs{$n};
- if ($cont[$ix] eq "") {
- $_ = $ln;
- if (/^$n:\s+(.+)$/) {
- $cont[$ix]=$1;
- next LN;
- }
- }
- }
- if ($remquoted ne '' && /^\Q$remquoted\E(.+)$/) { next LN; }
- if (!$signature && /^--\s*$/) { last; }
- $body = join('',$body,$ln);
-}
-close(FIN);
-
-# alignment
-$ml = 0;
-foreach $n (@cabn) {
- $lci = length($cabl[$cabs{$n}]);
- $ml = (($cont[$cabs{$n}] ne "") && ($lci > $ml))? $lci: $ml;
-}
-$ml++;
-
-# print headers
-if ($headers) {
- print TMP "\n\n";
- foreach $n (@cabn) {
- $ix = $cabs{$n};
- if ($cont[$ix] ne "") {
- print TMP "$cabl[$ix]", " " x ($ml - length($cabl[$ix])), ": ";
- if ($wrapping) {
- my $kk = 1; $wl = $wrapping;
- $l = $cont[$ix];
- while (length($l) > ($wl - $ml)) {
- $ll = substr($l,0,$wl);
- $jx = $wl - 1;
- while ((substr($ll,$jx,1) ne ' ') && $jx) { $jx--; }
- $ll = substr($l,0,($jx)? $jx: $wl,'');
- if ($kk) { print TMP $ll, "\n"; $kk--; }
- else { print TMP " ", " " x $ml, $ll, "\n"; }
- }
- if ($kk) { print TMP $l, "\n"; }
- else { print TMP " ", " " x $ml, $l, "\n"; }
- }
- else {
- print TMP $cont[$ix], "\n";
- }
- }
- }
- if ($separator) {
- print TMP $separator x (($wrapping)? $wrapping: 79), "\n";
- };
-}
-
-# mail body
-if ($wrapping) {
- $wl = $wrapping;
- @bodyl = split(/\n/,$body);
- foreach $l (@bodyl) {
- while (length($l) > $wl) {
- $ll = substr($l,0,$wl);
- $ix = $wl - 1;
- while ((substr($ll,$ix,1) ne ' ') && $ix) { $ix--; }
- $ll = substr($l,0,($ix)? $ix: $wl,'');
- print TMP $ll,"\n";
- }
- print TMP $l,"\n";
- }
-}
-else {
- print TMP "\n$body\n";
-}
-close(TMP);
-
-# let enscript do its job
-if (-x $ENS and $usenscript) {
- @ecmd = ($ENS,'','','-b',$headerformat,'-M',$papersize,'-X',$encoding,
- '-i','1c','-h','-f',$mailfont,'-F',$pageheaderfont,@forens,
- $tmpfn);
- if ($preview) {
- $ecmd[1] = '-p'; $ecmd[2] = "$tmpfn.ps";
- system(@ecmd);
- @vcmd = (split(' ',$GPR),"$tmpfn.ps");
- system(@vcmd);
- unlink("$tmpfn.ps");
- }
- if ($preview < 2) {
- $ecmd[1] = '-P'; $ecmd[2] = $printer;
- system(@ecmd);
- }
-}
-else { # no enscript, try lpr
- if ($usenscript) { warn "$ENS not found, using lpr\n"; }
- die "$LPR not found\n" unless (-x $LPR);
- if ($preview) {
- @vcmd = (split(' ',$TPR),$tmpfn);
- system(@vcmd);
- }
- if ($preview < 2) {
- @lprcmd = ($LPR,'-T','Claws Mail Mail',
- ($headerformat eq '')? '-l': '-p','-P',$printer,@forens, $tmpfn);
- die "trying lpr: $! \n" unless (system(@lprcmd) != -1);
- }
-}
-
-# remove tmp stuff
-unlink($tmpfn);
+++ /dev/null
-#
-# sylprint.rc - Sylprint User Configuration File
-#
-# Modify here the values assigned to the variables to reflect
-# your personal default preferences. Some of the values can
-# still be changed from the command line options if required.
-# This file must have exec permissions set and be located in
-# sylprint.pl directory and/or ~/.claws-mail to be used.
-#
-# (c) 2001 by Ricardo Mones Lastra <mones@aic.uniovi.es>
-# This program is released under the GNU General Public License.
-# See README.sylprint file for details and usage.
-#
-
-#############################################################
-# binaries location in your harddisk
-#############################################################
-
-# Uncomment this if you have enscript in a location which
-# is not in your PATH.
-#
-#$ENS='/usr/bin/enscript';
-
-# Printing command for text only output, uncomment and set
-# the right full path if lpr is not in your PATH.
-#
-#$LPR='/usr/bin/lpr';
-
-# PostScript previewer, gv by default, automagically
-# guessed, uncomment this if gv is not in your PATH or
-# you want to use another ps viewer.
-#
-#$GPR='/usr/local/bin/gv';
-
-# Text previewer, gless by default :-) and guessed.
-# Uncomment one and/or modify for using others.
-# Remember to launch your preferred text lister
-# in a *term if is a text program, as in the examples.
-# The file name of the temporary preview file will be
-# the last parameter passed to the command you set here.
-#
-#$TPR='vim -g -R -f';
-#$TPR='xterm -e less';
-#$TPR='/usr/bin/nedit';
-
-#############################################################
-# enscript related options
-#############################################################
-
-# The format of the header of the page added by enscript.
-# Set to '' to disable header printing.
-# Default value is '|%W|$%/$='
-# (centered <date>, <pagenumber>/<totalpages> on the left).
-#
-$headerformat = '|%W|$%/$=';
-
-# Size of the media lying on your's printer paper feeder.
-# legal values are 'A4', 'Letter', etc.
-# run "enscript --list-media" to see all possible values.
-#
-$papersize = 'A4';
-
-# Charset for mail encoding. Default value is 'latin1'.
-# Other possibilities: 'latin2', 'koi8', 'greek' and many
-# more (but not all :-(. See enscript manpage.
-#
-$encoding = 'latin1';
-
-# Font for the enscript generated page header. Useless
-# unless $headerformat is set. Default is 'Times-Roman@11'.
-# Number is font size in points.
-#
-$pageheaderfont = 'Times-Roman@11';
-
-# Font for mail text (headers and body).
-# Default value is 'Courier@9/13'. First number is width
-# and second is height (both in points).
-#
-$mailfont = 'Courier@9/13';
-
-#############################################################
-# processing options
-#############################################################
-
-# The name of the printer for printing mails.
-# Default value is 'lp'. Others like 'lp0', 'lp1' may exist
-# in your system.
-#
-$printer = 'lp';
-
-# Set to '' if you don't want a line full of underscores
-# separating the mail headers from the body, else set to
-# the character you want to separate headers from body.
-#
-$separator = '_';
-
-# Set to 0 if you dont't want to use enscript at all,
-# and then mails will be sent to lpr directly.
-#
-$usenscript = 1;
-
-# Set to 0 if you don't want the mail header names to be
-# translated into your $LANG language.
-#
-$translate = 1;
-
-# Set to 0 if you don't want mail signatures to be printed.
-# Mail signatures are introduced by "--" and a carriage return.
-#
-$signature = 1;
-
-# Set to 0 if you don't want to print mail headers (From,
-# To, and so on).
-#
-$headers = 1;
-
-# Set to a quote starting symbol(s) (like '>') to enable
-# quoted text removal from mail body. Set to '' to let
-# all text be printed.
-#
-$remquoted = '';
-
-# Set to 1 if you want the mail to be previewed before
-# sending to printer.
-#
-$preview = 0;
-
-# Set to 0 if you don't want to wrap lines in mail body
-# or to a higher value to indicate the wrapping column.
-# Unwrapped lines may not be printed when using lpr.
-# Enscript has it's own cuting, so all text is printed,
-# but words are broken at any position without mercy.
-#
-$wrapping = 79;
-