lettre (10sep14)

git-svn-id: svn://tug.org/texlive/trunk@35145 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 136 insertions, 315 deletions

diff --git a/Master/texmf-dist/tex/latex/lettre/default.ins b/Master/texmf-dist/tex/latex/lettre/default.ins
index 73df42049c5..53ced772d79 100644
--- a/Master/texmf-dist/tex/latex/lettre/default.ins
+++ b/Master/texmf-dist/tex/latex/lettre/default.ins
@@ -1,12 +1,23 @@
+% file name   : `default.ins'.
+% pacakge name: lettre
+% maintenance : Vincent Belaïche (vincentb1@users.sourceforge.net)
+% author      : Denis Mégevand - Observatoire de Genève
+% email       : lettre_observatoire-aide@gna.org
+% version     : v2.353
+% date        : 2014/09/09
+%
 % This file is part of the "lettre" package.
-% This package is distributed under the terms of the LaTeX Project 
-% Public License (LPPL) described in the file lppl.txt.
+% This work may be distributed and/or modified under the conditions of the
+% LaTeX Project Public License, either version 1.3 of this license or (at your
+% option) any later version.  The latest version of this license is in
+% http://www.latex-project.org/lppl.txt and version 1.3 or later is part of all
+% distributions of LaTeX version 2005/12/01 or later.
+%
+% This work has the LPPL maintenance status `maintained'.
 %
-% Denis Mégevand - Observatoire de Genève.
+% The Current Maintainer of this work is Vincent Belaïche.
 %
-% Ce fichier fait partie de la distribution du paquetage "lettre".
-% Ce paquetage est distribué sous les termes de la licence publique 
-% du projet LaTeX (LPPL) décrite dans le fichier lppl.txt.
+% This work consists of all files listed in file README
 %
 %    ****************************************
 %    * DEFINITIONS DE L'INSTITUT B.I.D.O.N  *
diff --git a/Master/texmf-dist/tex/latex/lettre/lettre.cls b/Master/texmf-dist/tex/latex/lettre/lettre.cls
index a785eb70edf..bc77d73564f 100644
--- a/Master/texmf-dist/tex/latex/lettre/lettre.cls
+++ b/Master/texmf-dist/tex/latex/lettre/lettre.cls
@@ -1,51 +1,46 @@
-%  %NAME%    : Lettre
-%  maintenance: Vincent Belaïche (vincentb1@users.sourceforge.net)
-%  %AUTHOR%  : Denis Mégevand - Observatoire de Genève
-%  %EMAIL%   : Denis.Megevand@obs.unige.ch
-%  %VERSION% : v2.348
-%% 
-%% This is file `lettre.cls'.
-%% 
-%% The original source files were:
-%% 
-%% letter.cls  - LaTeX 2e team
-%% lettre.sty  - D. Megevand
-%% 
-%% 
-%% IMPORTANT NOTICE: 
-%% 
-%% This file is part of the "lettre" package.
-%% This package is distributed under the terms of the LaTeX Project
-%% Public License (LPPL) described in the file lppl.txt.
-%%
-%% Denis Mégevand - Observatoire de Genève.
-%%
-%% Ce fichier fait partie de la distribution du paquetage "lettre".
-%% Ce paquetage est distribué sous les termes de la License Publique
-%% du Projet LaTeX (LPPL) décrite dans le fichier lppl.txt.
-%%
+% file name   : `lettre.cls'.
+% package name: lettre
+% maintenance : Vincent Belaïche (vincentb1@users.sourceforge.net)
+% author      : Denis Mégevand - Observatoire de Genève
+% email       : lettre_observatoire-aide@gna.org
+% version     : v2.353
+% date        : 2014/09/09
+%
+% This file is part of the "lettre" package.
+% This work may be distributed and/or modified under the conditions of the
+% LaTeX Project Public License, either version 1.3 of this license or (at your
+% option) any later version.  The latest version of this license is in
+% http://www.latex-project.org/lppl.txt and version 1.3 or later is part of all
+% distributions of LaTeX version 2005/12/01 or later.
 %
-%    ****************************************
-%    *             PREAMBULE                *
-%    ****************************************
+% This work has the LPPL maintenance status `maintained'.
+%
+% The Current Maintainer of this work is Vincent Belaïche.
+%
+% This work consists of all files listed in file README
 %
 \NeedsTeXFormat{LaTeX2e}
 \RequirePackage{graphicx}
-\ProvidesClass{lettre}[2013/10/07 v2.349]
+\ProvidesClass{lettre}[2014/09/09 v2.353]
 \typeout{Copyleft Denis Megevand - Observatoire de Geneve}%
 %%
-\newcommand\@ptsize{}
 \DeclareOption{10pt}{\renewcommand\@ptsize{0}}
 \DeclareOption{11pt}{\renewcommand\@ptsize{1}}
 \DeclareOption{12pt}{\renewcommand\@ptsize{2}}
+\if@compatibility\else
+\DeclareOption{a4paper}
+   {\setlength\paperheight {297mm}%
+    \setlength\paperwidth  {210mm}}
+\fi
 \if@compatibility
-  \DeclareOption{twoside}{\@latexerr{No `twoside' layout for letters}%
-                                   \@eha}
+  \DeclareOption{twoside}{\ClassError{lettre}{No `twoside' layout for letters}%
+     {LaTeX2e is running in compatibility mode, in this mode there is no `twoside'
+     layout for letters}}
 \else
   \DeclareOption{twoside}{\@twosidetrue}
 \fi
 \DeclareOption{oneside}{\@twosidefalse}
