2007-12-04 [colin] 3.1.0cvs52
authorColin Leroy <colin@colino.net>
Tue, 4 Dec 2007 09:48:03 +0000 (09:48 +0000)
committerColin Leroy <colin@colino.net>
Tue, 4 Dec 2007 09:48:03 +0000 (09:48 +0000)
* 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.

ChangeLog
PATCHSETS
configure.ac
src/news.c
src/procmsg.c
tools/Makefile.am
tools/README.sylprint [deleted file]
tools/sylprint.pl [deleted file]
tools/sylprint.rc [deleted file]

index 74c94b4..5db0eb5 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,16 @@
+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
index f398bbe..c3ad85f 100644 (file)
--- a/PATCHSETS
+++ b/PATCHSETS
 ( 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
index 829f8d7..72a1d7e 100644 (file)
@@ -11,7 +11,7 @@ MINOR_VERSION=1
 MICRO_VERSION=0
 INTERFACE_AGE=0
 BINARY_AGE=0
-EXTRA_VERSION=51
+EXTRA_VERSION=52
 EXTRA_RELEASE=
 EXTRA_GTK2_VERSION=
 
index 10fb69a..bc8d91c 100644 (file)
@@ -842,7 +842,7 @@ gint news_cancel_article(Folder * folder, MsgInfo * msginfo)
        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;
index d4c12d7..c18e2ca 100644 (file)
@@ -1653,7 +1653,7 @@ send_mail:
                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");
index 209c9fa..a432896 100644 (file)
@@ -22,8 +22,6 @@ EXTRA_TOOLS = \
        nautilus2claws-mail.sh \
        outlook2claws-mail.pl \
        popfile-link.sh \
-       sylprint.pl \
-       sylprint.rc \
        tb2claws-mail \
        tbird2claws.py \
        textviewer.pl \
@@ -38,7 +36,6 @@ EXTRA_TOOLS = \
 
 EXTRA_DIST = \
        README \
-       README.sylprint \
        multiwebsearch.conf \
        kdeservicemenu/README \
        kdeservicemenu/claws-mail-attach-files.desktop.template \
diff --git a/tools/README.sylprint b/tools/README.sylprint
deleted file mode 100644 (file)
index 0c03dd1..0000000
+++ /dev/null
@@ -1,233 +0,0 @@
-
-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.
-                                
diff --git a/tools/sylprint.pl b/tools/sylprint.pl
deleted file mode 100644 (file)
index 2195832..0000000
+++ /dev/null
@@ -1,325 +0,0 @@
-#!/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);
diff --git a/tools/sylprint.rc b/tools/sylprint.rc
deleted file mode 100644 (file)
index ffc04f0..0000000
+++ /dev/null
@@ -1,135 +0,0 @@
-#
-# 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;
-