-\DeclareOption{origdate}{\@origdatetrue\PackageWarningNoLine{lettre}{Mode `origdate'}}
+\DeclareOption{origdate}{\@origdatetrue\l@@info{Mode `origdate'}}
 \DeclareOption{draft}{\setlength\overfullrule{5pt}}
 \DeclareOption{final}{\setlength\overfullrule{0pt}}
 \DeclareOption{leqno}{\input{leqno.clo}}
@@ -55,20 +50,29 @@
 \DeclareOption{allemand}{\def\defaultlanguage{allemand}}
 \DeclareOption{americain}{\def\defaultlanguage{americain}}
 \DeclareOption{anglais}{\def\defaultlanguage{anglais}}
-\if@compatibility
-\else
-\DeclareOption*{\PackageWarningNoLine{lettre}{Option inconnue : `\CurrentOption'}}
+\if@compatibility\else
+  \DeclareOption*{\l@@warning{Option inconnue : `\CurrentOption', assurez-vous que
+    c'est une option globale passee aux paquetages utilises dans votre document}}
 \fi
+\def\infos{\c@infos=1\relax}
+\def\noinfos{\c@infos=0\relax}
+%
+\def\l@@warning{%
+  \ClassWarning{lettre}%
+}
+\def\l@@info#1{\ifnum\c@infos=1 %
+      \GenericWarning{%
+        (lettre)\space\@spaces\@spaces\@spaces
+      }{Class lettre Message: #1\@gobble}%
+  \fi
+}%
+\newcommand\@ptsize{}
+\newcount\c@infos\c@infos=1\relax
 \newif\if@origdate\@origdatefalse
 \newif\if@etiq\@etiqfalse
 \ExecuteOptions{10pt,oneside,final,francais}
 \ProcessOptions
 \input{size1\@ptsize.clo}
-%
-%    ****************************************
-%    *               POLICES                *
-%    ****************************************
-%
 \DeclareOldFontCommand{\rm}{\rmfamily}{\mathrm}
 \DeclareOldFontCommand{\sl}{\slshape}{\@nomath\sl}
 \DeclareOldFontCommand{\it}{\itshape}{\mathit}
@@ -78,11 +82,6 @@
 \DeclareOldFontCommand{\tt}{\ttfamily}{\mathtt}
 \DeclareRobustCommand*{\cal}{\@fontswitch{\relax}{\mathcal}}
 \DeclareRobustCommand*{\mit}{\@fontswitch{\relax}{\mathnormal}}
-%
-%    ****************************************
-%    *       PARAGRAPHES : parametres       *
-%    ****************************************
-%
 \lineskip  1pt%
 \normallineskip 1pt%
 \parskip  .7em%
@@ -98,56 +97,27 @@
 \@beginparpenalty -\@lowpenalty 
 \@endparpenalty   -\@lowpenalty
 \@itempenalty     -\@lowpenalty
-%
-%    ****************************************
-%    *      MISE-EN-PAGE : parametres       *
-%    ****************************************
-
-% marge sup.      25mm
 \topmargin        25mm%
-% suppression de l'offset vertical
 \advance\topmargin by -1in
-% sep. d'entete    4mm
 \headheight        0pt%
 \headsep           4mm%
-% hauteur texte  250mm
 \textheight      250mm%
 % sep d'embase     9mm
 \footskip          9mm%
 %
-% total vertical 25+4+250+9=288 mm, reste 9 mm sur A4 = 297 mm.
-%
 \footnotesep       5mm%
 \marginparpush     1mm%
 %
 % marge gauche    25mm
 \oddsidemargin    25mm%
 \evensidemargin   25mm%
-% suppression de l'offset horizontal
 \advance\oddsidemargin by -1in
 \advance\evensidemargin by -1in
-% largeur texte  160mm
 \textwidth       160mm%
-% sep. note lat.  4mm
 \marginparsep      4mm%
-% larg. note lat 15mm
 \marginparwidth   15mm%
-%
-% total horizontal 25+160+4+15=204 mm, reste 6 mm sur A4 = 210 mm.
-%
 \skip\footins    4mm plus 2pt minus 4pt%
-%
-%    ************************************************
-%    *       LE FORMAT LETTRE ET FAX DE             *
-%    *        L'OBSERVATOIRE DE GENEVE              *
-%    ************************************************
-%
-%    ************************************************
-%    *   NEWCOUNTS, NEWDIMENS, NEWIFS, NEWWRITE     *
-%    ************************************************
-%
 \newcount\auxcount
-\newcount\c@infos\c@infos=1\relax
 \newcount\c@labelstart
 \newcount\c@lettre
 \newcount\c@telefax
@@ -173,7 +143,6 @@
 \newdimen\faxbox@width
 \newdimen\toaddress@fax@width
 \newdimen\fromname@fax@width
-%
 \newif\if@letter\@lettertrue
 \newif\if@detail\@detailfalse 
 %
@@ -181,12 +150,8 @@
 \newwrite\@dateaux
 \newwrite\@etiqaux
 \newwrite\@faxaux
-%
-%    ************************************************
-%    *               MACROS INTERNES                *
-%    ************************************************
-%
-\@ifundefined{lettre@t}{}{\PackageError{lettre}{Definition en double}{Redefinition de la macro `lettre@t'}}
+\@ifundefined{lettre@t}{}{\ClassError{lettre}{Definition en double}%
+  {Redefinition de la macro `lettre@t'}}
 \def\lettre@t#1#2{\begin{list}{#1}{\setlength{\labelsep}{10pt}%
                             \setlength{\labelwidth}{\listmargin}%
                             \setlength{\leftmargin}{\listmargin}%
@@ -240,55 +205,18 @@
 \def\@nobreakcr{\vadjust{\penalty\@M}\@ifstar{\@xnewline}{\@xnewline}}%
 \def\startbreaks{\let\\=\@normalcr
    \interlinepenalty 200\relax\def\par{\@@par\penalty -100\relax}}%
-%
-%*************************************************************
-%                  MESSAGES ET AVERTISSSEMENTS               *
-%*************************************************************
-%
-% Envoyes a la console et dans le fichier de log
-%
-% On peut supprimer allumer ou eteindre en tout temps les
-% messages d'informations par les commandes \infos et \noinfos.
-% Les avertissements ne peuvent etre supprimes.
-%*************************************************************
-\def\infos{\c@infos=1\relax}
-\def\noinfos{\c@infos=0\relax}
-%
-\def\ltypeout#1{{\let\protect\string\immediate\write16{#1}}}%
-\def\l@@warning#1{\typeout{LETTRE WARNING: #1.}}%
-\def\l@warning#1{\l@@warning{#1\on@line}}%
-\def\l@@info#1{\ifnum\c@infos=1\typeout{LETTRE INFO: #1.}\fi}%
-%
-%    ************************************************
-%    *                 ETIQUETTES                   *
-%    ************************************************
-%
-% La commande \startlabels suivante definit des pages 
-% A4 de 2 colonnes d'etiquettes avec 15 mm de marges
-% gauche et droite sur chaque etiquette.
-% Si l'on change le nombre d'etiquettes sur une page, 
-% il faut aussi modifier la routine \@startlabels
-%
 \def\startlabels{%
 \baselineskip=0pt\lineskip=0pt%
 \pagestyle{empty}%
 \let\@texttop=\relax
 \topmargin=0pt\headsep=0pt%
 \oddsidemargin=15mm\evensidemargin=15mm%
-%
-% modifications des dimensions de la page a faire ici
-%
 \textheight=297mm\textwidth=180mm\columnsep=30mm%
 \@colht=\textheight\@colroom=\textheight\vsize=\textheight
 \small
 \baselineskip=0pt\lineskip=0pt%
 \boxmaxdepth=0pt%
 \twocolumn\relax}%
-%
-% La commande \@startlabels suivante definit la position de la 
-% premiere etiquette sur la page, a partir de la valeur du 
-% compteur \c@labelstart.
-%
 \def\@startlabels{%
 \l@@info{Position de la premiere etiquette: \the\c@labelstart}%
 \ifnum\c@labelstart>\z@
@@ -303,40 +231,18 @@
     \l@@warning{Position de la premiere etiquette ignoree}%
 \fi
 }%
-%
-% La commande \mlabel fabrique une etiquette de 37 mm de hauteur,
-% la largeur etant definie dans \startlabels (105mm-30mm de marges)
-% chacune contenant 70 mm de texte au centre de l'etiquette.
 \def\mlabel#1{\setbox0\vbox{\parbox[b]{70mm}{\rm\strut\ignorespaces #1}}%
          \vbox to 37mm{\vskip5mmplus1fil \box0 \vskip5mmplus1fil}}%
-%
-% \makelabels demande a \begin{document} d'imprimer sur le fichier 
-% auxiliaire .etq l'ordre de preparer les etiquettes.
-% Son argument optionnel definit quelle est la prochaine etiquette 
-% libre sur la page, de maniere a utiliser des feuilles deja 
-% partiellement utilisees. Dans ce cas, \begin{document} imprime 
-% autant d'etiquettes vides que necessaire.
-%
 \def\makelabels{%
     \@etiqtrue
     \l@@info{On demande des etiquettes}%
     \@ifnextchar [{\i@makelabels}{\i@makelabels[1]}}%
 \def\i@makelabels[#1]{\c@labelstart=#1}%
-%
-%    ****************************************
-%    *       ADAPTATIONS DES DEFAUTS        *
-%    ****************************************
-%
 \def\institut#1{%
   \l@@info{Fichier de defaut: #1.ins}%
   \def\@institut{\makeatletter
                  \input{#1.ins}%
                  \makeatother}}%
-%
-%    ************************************************
-%    *        ENVIRONNEMENTS LETTER ET FAX          *
-%    ************************************************
-%
 \long\def\letter#1{%
   \rm
   \global\advance\c@lettre\@ne
@@ -369,43 +275,43 @@
     \immediate\write\@tensionaux{%
           \string\expandafter\string\def%
           \string\csname\space newletter\the\c@lettre\string\endcsname{-2}}%
-    \l@@warning{Longueur de la derniere page : \the\pagetotal < 50pt}%
-    \l@@warning{  tension de page modifiee a -2, veuillez recompiler}%
+    \l@@warning{Longueur de la derniere page : \the\pagetotal < 50pt\MessageBreak
+      tension de page modifiee a -2, veuillez recompiler}%
   \else
   \ifdim\pagetotal < 90pt
     \immediate\write\@tensionaux{%
           \string\expandafter\string\def%
           \string\csname\space newletter\the\c@lettre\string\endcsname{-4}}%
-    \l@@warning{Longueur de la derniere page : \the\pagetotal < 90pt}%
-    \l@@warning{  tension de page modifiee a -4, veuillez recompiler}%
+    \l@@warning{Longueur de la derniere page : \the\pagetotal < 90pt\MessageBreak
+      tension de page modifiee a -4, veuillez recompiler}%
   \else
   \ifdim\pagetotal < 130pt
     \immediate\write\@tensionaux{%
           \string\expandafter\string\def%
           \string\csname\space newletter\the\c@lettre\string\endcsname{-5}}%
-    \l@@warning{Longueur de la derniere page : \the\pagetotal < 130pt}%
-    \l@@warning{  tension de page modifiee a -5, veuillez recompiler}%
+    \l@@warning{Longueur de la derniere page : \the\pagetotal < 130pt\MessageBreak
+      tension de page modifiee a -5, veuillez recompiler}%
   \else
   \ifdim\pagetotal < 170pt
     \immediate\write\@tensionaux{%
           \string\expandafter\string\def%
           \string\csname\space newletter\the\c@lettre\string\endcsname{-6}}%
-    \l@@warning{Longueur de la derniere page : \the\pagetotal < 170pt}%
-    \l@@warning{  tension de page modifiee a -6, veuillez recompiler}%
+    \l@@warning{Longueur de la derniere page : \the\pagetotal < 170pt\MessageBreak
+      tension de page modifiee a -6, veuillez recompiler}%
   \else
   \ifdim\pagetotal < 210pt
     \immediate\write\@tensionaux{%
           \string\expandafter\string\def%
           \string\csname\space newletter\the\c@lettre\string\endcsname{4}}%
-    \l@@warning{Longueur de la derniere page : \the\pagetotal < 210pt}%
-    \l@@warning{  tension de page modifiee a 4, veuillez recompiler}%
+    \l@@warning{Longueur de la derniere page : \the\pagetotal < 210pt\MessageBreak
+      tension de page modifiee a 4, veuillez recompiler}%
   \else
   \ifdim\pagetotal < 250pt
     \immediate\write\@tensionaux{%
           \string\expandafter\string\def%
           \string\csname\space newletter\the\c@lettre\string\endcsname{6}}%
-    \l@@warning{Longueur de la derniere page : \the\pagetotal < 250pt}%
-    \l@@warning{  tension de page modifiee a 6, veuillez recompiler}%
+    \l@@warning{Longueur de la derniere page : \the\pagetotal < 250pt\MessageBreak
+      tension de page modifiee a 6, veuillez recompiler}%
   \else
     \immediate\write\@tensionaux{%
           \string\expandafter\string\def%
@@ -437,15 +343,14 @@
            \\\toaddress}}%
     \endgroup 
   \fi}%
-%
 \long\def\telefax#1#2{%
   \rm
   \global\advance\c@telefax\@ne
   \l@@info{Telefax \the\c@telefax}%
   \ifnum\c@telefax=\@ne
   \else
-    \l@@warning{Un seul telefax par fichier, s.v.p.,}
-    \l@@warning{  sinon le nombre de pages du fax est incorrect !}
+    \l@@warning{Un seul telefax par fichier, s.v.p.,\MessageBreak
+      sinon le nombre de pages du fax est incorrect !}
   \fi
   \ifodd\c@page%
   \else
@@ -479,32 +384,41 @@
     \immediate\openout\@faxaux=\jobname.fax%
     \immediate\write\@faxaux{\string\def\string\totalpages{\the\faxpage}}%
     \if\totalpages\the\faxpage\else
-      \l@@warning{Le nombre de pages du fax a change, }%
-      \l@@warning{(ancien=\totalpages, nouveau=\the\faxpage) }%
-      \l@@warning{  veuillez recompiler pour le corriger dans l'entete.}%
+      \l@@warning{Le nombre de pages du fax a change, \MessageBreak
+      (ancien=\totalpages, nouveau=\the\faxpage) \MessageBreak
+      veuillez recompiler pour le corriger dans l'entete}%
     \fi
   \endgroup
   \@@par\pagebreak\@@par
 }%
-%
-%    ************************************************
-%    *              OPENING ET CLOSING              *
-%    ************************************************
-%
+\def\lettre@write@pdate@to@dateaux{%
+  \l@@info{`\pdate' ecrit dans \jobname.odt}%
+  {%
+    \let\protect\string
+    \immediate\write\@dateaux{%
+      \string\expandafter\string\def%
+      \string\csname\space origdate\the\c@lettre
+      \string\endcsname{\pdate}}}}
+\def\lettre@get@date{%
+   \if@origdate
+     \expandafter\ifx\csname origdate\the\c@lettre
+                     \endcsname\relax
+     \else
+        \l@@info{Date originale lue dans \jobname.odt}%
+        \def\pdate{\csname origdate\the\c@lettre\endcsname}%
+     \fi
+     \lettre@write@pdate@to@dateaux
+  \fi
+}
+\def\lettre@put@fromlieu@date{%
+  \ifx\@empty\fromlieu
+   \else
+     \fromlieu
+     \ifx\@empty\pdate\else, \fi
+   \fi 
+  \ifx\@empty\pdate\else\pdate\fi}
 \def\letteropening#1{%
-                 \if@origdate
-                   \expandafter\ifx\csname origdate\the\c@lettre
-                                   \endcsname\relax
-                   \else
-                      \l@@info{Date originale lue dans \jobname.odt}%
-                      \def\pdate{\csname origdate\the\c@lettre\endcsname}%
-                   \fi
-                   \l@@info{`\pdate' ecrit dans \jobname.odt}%
-                   \immediate\write\@dateaux{%
-                        \string\expandafter\string\def%
-                        \string\csname\space origdate\the\c@lettre
-                        \string\endcsname{\pdate}}%
-                \fi
+   \lettre@get@date
    \hbadness=10000\relax
    \thispagestyle{empty}% 
    \setlength{\unitlength}{1mm}%
@@ -529,12 +443,8 @@
                   \fi}}}
      \put(\fromlieu@let@hpos,\fromlieu@let@vpos){\makebox(0,0)[bl]{%
           \parbox[t]{\fromlieu@let@width}{%
-                 \ifx\@empty\fromlieu
-                 \else\fromlieu, %
-                 \fi 
-                \ifx\@empty\pdate ~%
-                \else \pdate
-                \fi}}}%
+            \lettre@put@fromlieu@date
+              }}}%
      \put(\toaddress@let@hpos,\toaddress@let@vpos){\makebox(0,0)[tl]{%
           \parbox{\toaddress@let@width}{%
                  \toname\\\toaddress}}}%
@@ -561,7 +471,6 @@
    \let\raggedright=\letterraggedright
    \let\center=\lettercenter
    \let\centering=\lettercentering}%
-%
 \def\faxopening#1{%
    \hbadness=10000\relax
    \thispagestyle{empty}%
@@ -602,25 +511,10 @@
  \end{tabular*}\par%
  \begin{tabular*}{\faxbox@width}[t]{@{}r@{}}%
     \vrule height 0pt depth 0pt width \faxbox@width\\
-    \multicolumn{1}{r}{\ifx\@empty\fromlieu
-                       \else\fromlieu, %
-                       \fi
-                 \if@origdate
-                   \expandafter\ifx\csname origdate\the\c@lettre
-                                   \endcsname\relax
-                   \else
-                      \l@@info{Date originale lue dans \jobname.odt}%
-                      \def\pdate{\csname origdate\the\c@lettre\endcsname}%
-                   \fi
-                   \l@@info{`\pdate' ecrit dans \jobname.odt}%
-                   \immediate\write\@dateaux{%
-                        \string\expandafter\string\def%
-                        \string\csname\space origdate\the\c@lettre
-                        \string\endcsname{\pdate}}%
-                \fi
-                \ifx\@empty\pdate ~%
-                \else \pdate
-                \fi}\\%
+    \multicolumn{1}{r}{%
+       \lettre@get@date
+       \lettre@put@fromlieu@date
+           }\\%
  \end{tabular*}%
  \par
    \vspace{\openingspace}%
@@ -638,7 +532,6 @@
    \let\raggedright=\letterraggedright
    \let\center=\lettercenter
    \let\centering=\lettercentering}%
-%
 \long\def\closing#1{%
   \let\center=\normalcenter
   \let\centering=\normalcentering
@@ -651,7 +544,7 @@
   \par\vspace{2\parskip}%
   \nobreak
   \noindent
-  \l@@info{Signature \ifcase\signum manquante \or simple\or double\or triple\fi}%
+  \l@@info{Signature \ifcase\signum manquante\or simple\or double\or triple\fi}%
   \ifcase\sigflag
     \ifcase\signum
        \parbox[t]{\letterwidth}{#1}%
@@ -731,11 +624,6 @@
   \fi
   \par\vfill\startbreaks
 }%
-%
-%    ************************************************
-%    *           COMMANDES UTILISATEURS             *
-%    ************************************************
-%
 \def\marge#1{%
  \lettermargin=#1%
  \listmargin=#1%
@@ -747,19 +635,15 @@
 %
 \def\basdepage#1{%
   \def\bdp{#1}}%
-%
 \def\tension#1{%
   \if@letter
     \expandafter\def\csname letter\the\c@lettre\endcsname{#1}%
   \fi
 }%
-%
 \def\addpages#1{%
   \l@@info{Pages additionnelles: #1}%
   \advance\faxpage by #1}%
-%
 \def\name#1{\def\fromname{#1}}%
-%
 \def\signature#1{%
   \ifnum\signum=0\relax
     \def\fromsig{#1}\signum=1\relax
@@ -781,23 +665,20 @@
     \l@@warning{Troisieme signature illegale ou deja definie}%
   \fi
 }%
-%
-\def\vref#1{\l@@warning{La commande \string\Vref\ devrait etre utilisee.}
+\def\vref#1{\l@@warning{La commande \protect\Vref\space devrait etre utilisee}
             \def\auxflag{.}%
             \def\toref{\parbox[t]{17mm}{#1}}}%
 \def\Vref#1{\def\auxflag{.}%
             \def\toref{\parbox[t]{17mm}{#1}}}%
-\def\nref#1{\l@@warning{La commande \string\Nref~ devrait etre utilisee.}
+\def\nref#1{\l@@warning{La commande \protect\Nref\space devrait etre utilisee}
             \def\auxflag{.}%
             \def\fromref{\parbox[t]{17mm}{#1}}}%
 \def\Nref#1{\def\auxflag{.}%
             \def\fromref{\parbox[t]{17mm}{#1}}}%
-%
 \def\concline{%
          \noindent\parbox[t]{\letterwidth}%
            {\@hangfrom{\textrm{\concname}}\ignorespaces\concdecl\strut}%
          \par}%
-%
 \def\auxline{%
   \l@@info{Ligne auxiliaire demandee}%
   {\scriptsize
@@ -823,7 +704,6 @@
     \else 
       C.C.P.\ \ccpnum\hspace{5mm}%
     \fi}\par}%
-%
 \def\emailine{%
   \l@@info{Ligne d'E-Mail demandee}%
   {\scriptsize
@@ -851,7 +731,6 @@
     \ifnum\emailcount<3\relax
      \hfill\mbox{}%
     \fi}}%
-%
 \long\def\address#1{\l@@info{Adresse precisee}\def\fromaddress{#1}}%
 %\long\def\address*#1{\if@letter
 %                        \l@@info{Adresse avec nom precisee}%
@@ -862,24 +741,16 @@
 %
 \def\nodate{\l@@info{Date supprimee}\def\pdate{}}%
 \def\date#1{\l@@info{Date precisee}\def\pdate{#1}}%
-%
 \def\nolieu{\l@@info{Lieu supprime}\def\fromlieu{}}%
 \def\lieu#1{\l@@info{Lieu precise}\def\fromlieu{#1}}%
-%
 \def\conc#1{\l@@info{Champ d'objet defini}\def\concdecl{#1}}%
-%
 \def\location#1{\l@@info{Precision d'adresse definie}\def\fromlocation{#1}}%
-%
 \def\notelephone{\l@@info{Numero de telephone supprime}\def\telephonenum{}}%
 \def\telephone#1{\l@@info{Numero de telephone precise}\def\telephonenum{#1}}%
-%
 \def\nofax{\l@@info{Numero de fax supprime}\def\faxnum{}}%
 \def\fax#1{\l@@info{Numero de fax precise}\def\faxnum{#1}}%
-%
 \def\email#1{\l@@info{Numero d'E-Mail precise}\def\emailnum{#1}}%
-%
 \def\username#1{\def\@username{#1}}%
-%
 \def\ccitt#1{\ifnum\emailcount<3\relax
                   \def\emailflag{.}%
                   \advance\emailcount by 1\relax
@@ -961,14 +832,12 @@
   \fi
   \l@@info{Post-scriptum defini}%
   \noindent\lettre@t{#1}{#2\\}\vfill\penalty-100\relax}%
-%
 \def\cc#1{\penalty100\relax
   \if@letter
     \vskip\csname letter\the\c@lettre\endcsname mm
   \fi
   \l@@info{Copies declarees}%
   \noindent\lettre@t{\ccname}{#1\\}\vfill\penalty-100\relax}%
-%
 \def\encl#1{\penalty100\relax
   \if@letter
     \vskip\csname letter\the\c@lettre\endcsname mm
@@ -981,26 +850,21 @@
   \fi
   \l@@info{Annexes mentionnees}%
   \noindent\lettre@t{\mentionname\\}{~}\vfill\penalty-100\relax}%
-%
-%    ****************************************
-%    *   DEFINITIONS DEPENDANT DU LANGAGE   *
-%    ****************************************
-%
 \def\FAXSTR{\fontfamily{cmdh}\fontseries{m}\fontshape{n}\selectfont}%
 \def\FRANCAIS{francais}
 \def\francais{%
-  \ifx\defaultlanguage\FRANCAIS\else\l@@info{Langage modifie: francais}\fi%
-  \ifx\undefined\frenchname\else % style french loaded
+  \ifx\defaultlanguage\FRANCAIS\else\l@@info{Langage modifie: francais}\fi
+  \ifx\undefined\frenchname\else
         \french
   \fi
-  \ifx\undefined\extrasfrancais\else % style babel and French language loaded
+  \ifx\undefined\extrasfrancais\else
         \selectlanguage{francais}
         \reset@frenchitemize
   \fi
   \sigflag=0\relax
   \def\cejour{le
-    \ifx\ier\undefined\def\ier{er}\fi
-    \ifnum\day=1\relax 1\ier\else \number\day\fi
+    \ifnum\day=1\space 1\ifx\ier\undefined er\else\expandafter\ier\fi
+    \else\number\day\fi
     \space\ifcase\month\or
     janvier\or f\'evrier\or mars\or avril\or mai\or juin\or
     juillet\or ao\^ut\or septembre\or octobre\or novembre\or d\'ecembre\fi
@@ -1027,11 +891,11 @@
 }%
 \def\ROMAND{romand}
 \def\romand{%
-  \ifx\defaultlanguage\ROMAND\else\l@@info{Langage modifie: romand}\fi%
-  \ifx\undefined\frenchname\else % style french loaded
+  \ifx\defaultlanguage\ROMAND\else\l@@info{Langage modifie: romand}\fi
+  \ifx\undefined\frenchname\else
         \french
   \fi
-  \ifx\undefined\extrasfrancais\else % style babel and French language loaded
+  \ifx\undefined\extrasfrancais\else
         \selectlanguage{francais}
         \reset@frenchitemize
   \fi
@@ -1065,11 +929,11 @@
 }%
 \def\ANGLAIS{anglais}
 \def\anglais{%
-  \ifx\defaultlanguage\ANGLAIS\else\l@@info{Langage modifie: anglais}\fi%
-  \ifx\undefined\frenchname\else % style french loaded
+  \ifx\defaultlanguage\ANGLAIS\else\l@@info{Langage modifie: anglais}\fi
+  \ifx\undefined\frenchname\else
         \english
   \fi
-  \ifx\undefined\extrasenglish\else % style babel and English language loaded
+  \ifx\undefined\extrasenglish\else
         \selectlanguage{english}
   \fi
   \sigflag=1\relax
@@ -1100,10 +964,10 @@
 \def\AMERICAIN{americain}
 \def\americain{%
   \ifx\defaultlanguage\AMERICAIN\else\l@@info{Langage modifie: americain}\fi%
-  \ifx\undefined\frenchname\else % style french loaded
+  \ifx\undefined\frenchname\else
         \english
   \fi
-  \ifx\undefined\extrasenglish\else % style babel and English language loaded
+  \ifx\undefined\extrasenglish\else
         \selectlanguage{english}
   \fi
   \sigflag=1\relax
@@ -1133,8 +997,8 @@
 }%
 \def\ALLEMAND{allemand}
 \def\allemand{%
-  \ifx\defaultlanguage\ALLEMAND\else\l@@info{Langage modifie: allemand}\fi%
-  \ifx\undefined\extrasgerman\else % style babel and German language loaded
+  \ifx\defaultlanguage\ALLEMAND\else\l@@info{Langage modifie: allemand}\fi
+  \ifx\undefined\extrasgerman\else
         \selectlanguage{german}
   \fi
   \sigflag=1\relax
@@ -1163,14 +1027,6 @@
   \def\vrefname{Ihr Zeichen~}
   \def\nrefname{Unser Zeichen~}
 }%
-%
-%************************************************************************
-%
-% \document redefini pour ecrire '\startlabels' sur le fichier .etq 
-% et executer \@startlabels.
-%
-%************************************************************************
-%
 \AtBeginDocument{%
   \makeatletter
   \@input{\jobname.tns}%
@@ -1188,13 +1044,6 @@
   \fi
   \makeatother
 }%
-%
-%************************************************************************
-%
-% \enddocument redefini pour sortir la page d'etiquettes, si necessaire.
-%
-%************************************************************************
-%
 \AtEndDocument{%
   \l@@info{Nombre de lettres :\the\c@lettre}%
   \l@@info{Nombre de telefax :\the\c@telefax}%
@@ -1216,12 +1065,6 @@
   \fi
   \endgroup
 }%
-%
-%    ****************************************
-%    *             STYLES DE PAGE           *
-%    ****************************************
-%
-%
 \def\@texttop{\ifnum\c@page=1\vskip 0pt plus .00001fil\relax\fi}%
 %
 \if@twoside
@@ -1284,11 +1127,6 @@
    \def\@oddfoot{\textrm{\hfill\thepage\hfill}}%
    \def\@evenhead{}%
    \def\@evenfoot{\textrm{\hfill\thepage\hfill}}}%
-%
-%    ****************************************
-%    *        CENTER et FLUSHLEFT           *
-%    ****************************************
-%
 \def\normalcenter{\trivlist \normalcentering\item[]}%
 \def\lettercenter{\trivlist \lettercentering\item[]}%
 \def\normalcentering{\let\\=\@centercr\rightskip\@flushglue
@@ -1308,11 +1146,6 @@
                        \@rightskip\@flushglue\rightskip\@rightskip
                        \parindent\z@}%
 \let\endflushleft=\endtrivlist
-%
-%    ****************************************
-%    *               LISTES                 *
-%    ****************************************
-%
 \def\reset@frenchitemize{%
       \renewenvironment{itemize}%
         {\begin{list}{\textendash}%
@@ -1377,17 +1210,14 @@
 \def\labelenumiv{\Alph{enumiv}.}%
 \def\theenumiv{\Alph{enumiv}}%
 \def\p@enumiv{\p@enumiii\theenumiii}%
-%
 \def\verse{\let\\=\@centercr  
   \list{}{\itemsep\z@ \itemindent -15pt\listparindent \itemindent 
           \rightmargin\leftmargin\advance\leftmargin 15pt}\item[]}%
 \let\endverse\endlist
-%   
 \def\quotation{\list{}{\listparindent 1.5em%
     \itemindent\listparindent
     \rightmargin\leftmargin}\item[]}%
 \let\endquotation=\endlist
-%
 \def\quote{\list{}{\rightmargin\leftmargin}\item[]}%
 \let\endquote=\endlist
 %
@@ -1396,11 +1226,6 @@
        \labelwidth\listmargin \advance\labelwidth -\labelsep 
        \let\makelabel\descriptionlabel}}%
 \let\enddescription\endlist
-%
-%    ****************************************
-%    *               DIVERS                 *
-%    ****************************************
-%
 \def\@begintheorem#1#2{\itshape \trivlist \item[\hskip \labelsep{\bfseries #1\ #2}]}%
 \def\@endtheorem{\endtrivlist}%
 %
@@ -1412,14 +1237,8 @@
 \doublerulesep 2pt%
 \tabbingsep\labelsep
 \skip\@mpfootins=\skip\footins
-%
-\fboxsep = 3pt    % Space left between box and text by \fbox and \framebox.
-\fboxrule = .4pt  % Width of rules in box made by \fbox and \framebox.
-%
-%    ****************************************
-%    *             FOOTNOTES                *
-%    ****************************************
-%
+\fboxsep = 3pt
+\fboxrule = .4pt
 \def\footnoterule{\kern-1\p@   
   \hrule width .4\columnwidth 
   \kern .6\p@}%
@@ -1427,11 +1246,6 @@
 \long\def\@makefntext#1{\parindent 1em\noindent
             \hb@xt@1.8em{%
                 \hss\@textsuperscript{\normalfont\@thefnmark}}#1}%
-%
-%    ****************************************
-%    *     INITIALISATIONS DES DEFAUTS      *
-%    ****************************************
-%
 \def\pict@let@width{185}%
 \def\pict@let@height{65}%
 \def\pict@let@hoffset{0}%
@@ -1475,9 +1289,6 @@
 \pagenumbering{arabic}%
 \raggedbottom
 \onecolumn
-%
-% Initialisations des variables de la lettre
-%
 \def\pdate{\cejour}%
 %
 \def\emailnum{}%
@@ -1524,5 +1335,4 @@
 %
 \def\bdp{}%
 \endinput
-%%
-%% End of file `lettre.cls'.
+% End of file `lettre.cls'.