%^^A file name   : `lettre.cls'.
%^^A package name: lettre
%^^A maintenance : Vincent Belaïche (vincentb1@users.sourceforge.net)
%^^A author      : Denis Mégevand - Observatoire de Genève
%^^A email       : vincentb1@users.sourceforge.net
%^^A version     : v3.002
%^^A date        : 
%^^A
%^^A This file is part of the "lettre" package.
%^^A This work may be distributed and/or modified under the conditions of the
%^^A LaTeX Project Public License, either version 1.3 of this license or (at your
%^^A option) any later version.  The latest version of this license is in
%^^A http://www.latex-project.org/lppl.txt and version 1.3 or later is part of all
%^^A distributions of LaTeX version 2005/12/01 or later.
%^^A
%^^A This work has the LPPL maintenance status `maintained'.
%^^A
%^^A The Current Maintainer of this work is Vincent Belaïche.
%^^A
%^^A This work consists of all files listed in file README
%^^A
%
%\subsection{Préambule}
%    \begin{macrocode}
\NeedsTeXFormat{LaTeX2e}
%    \end{macrocode}
%\changes{2.354}{2014-09-19}{Ajout \texttt{etoolbox} requis: c'est pour avoir \cs{ifcsundef}}%
%    \begin{macrocode}
\RequirePackage{etoolbox}
%    \end{macrocode}
%    \begin{macrocode}
\RequirePackage{graphicx}
%    \end{macrocode}
%    \begin{macrocode}
\ProvidesClass{lettre}[ v3.002]%
\typeout{Copyleft Denis Megevand - Observatoire de Geneve}%
%    \end{macrocode}
%\subsection{Déclaration des options de paquetage}
%\subsubsection{Options pour la mise en forme}
%    \begin{macrocode}
\DeclareOption{10pt}{\renewcommand\@ptsize{0}}
\DeclareOption{11pt}{\renewcommand\@ptsize{1}}
\DeclareOption{12pt}{\renewcommand\@ptsize{2}}
%    \end{macrocode}
% \changes{2.351}{2014-07-26}{Ajout option \texttt{a4paper}}%
% \changes{2.354}{2014-10-02}{Ajout options \texttt{letterpaper},
% \texttt{legalpaper}, \texttt{executivepaper}, \texttt{b5paper} et
% \texttt{a5paper}, pour cela on définit les longueurs \cs{lettre@x@mm}
% et \cs{lettre@y@mm}}%
% La longueur \cs{lettre@x@mm} et \cs{lettre@y@mm} permettent de
% ramener les longueurs données pour du format A4 dans le format
% courant. C'est à dire que la longueur \cs{lettre@x@mm} est telle
% que~:
% \[\cs{lettre@x@mm} =
% \frac{\cs{paperwidth}}{\SI{210}{\milli\metre}}\si{\milli\metre}\]
% De même la longueur \cs{lettre@y@mm} est telle que~:
% \[\cs{lettre@y@mm} =
% \frac{\cs{paperheight}}{\SI{297}{\milli\metre}}\si{\milli\metre}\]
%    \begin{macrocode}
\newlength\lettre@x@mm
\setlength\lettre@x@mm{1mm}%
\newlength\lettre@y@mm
\setlength\lettre@y@mm{1mm}
\if@compatibility\else
\DeclareOption{a4paper}
   {\setlength\paperheight {297mm}%
    \setlength\paperwidth  {210mm}%
    \lettre@x@mm=1mm%
    \lettre@y@mm=1mm%
  }
%    \end{macrocode}
%    \begin{macrocode}
\DeclareOption{letterpaper}
   {\setlength\paperheight {11.00in}%
    \setlength\paperwidth  {8.50in}%
    \lettre@y@mm=0.94074074074mm%
    \lettre@x@mm=1.0280952381mm%
  }
\DeclareOption{legalpaper}
   {\setlength\paperheight {14.00in}%
    \setlength\paperwidth  {8.50in}%
    \lettre@y@mm=1.19730639731mm%
    \lettre@x@mm=1.0280952381mm%
  }
\DeclareOption{executivepaper}
   {\setlength\paperheight {10.50in}%
    \setlength\paperwidth  {7.25in}%
    \lettre@y@mm=0.897979797979mm%
    \lettre@x@mm=0.876904761905mm%
}
\DeclareOption{b5paper}
   {\setlength\paperheight {250.00mm}%
    \setlength\paperwidth  {176.00mm}%
    \lettre@y@mm=0.841750841751mm%
    \lettre@x@mm=0.838095238095mm%
}
\DeclareOption{a5paper}
   {\setlength\paperheight {210.00mm}%
    \setlength\paperwidth  {148.00mm}%
    \lettre@y@mm=0.707070707071mm%
    \lettre@x@mm=0.704761904762mm%
}
\fi
\if@compatibility
  \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\l@@info{Mode `origdate'}}
\DeclareOption{draft}{\setlength\overfullrule{5pt}}
\DeclareOption{final}{\setlength\overfullrule{0pt}}
\DeclareOption{leqno}{\input{leqno.clo}}
\DeclareOption{fleqn}{\input{fleqn.clo}}
%    \end{macrocode}
%\changes{3.000}{2015-12-28}{Ajout option \texttt{keep envs}}%
%\changes{3.001}{2019-07-23}{Refonte implémentation option \texttt{keep envs}, pour prendre en charge détection auto.}%
%    \begin{macrocode}
\DeclareOption{keepenvs=true}{\lettre@keep@envs1}%
\DeclareOption{keepenvs=false}{\lettre@keep@envs2}%
\DeclareOption{keepenvs}{\ExecuteOptions{keepenvs=true}}%
%    \end{macrocode}
%\subsubsection{Options pour la langue}
% Tout d'abord on se fait un petit itérateur, histoire de gérer l'ensemble des langues de façon
% programatique. Le principe c'est que si on appelle
% \cs{lettre@iterate}\meta{liste}\texttt{,}\cs{@nil}\texttt{,}, alors \cs{lettre@iterate@body} est appelé sur
% chaque élément de la liste \meta{liste} qui est une liste dont les items sont séparés par des virgules.
%    \begin{macrocode}
\def\lettre@iterate#1,{%
    {%
      \def\@tempa{#1}%
      \ifx\@tempa\@nnil
        \let\@tempa\@empty
      \else
        \def\@tempa{%
          \lettre@iterate@body{#1}%
          \lettre@iterate
        }%
      \fi
      \expandafter
    }\@tempa
}%
%    \end{macrocode}
%\begin{macro}{\lettre@supported@language@list}
%  Liste des langues prises en charge par la classe \texttt{lettre}. C'est une liste dont les éléments sont
%  séparés par des virgules (sans espaces ni éléments vides). Chaque élément de la liste est un langage pour
%  lequel \texttt{lettre} a une option de langue et est capable de charger les définitions
%  correspondantes. La raison d'être de cette liste est de factoriser les itérations pour les cas suivants:
% \begin{itemize}
% \item charger les définitions lorsque le langage en question est utilisé par \texttt{babel} ou \texttt{mlp}~;
% \item charger les définitions lorsque le langage est demandé par une option de classe.
% \end{itemize}
%    \begin{macrocode}
\newcommand*\lettre@supported@language@list{%
  francais,french,frenchb,romand,%
  allemand,german,germanb,ngerman,ngermanb,%
  americain,american,USenglish,%
  anglais,english,british,UKenglish%
}%
%    \end{macrocode}
%\end{macro}
% Cependant, toutes les langues \meta{langue} dans \cs{lettre@supported@language@list} ne correspondent pas à
% un fichier \texttt{lettre-}\meta{langue}\texttt{.ldf}, car certaines ne sont que des alias. Aussi on commence
% par définir que par défaut une langue n'a pas d'alias (en d'autres termes elle est l'alias d'elle-même).
%    \begin{macrocode}
\newcommand*\lettre@iterate@body[1]{%
  \expandafter\def\csname lettre@#1@alias@of\endcsname{#1}}%
\expandafter\lettre@iterate\lettre@supported@language@list,\@nil,%
%    \end{macrocode}
%  Ceci étant fait, on définit celles des langues qui sont des alias d'une autre langue~:
%    \begin{macrocode}
\def\@tempa#1#2{\expandafter\def\csname lettre@#1@alias@of\endcsname{#2}}%
\@tempa{frenchb}{french}
\@tempa{francais}{french}
\@tempa{allemand}{german}
\@tempa{germanb}{german}
\@tempa{ngermanb}{german}
\@tempa{ngerman}{german}
\@tempa{anglais}{english}
\@tempa{british}{english}
\@tempa{american}{USenglish}
\@tempa{americain}{USenglish}
%    \end{macrocode}
% \DescribeMacro{\lettre@languages} \cs{lettre@languages} contient la liste des langues pour lesquelles les
% définitions ont été chargées. Le chargement ne se fait pas immédiatement, mais après le \cs{ProcessOption} de
% sorte à rendre possible que dans le fichier de définitions il y ait un \cs{RequirePackage}. Cette
% possibilité n'est pas utilisée actuellement.
%    \begin{macrocode}
\newcommand*\lettre@languages{}%
%    \end{macrocode}
% \DescribeMacro{\lettre@mainlang}\cs{lettre@mainlang} est la langue demandée par l'utilisateur. C'est
% nécessairement un élément de la liste \cs{lettre@supported@language@list}.
%    \begin{macrocode}
\newcommand*\lettre@mainlang{}%
%    \end{macrocode}
% \DescribeMacro{\lettre@ldf@version} \cs{lettre@ldf@version}\marg{lang} est la version de chaque fichier
% \texttt{lettre-}\meta{langue}\texttt{.ldf}
%    \begin{macrocode}
\newcommand*\lettre@ldf@filename[1]{lettre-#1.ldf}%
\newcommand*\lettre@ldf@version[1]{ver@\lettre@ldf@filename{#1}}%
%    \end{macrocode}
% Toutes ces langues \meta{langue} n'ont pas leur propre fichier de définition
% \texttt{lettre-\meta{langue}.ldf}, en effet certaines de ces langues ne sont juste que des alias.
% \changes{3.000}{2015-12-20}{Listage des options de langue dans \cs{lettre@languages} dans l'ordre de
% déclaration au sein de \cs{documentclass}}%
%
% Par contre pour chacune des ces \meta{langue} une option \meta{langue} est définie, c'est l'une des façons
% dont l'utilisateur peut charger les définitions correspondant à cette langue. La dernière options passée
% donne la langue par défaut au début du document.
%    \begin{macrocode}
\def\lettre@iterate@body#1{%
  \DeclareOption{#1}{%
    \edef\@tempa{\csname lettre@#1@alias@of\endcsname}%
    \ifcsundef{\lettre@ldf@version{\@tempa}}{%
      \expandafter\def\csname \lettre@ldf@version{\@tempa}\endcsname{To be loaded}%
       \ifx\lettre@languages\@empty
          \def\lettre@languages{#1}%
       \else
          {%
            \toks0{#1}%
            \toks1\expandafter{\lettre@languages}%
            \edef\@tempa{\noexpand\def\noexpand\lettre@languages{\the\toks0,\the\toks1}}%
          \expandafter
          }\@tempa
       \fi
       \def\lettre@mainlang{#1}%
    }{%
      \l@@info{Langage `#1' deja charge par option}%
    }%
  }%
}%
\expandafter\lettre@iterate\lettre@supported@language@list,\@nil,%
%    \end{macrocode}
% \changes{3.000}{2015-12-20}{Ajout option \texttt{pass lang}}%
%    \begin{macrocode}
\DeclareOption{passlang=true}{\lettre@pass@langtrue}%
\DeclareOption{passlang=false}{\lettre@pass@langfalse}%
\DeclareOption{passlang}{\ExecuteOptions{pass lang=true}}%
%    \end{macrocode}
%\changes{2.354}{2014-10-04}{Ajout des options \texttt{noinfo}, \texttt{loghighlight}, et \texttt{strict}}%
%\subsubsection{Options pour la gestion des relevés du journal de compliation}
% Le journal de compilation est le fichier \meta{jobname}\texttt{.log} produit par la compilation. Il contient
% des relevés de trois types : erreur, avertissement, et info.
%
% Suppression des relevés d'info dans le journal, on peut aussi faire ça avec la commande \cs{noinfo} mais dans
% ce cas on aura quand même, s'il en est, les relevés d'info provoqués par le traitement des options.
%    \begin{macrocode}
\DeclareOption{noinfo}{\c@infos=0}
%    \end{macrocode}
% Désactive ou active les traces de type \texttt{LETTRE INFO ===} ou \texttt{LETTRE AVERTISSEMENT ===} placé au
% début des relevés. Elles ne sont pas utiles dans un environnement de développement qui colorise le journal.
%\changes{2.354}{2015-11-30}{Remplacement option `nologhighlight' par `loghighlight=false'}%
%    \begin{macrocode}
\DeclareOption{loghighlight=false}{\lettre@loghighlightfalse}
\DeclareOption{loghighlight=true}{\lettre@loghighlighttrue}
\DeclareOption{loghighlight}{\ExecuteOptions{loghighlight=true}}
%    \end{macrocode}
%    Mue certains relevés d'avertissement en relevés d'erreur, rendant ainsi la classe moins permissive.
%\changes{2.354}{2015-11-30}{Ajout options `strict=false' \& `strict=true'}%
%    \begin{macrocode}
\DeclareOption{strict}{\ExecuteOptions{strict=true}}
\DeclareOption{strict=true}{\lettre@stricttrue\l@@info{Mode `strict': traite certains avertissements comme des erreurs}}
\DeclareOption{strict=false}{\lettre@strictfalse\l@@info{Mode `strict' desactive}}
%    \end{macrocode}
%\subsubsection{Options par défaut}
%    \begin{macrocode}
\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
%    \end{macrocode}
%\subsection{Messages et avertissements}
% Envoyés à la console et dans le fichier journal \meta{jobname}\texttt{.log}.
%
% On peut supprimer allumer ou éteindre en tout temps les
% relevés d'informations par les commandes \cs{infos} et \cs{noinfos}.
% Les avertissements ne peuvent être supprimés.  L'option \texttt{strict} fait que les avertissements causent
% une erreur en appelant \cs{ClassError} au lieu de \cs{ClassWarning}.
%\changes{2.354}{2014-10-04}{Ajout des options \texttt{noinfo}, \texttt{nologhighlight}, et \texttt{strict}}%
%    \begin{macrocode}
\def\l@@error#1{\ClassError{lettre}{#1}}%
\def\infos{\c@infos=1\relax}
\def\noinfos{\c@infos=0\relax}
\def\l@@warning{%
  \iflettre@loghighlight
  \typeout{LETTRE AVERTISSEMENT ===============================================}%
  \fi
  \ClassWarning{lettre}%
}
\def\l@@warning@strictable#1{%
  \iflettre@loghighlight
  \typeout{LETTRE AVERTISSEMENT ===============================================}%
  \fi
  \iflettre@strict
     \l@@error{#1}{#1\MessageBreak\space 
     Cette erreur est causee par un avertissement en mode strict}%
  \else
     \ClassWarning{lettre}{#1}%
  \fi
}
\def\l@@info#1{%
  \ifnum\c@infos=1 %
    \iflettre@loghighlight
    \typeout{LETTRE INFO ================================================}%
    \fi
    \GenericWarning{%
      (lettre)\space\space\space\space
    }{%
      Class lettre Message: #1\@gobble}%
  \fi}%
%    \end{macrocode}
%\subsection{Macros utiles aux fichier de définitions de langue}
% \DescribeMacro{\LettreProvidesLanguage}
%    \begin{macrocode}
\newcommand*{\LettreProvidesLanguage}[1]{%
  \ProvidesFile{lettre-#1.ldf}%
}%
%    \end{macrocode}
% \begin{macro}{\LettreDeclareLanguage}\cs{LettreDeclareLanguage}\marg{dialècte}\oarg{langue-de-base}\marg{définitions},
%   cette macro définit globalement soit une, soit deux macros~:
%   \begin{itemize}
%   \item La macro \cs{lettre@select@\meta{dialecte}@labels} est définie pour se développer en \meta{définitions}, et
%   \item La macro \cs{lettre@lmp@\meta{dialecte}@use} (où \og \texttt{lmp}\fg{} veut dire \og language for
%     multilang processor\fg) n'est définie que si l'argument optionnel \meta{langue-de-base} est fourni, et
%     auquel cas est définie pour se développer en \meta{langue-de-base}.
%   \end{itemize}
%    \begin{macrocode}
\newcommand*{\LettreDeclareLanguage}[1]{%
  \begingroup
%    \end{macrocode}
% La première chose qu'on fait c'est de mettre \meta{dialecte} dans \cs{toks0}. Quant à \cs{toks2} il
% contiendra le code définissant ou non la macro \cs{lettre@lmp@\meta{dialecte}@use}. La macro
% \cs{lettre@declare@language@arg@ii} sert à récupérer l'argument \meta{langue-de-base} lorsqu'il est présent.
%    \begin{macrocode}
     \toks0{#1}%
     \@ifnextchar[\lettre@declare@language@arg@ii
     {%
%    \end{macrocode}
% En cas d'absence de l'argument optionnel \meta{langue-de-base} \cs{toks2} est donc vide, puisqu'on ne
% définit pas \cs{lettre@lmp@\meta{dialecte}@use}~:
%    \begin{macrocode}
       \toks2{}%
%    \end{macrocode}
% La macro \cs{lettre@declare@language@arg@iii} sert à récupérer l'argument \meta{définitions}~:
%    \begin{macrocode}
       \lettre@declare@language@arg@iii
     }%
}%
\ifcsdef{lettre@declare@language@arg@ii}{%
  \l@@error{Macro \protect\lettre@declare@language@arg@ii\space dej'a d'efinie}%
}{}%
\def\lettre@declare@language@arg@ii[#1]{%
   \def\@tempa##1{%
     \toks2{\gdef##1{#1}}
   }%
   \expandafter\@tempa\csname lettre@lmp@\the\toks0@use\endcsname
  \lettre@declare@language@arg@iii}
\newcommand*\lettre@declare@language@arg@iii[1]{%
  \toks3{#1}%
  \edef\@tempa{%
    \noexpand\ifcsdef{lettre@select@\the\toks0 @labels}{%
      \noexpand\l@@error{Macro `\string\lettre@select@\the\toks0 @labels\space
        d'ej`a d'efinie}%
    }{%
      \noexpand\gdef
      \expandafter\noexpand\csname lettre@select@\the\toks0@labels\endcsname{%
        \the\toks3}%
      \the\toks2 %
    }%
  }%
  \expandafter\endgroup\@tempa
}%
%    \end{macrocode}
% \end{macro}
% 
%\subsection{Déclaration des sorties des options de paquetage, et exécutions des options}
%\label{sec:sortie-opt-pako}
%    \begin{macrocode}
\newcommand\@ptsize{}
\newcount\c@infos\c@infos=1\relax
\newif\if@origdate\@origdatefalse
\newif\if@etiq\@etiqfalse
%    \end{macrocode}
% \changes{3.000}{2015-12-20}{Ajout option \texttt{pass lang}}%
%    \begin{macrocode}
\newif\iflettre@pass@lang\lettre@pass@langtrue
%    \end{macrocode}
% \changes{3.001}{2019-07-23}{Option \texttt{keep envs} avec détection par défaut}%
% L'option \texttt{keep envs} se traduit dans le compteur \cs{lettre@keep@envs} de la manière suivante~:\\
% \begin{tabular}{>{\rrab}p{3cm}p{\dimexpr\linewidth-3cm-4\tabcolsep}}\toprule
%     \cs{lettre@keep@envs}&Signification\\\midrule
%     0&Détection automatique du comportement \texttt{keep envs=true}, ou \texttt{keep envs=false}\\
%     1&Correspond à \texttt{keep envs=true}, c.-à-d.\  que \texttt{lettre} ne redéfinit pas les
%          environnements \texttt{itemize} et consorts\\
%     2&Correspond à \texttt{keep envs=false}, c.-à-d.\  que \texttt{lettre} redéfinit selon la langue les
%          environnements \texttt{itemize} et consorts\\\bottomrule
% \end{tabular}
%    \begin{macrocode}
\newcount\lettre@keep@envs
\lettre@keep@envs0 %
\newif\iflettre@strict\lettre@strictfalse
\newif\iflettre@loghighlight\lettre@loghighlightfalse
\ExecuteOptions{10pt,oneside,final}
\ProcessOptions
%    \end{macrocode}
% Chargement des définitions de langue. On fait un \cs{input} de tous les fichiers \meta{nomfic} dont la macro
% version \cs{ver@}\meta{nomfic} a été durant le traitements des options configurée à \og To be loaded\fg.
%    \begin{macrocode}
\def\lettre@iterate@body#1{%
  \edef\@tempa{\csname lettre@#1@alias@of\endcsname}%
  \def\@tempb{To be loaded}%
  \edef\@tempc{\lettre@ldf@version{\@tempa}}%
  \expandafter\ifx\csname\@tempc\endcsname\@tempb
     \expandafter\let\csname\@tempc\endcsname\undefined
     \input{\lettre@ldf@filename{\@tempa}}
  \fi
}%
\expandafter\lettre@iterate\lettre@supported@language@list,\@nil,%
%    \end{macrocode}
% Passage des options de langue au paquetages tels
% \texttt{babel}.\newline\DescribeMacro{\lettre@languageable@packages}Tout d'abord on se fait une liste de
% paquetages auxquels passer les options de langues. C'est à dire qu'on gère ces options comme si elles étaient
% globales vis à vis de ces paquetages là seulement.
%    \begin{macrocode}
\newcommand\lettre@languageable@packages{babel,fmtcount,mlp}%
%    \end{macrocode}
% Maintenant on passe toutes les options stockées dans \cs{lettre@languages} à tous les paquetage listés dans
% \cs{lettre@languageable@packages}.
%    \begin{macrocode}
\ifx\lettre@languages\@empty\else
%    \end{macrocode}
% \changes{3.000}{2015-12-20}{Ajout option \texttt{pass lang}}%
%    \begin{macrocode}
  \iflettre@pass@lang
    \def\lettre@iterate@body#1{%
      \let\@tempb\lettre@iterate@body
      \def\lettre@iterate@body##1{\PassOptionsToPackage{#1}{##1}%
        \l@@info{Option `#1' pass'ee au paquetage `##1'}%
      }%
      \expandafter\lettre@iterate\lettre@languageable@packages,\@nil,%
      \let\lettre@iterate@body\@tempb
    }%
    \expandafter\lettre@iterate\lettre@languages,\@nil,%
  \fi
\fi
%    \end{macrocode}
%\subsection{Polices}
%    \begin{macrocode}
\input{size1\@ptsize.clo}
\DeclareOldFontCommand{\rm}{\rmfamily}{\mathrm}
\DeclareOldFontCommand{\sl}{\slshape}{\@nomath\sl}
\DeclareOldFontCommand{\it}{\itshape}{\mathit}
\DeclareOldFontCommand{\sc}{\scshape}{\@nomath\sc}
\DeclareOldFontCommand{\bf}{\bfseries}{\mathbf}
\DeclareOldFontCommand{\sf}{\sffamily}{\mathsf}
\DeclareOldFontCommand{\tt}{\ttfamily}{\mathtt}
\DeclareRobustCommand*{\cal}{\@fontswitch{\relax}{\mathcal}}
\DeclareRobustCommand*{\mit}{\@fontswitch{\relax}{\mathnormal}}
%    \end{macrocode}
%\subsubsection{Paramètres pour le contrôle des paragraphes}
%    \begin{macrocode}
\lineskip  1pt%
\normallineskip 1pt%
\parskip  .7em%
\parindent 0pt%
\topsep   .2em%
\partopsep 0pt%
\itemsep  .2em%
\renewcommand\baselinestretch{1}
%    \end{macrocode}
%
%    \begin{macrocode}
\@lowpenalty   51\relax
\@medpenalty  151\relax
\@highpenalty 301\relax
\@beginparpenalty -\@lowpenalty 
\@endparpenalty   -\@lowpenalty
\@itempenalty     -\@lowpenalty
%    \end{macrocode}
%\subsubsection{Paramètres pour le contrôle de la mise en page}
%\changes{2.354}{2014-10-04}{Utilisation des longueurs \cs{lettre@x@mm} et \cs{lettre@y@mm} pour la prise en
% charge des options \texttt{letterpaper}, \texttt{legalpaper}, \texttt{executivepaper}, \texttt{b5paper} et
% \texttt{a5paper}.}%
% Marge supérieure
%    \begin{macrocode}
\topmargin        25\lettre@y@mm
%    \end{macrocode}
% suppression de l'offset vertical
%    \begin{macrocode}
\advance\topmargin by -1in
%    \end{macrocode}
% Separation d'entête   \SI{4}{\milli\metre}
%    \begin{macrocode}
\headheight        0pt%
\headsep           4\lettre@y@mm
%    \end{macrocode}
% hauteur texte  \SI{250}{\milli\metre}
%    \begin{macrocode}
\textheight      250\lettre@y@mm
%    \end{macrocode}
% sep d'embase     \SI{9}{\milli\metre}
%    \begin{macrocode}
\footskip          9\lettre@y@mm
%    \end{macrocode}
% Total vertical \(25+4+250+9=\SI{288}{\milli\metre}\), reste \SI{9}{\milli\metre} sur A4 = 297 mm.
%    \begin{macrocode}
\footnotesep       5\lettre@y@mm
\marginparpush     1\lettre@x@mm
%    \end{macrocode}
% marge gauche    \SI{25}{\milli\metre}
%    \begin{macrocode}
\oddsidemargin    25\lettre@x@mm
\evensidemargin   25\lettre@x@mm
%    \end{macrocode}
% suppression de l'offset horizontal
%    \begin{macrocode}
\advance\oddsidemargin by -1in
\advance\evensidemargin by -1in
%    \end{macrocode}
% largeur texte  160mm
%    \begin{macrocode}
\textwidth       160\lettre@x@mm
%    \end{macrocode}
% sep. note lat.  4mm
%    \begin{macrocode}
\marginparsep      4\lettre@x@mm
%    \end{macrocode}
% larg. note lat 15mm
%    \begin{macrocode}
\marginparwidth   15\lettre@x@mm
%    \end{macrocode}
%    Total horizontal \(25+160+4+15=\SI{204}{\milli\metre}\), reste \SI{6}{\milli\metre} sur A4 =
%    \SI{210}{\milli\metre}.
%    \begin{macrocode}
\skip\footins    4mm plus 2pt minus 4pt%
%    \end{macrocode}
%
%\subsection{Le format lettre et fax de l'observatoire de Genève}
%
%\subsubsection{newcounts, newdimens, newifs, et newwrite}
% Il y a aussi un \cs{newcount} dans la \S~\ref{sec:sortie-opt-pako}.
%    \begin{macrocode}
\newcount\auxcount
\newcount\c@labelstart
\newcount\c@lettre
\newcount\c@telefax
\newcount\emailcount
\newcount\faxpage
\newcount\sigflag
\newcount\signum
%
\newdimen\letterwidth
\newdimen\openingspace
\newdimen\openingindent
\newdimen\lettermargin
\newdimen\listmargin
\newdimen\sigspace
\newdimen\ssigindent
\newdimen\ssigwidth
\newdimen\msigwidth
\newdimen\fromaddress@let@width
\newdimen\fromlieu@let@width
\newdimen\toaddress@let@width
\newdimen\fromaddress@fax@width
\newdimen\faxstring@width
\newdimen\faxbox@width
\newdimen\toaddress@fax@width
\newdimen\fromname@fax@width
%    \end{macrocode}
%\changes{2.354}{2014-10-21}{Ajout \cs{lettre@vref@width} et \cs{lettre@nref@width}}%
%    \begin{macrocode}
\newlength\lettre@vref@width
\newlength\lettre@nref@width
%    \end{macrocode}
%Il y a aussi des \cs{newif} dans la \S~\ref{sec:sortie-opt-pako}.
%    \begin{macrocode}
\newif\if@letter\@lettertrue
\newif\if@detail\@detailfalse 
%    \end{macrocode}
% Fichiers auxiliaires
%    \begin{macrocode}
\newwrite\@tensionaux
\newwrite\@dateaux
\newwrite\@etiqaux
\newwrite\@faxaux
%    \end{macrocode}
%\subsubsection{Macros internes}
%\label{sec:macros-internes}
%    \begin{macrocode}
\let\lettre@par\@par
\@ifundefined{lettre@t}{}{\ClassError{lettre}{Definition en double}%
  {Redefinition de la macro \protect\lettre@t}}
\def\lettre@t#1#2{\begin{list}{#1}{\setlength{\labelsep}{10pt}%
      \setlength{\labelwidth}{\listmargin}%
      \setlength{\leftmargin}{\listmargin}%
      \setlength{\listparindent}{0pt}}%
  \item\relax #2%
  \end{list}}
\def\detailledaddress{\@detailtrue}%
%    \end{macrocode}
%    \begin{macrocode}
\def\stopletter{\vskip0ptplus1filll}%
\def\stopfax{\vskip0ptplus1filll}%
%    \end{macrocode}
%    \begin{macrocode}
\def\resetopenenv{%
        \faxpage=0\relax
        \csuse{\lettre@mainlang}%
        \def\concdecl{}%
        \def\fromlocation{}%
        }%
\def\resetcloseenv{
        \def\fromsig{}\def\fromssig{}\def\fromtsig{}
        \ps@plain
        \pagenumbering{arabic}       
        \onecolumn                   
        \signum=0\relax
        }
\def\resetauxenv{
        \def\auxflag{}
        \auxcount=0\relax
%    \end{macrocode}
% Les macro \cs{toref} et \cs{fromref} sont intialisé à \cs{space} de sorte à ce que par défaut la
% configuration de l'une des deux références entraîne l'affichage des deux boîtes de référence, avec
% éventuellement l'autre boîte à blanc (c.-à-d. contenant juste un espace).%
% \changes{2.354}{2014-10-21}{Un argument vide à \cs{Vref} ou \cs{Nref} supprime la référence}%
%    \begin{macrocode}
        \let\toref\space\let\fromref\space
        \def\telexnum{}\def\ccpnum{}
        }
\def\resetemailenv{
        \def\emailflag{}
        \emailcount=0\relax
        \def\@username{}
        \def\ccittnum{}\def\internetnum{}\def\bitnetnum{}%
        \def\telepacnum{}\def\decnetnum{}
        }
%    \end{macrocode}
% \DescribeMacro{\lettre@processto}\cs{lettre@processto} extrait \cs{toname} et \cs{toaddress} de l'argument
% adresse passé aux environnements \texttt{letter} ou \texttt{telefax}.
% \changes{3.001}{2017-08-10}{Renommage \cs{@processto}, \cs{@xproc} et \cs{yproc} pour préfixer par
% \texttt{lettre} afin d'être à l'épreuve du temps contre des conflits de nommage potentiels. Utilisation
% \cs{@nil} comme terminateur plutôt que \texttt{@@@} que l'utilisateur pourrait utiliser dans son adresse.}
%    \begin{macrocode}
\long\def\lettre@processto#1{\lettre@xproc #1\\\@nil\ifx\toaddress\@empty 
    \else \lettre@yproc #1\@nil\fi}%
\long\def\lettre@xproc #1\\#2\@nil{\def\toname{#1}\def\toaddress{#2}}%
\long\def\lettre@yproc #1\\#2\@nil{\def\toaddress{#2}}%
%    \end{macrocode}
% \DescribeMacro{\lettre@stopbreaks}La macro \cs{lettre@stopbreaks} fait rentrer dans un mode où l'on empèche
% les sauts de ligne.
% \changes{3.001}{2019-06-30}{Correction anomalie
% \href{https://puszcza.gnu.org.ua/bugs/index.php?428}{\#428}. Les
% \og\cs{def}\cs{par}\texttt{\{}\ldots\texttt{\}}\fg\ sont remplacés par des
% \og\cs{@setpar}\texttt{\{}\ldots\texttt{\}}\fg}
%    \begin{macrocode}
\def\lettre@stopbreaks{%
  \interlinepenalty \@M
   \@setpar{\@@par\nobreak\lettre@parshape}\let\\=\@nobreakcr
   \let\vspace\@nobreakvspace}%
\def\@nobreakvspace{\@ifstar{\@nobreakvspacex}{\@nobreakvspacex}}%
\def\@nobreakvspacex#1{\ifvmode\nobreak\vskip #1\relax\else
               \@bsphack\vadjust{\nobreak\vskip #1}\@esphack\fi}%
\def\@nobreakcr{\vadjust{\penalty\@M}\@ifstar{\@xnewline}{\@xnewline}}%
%    \end{macrocode}
% \DescribeMacro{\lettre@startbreaks}La macro \cs{lettre@startbreaks} fait rentrer dans un mode où l'on
% autorise les sauts de ligne.
%    \begin{macrocode}
\def\lettre@startbreaks{%
   \let\\=\@normalcr
   \interlinepenalty 200\relax
   \@setpar{\@@par\penalty -100\relax
   \lettre@parshape}}%
%    \end{macrocode}
%\subsection{Étiquettes}
% La commande \cs{startlabels} suivante définit des pages A4 de 2 colonnes d'étiquettes avec
% \SI{15}{\milli\metre} de marges gauche et droite sur chaque étiquette.  Si l'on change le nombre
% d'étiquettes sur une page, il faut aussi modifier la macro \cs{@startlabels}.
%\DescribeMacro{\startlabels}
%    \begin{macrocode}
\def\startlabels{%
\baselineskip=0pt\lineskip=0pt%
\pagestyle{empty}%
\let\@texttop=\relax
\topmargin=0pt\headsep=0pt%
\oddsidemargin=15mm\evensidemargin=15mm%
%    \end{macrocode}
% modifications des dimensions de la page à faire ici
%    \begin{macrocode}
\textheight=297mm\textwidth=180mm\columnsep=30mm%
\@colht=\textheight\@colroom=\textheight\vsize=\textheight
\small
\baselineskip=0pt\lineskip=0pt%
\boxmaxdepth=0pt%
\twocolumn\relax}%
%    \end{macrocode}
% La commande \cs{@startlabels} suivante définit la position de la 
% première étiquette sur la page, à partir de la valeur du 
% compteur \texttt{labelstart}.
%    \begin{macrocode}
\def\@startlabels{%
\l@@info{Position de la premiere etiquette: \the\c@labelstart}%
\ifnum\c@labelstart>\z@
    \ifnum\c@labelstart>16\relax 
        \l@@warning@strictable{Position de la premiere etiquette ignoree}%
    \else
    \@whilenum\c@labelstart>\@ne\do
        {\immediate\write\@etiqaux{\string\mlabel{~\string\\~}}%
         \advance\c@labelstart\m@ne}%
    \fi%
\else
    \l@@warning@strictable{Position de la premiere etiquette ignoree}%
\fi
}%
%    \end{macrocode}
%    \DescribeMacro{\mlabel}La commande \cs{mlabel}\marg{l'étiquette} fabrique une étiquette de
%    \SI{37}{\milli\metre} de hauteur, la largeur étant définie dans \cs{startlabels}
%    (\(\SI{105}{\milli\metre}-\SI{30}{\milli\metre}\) de marges) chacune contenant \SI{70}{\milli\metre} de
%    texte \meta{l'étiquette} au centre de l'étiquette.
%    \begin{macrocode}
\def\mlabel#1{\setbox0\vbox{\parbox[b]{70mm}{\rm\strut\ignorespaces #1}}%
         \vbox to 37mm{\vskip5mmplus1fil \box0 \vskip5mmplus1fil}}%
%    \end{macrocode}
%    \DescribeMacro{\makelabels}\cs{makelabels}\oarg{num label} demande à \verb+\begin{document}+ d'imprimer
%      sur le fichier auxiliaire \verb+.etq+ l'ordre de préparer les étiquettes.  Son argument optionnel
%      \meta{num label} est un numéro définissant quelle est la prochaine étiquette libre sur la page en
%      partant du numéro \(1\), de manière à utiliser des feuilles déjà partiellement utilisées. Dans ce cas,
%      \verb+\begin{document}+ imprime autant d'étiquettes vides que nécessaire.
%    \begin{macrocode}
\def\makelabels{%
    \@etiqtrue
    \l@@info{On demande des etiquettes}%
    \@ifnextchar [{\i@makelabels}{\i@makelabels[1]}}%
\def\i@makelabels[#1]{\c@labelstart=#1}%
%    \end{macrocode}
%\subsection{Interface utilisateur}
%\subsubsection{Adaptations des paramètres par défaut}
%\DescribeMacro{\institut}
% \changes{3.000}{2015-10-21}{Nom fichier institut en \texttt{lettre-\meta{institut}.cfg}}
%    \begin{macrocode}
\newcommand*\lettre@institut[1]{%
  \l@@info{Fichier de defaut: #1}%
  \def\lettre@input@institut{\makeatletter
                 \input{#1}%
                 \makeatother}}%
%    \end{macrocode}
% On prend en compte le cas où l'utilisateur malicieux aurait mis un chemin à l'institut. C'est surtout pour
% être rétro-compatible avec l'utilisation de l'extention \textsf{.ins} pour les fichiers instituts qu'on fait
% ça. On utilise la macro \cs{filename@parse} du noyeau \LaTeX\ dont le résultat l'analyse va dans les macros
% \cs{filename@area}, \cs{filename@base} et \cs{filename@ext}. On détourne \cs{filename@area} pour recevoir le
% nom du fichier insititut en \texttt{.cfg}.
%    \begin{macrocode}
\newcommand*\lettre@institut@parse[1]{%
  \filename@parse{#1}%
  \edef\filename@area{\filename@area lettre-\filename@base
    \unless\ifx\filename@ext\relax.\filename@ext\fi.cfg}%
}%
%    \end{macrocode}
% Avec l'option \texttt{strict} le fichier institut doit se nommer que \texttt{lettre-\meta{institut}.cfg}.
%    \begin{macrocode}
\iflettre@strict
\newcommand*\institut[1]{%
  \lettre@institut@parse{#1}%
  \expandafter\lettre@institut\expandafter{\filename@area}}%
\else
%    \end{macrocode}
% Sans l'option \texttt{strict} le fichier institut peut se nommer soit \texttt{lettre-\meta{institut}.cfg},
% soit \texttt{\meta{institut}.ins}, on teste la première possibilité en premier.
%    \begin{macrocode}
\newcommand*\institut[1]{%
  \lettre@institut@parse{#1}%
  \IfFileExists{\filename@area}{%
    \expandafter\lettre@institut\expandafter{\filename@area}}{%
    \l@@warning{Le nommage des fichiers instituts en `<institut>.ins' est obsolete,
      veuillez les nommer en `lettre-<institut>.cfg'}%
    \lettre@institut{#1.ins}}%
}
\fi
%    \end{macrocode}
%
%\subsubsection{Environnements letter et fax}
%
%\DescribeEnv{letter} L'environnement \cs{begin\{letter\}}\marg{adresse}\ldots\cs{end\{letter\}} définit une
% lettre
% \changes{2.354}{2014-09-19}{Utilisation de \protect\ifcsundef\space pour tester \protect\csname
% letter\protect\the\expandafter\protect\csname c@lettre\endcsname\protect\endcsname}
%    \begin{macrocode}
\long\def\letter#1{%
  \global\let\lettre@tns@vspace\lettre@letter@tns@vspace
  \rm
  \global\advance\c@lettre\@ne
  \l@@info{Lettre \the\c@lettre}%
  \ifcsundef{newletter\the\c@lettre}{%
     \expandafter\def\csname letter\the\c@lettre\endcsname{2}%
  }{%
     \expandafter\def\csname letter\the\c@lettre\endcsname{%
		\csname newletter\the\c@lettre\endcsname}%
  }%
  \ifodd\c@page%
  \else
    \if@twoside
      \l@@info{Saut de page force pour commencer la lettre sur une page impaire.}%
      \thispagestyle{empty}
      \hbox{}\penalty-10000\relax
    \fi
  \fi
  \c@page\@ne
%    \end{macrocode}
% \changes{2.354}{2014-10-22}{Correction bug \href{https://gna.org/bugs/?23959}{\#23959}~: \og\cs{c@footnote}
% n'est pas re-initialisé au début de chaque lettre\fg}
%    \begin{macrocode}
  \c@footnote0 %
  \resetopenenv\resetcloseenv\resetauxenv\resetemailenv
  \@lettertrue
  \lettre@input@institut
  \let\opening=\letteropening
  \interlinepenalty=200\relax
  \lettre@processto{#1}
}%
%    \end{macrocode}
%\DescribeEnv{endletter}
%    \begin{macrocode}
\def\endletter{\par
  \ifdim\pagetotal < 50pt
    \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\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\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\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\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\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\MessageBreak
      tension de page modifiee a 6, veuillez recompiler}%
  \else
    \immediate\write\@tensionaux{%
          \string\expandafter\string\def%
          \string\csname\space newletter\the\c@lettre\string\endcsname{%
          \csname letter\the\c@lettre\endcsname}}%
    \l@@info{Longueur de la derniere page : \the\pagetotal >= 250pt}%
  \fi
  \fi
  \fi
  \fi
  \fi
  \fi
  \stopletter
  \@@par\pagebreak\@@par
  \if@etiq 
    \ifodd\c@page%
    \else
      \if@twoside
  	\l@@info{Saut de page force pour commencer les etiquettes sur une page impaire.}%
  	\thispagestyle{empty}
  	\hbox{}\penalty-10000\relax
      \fi
    \fi
    \begingroup 
      \def\protect{\string}%
      \let\\=\relax
      \def\protect##1{\string##1\space}%
      \immediate\write\@etiqaux{\string\mlabel{\toname
           \\\toaddress}}%
    \endgroup 
  \fi}%
%    \end{macrocode}
% \DescribeEnv{telefax}L'environnement \texttt{telefax} permet de formater une télécopie. Liste des
% arguments~:\newline
% \begin{tabular}{@{\#}l@{ : }l@{}}
%     1&Numéro du destinataire\\
%     2&Nom+adresse du destinataire\\
%   \end{tabular}
%    \begin{macrocode}
\long\def\telefax#1#2{%
  \global\let\lettre@tns@vspace\@empty
  \rm
  \global\advance\c@telefax\@ne
  \l@@info{Telefax \the\c@telefax}%
  \ifnum\c@telefax=\@ne
  \else
    \l@@warning@strictable{Un seul telefax par fichier, s.v.p.,\MessageBreak
      sinon le nombre de pages du fax est incorrect !}
  \fi
  \ifodd\c@page%
  \else
    \if@twoside
      \l@@info{Saut de page force pour commencer le telefax sur une page impaire.}%
      \thispagestyle{empty}
      \hbox{}\penalty-10000\relax
    \fi
  \fi
  \c@page\@ne
  \resetopenenv\resetcloseenv\resetauxenv\resetemailenv
  \@letterfalse
  \lettre@input@institut
  \def\tofaxnum{#1}%
  \let\opening=\faxopening
  \interlinepenalty=200\relax
  \makeatletter
  \@input{\jobname.fax}%
  \l@@info{Lecture du fichier auxiliaire de fax: Nombre total de pages=\totalpages}%
  \makeatother
  \lettre@processto{#2}
}%
%    \end{macrocode}
% \DescribeMacro{\endtelefax}
%    \begin{macrocode}
\def\endtelefax{%
  \stopfax
  \begingroup 
    \advance\faxpage by\c@page
    \def\protect{\string}%
    \let\\=\relax
    \def\protect##1{\string##1\space}%
    \immediate\openout\@faxaux=\jobname.fax%
    \immediate\write\@faxaux{\string\def\string\totalpages{\the\faxpage}}%
    \ifx\totalpages\@empty
      \let\@tempa\@firstoftwo
    \else\ifnum\totalpages=\the\faxpage
      \let\@tempa\@firstoftwo
    \else
      \let\@tempa\@secondoftwo
    \fi\fi
    \@tempa
    {}{\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}}%
  \endgroup
  \@@par\pagebreak\@@par
}%
%    \end{macrocode}
%\subsubsection{Les commandes \cs{opening} et \cs{closing}}
% \DescribeMacro{\lettre@write@pdate@to@dateaux}\cs{lettre@write@pdate@to@dateaux} permet d'écrire dans le
% fichier \cs{jobname}\texttt{.odt} la date de première compilation en cas de mode \texttt{origdate}. Cette
% action est effectuée au moment de la commande \cs{opening}.
% \changes{2.352}{2014-08-02}{Création macro \cs{lettre@write@pdate@to@dateaux} pour correction \href{https://gna.org/bugs/index.php?22423}{bogue\#22423}}
%    \begin{macrocode}
\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}}}}
%    \end{macrocode}
% \DescribeMacro{\lettre@get@date}\cs{lettre@get@date} permet de relire la date à partir de
% \cs{jobname}\texttt{.odt} lorsqu'elle y est disponible.
% \changes{2.352}{2014-08-06}{Nouvelle macro \cs{lettre@get@date}}
% \changes{2.354}{2014-09-19}{Utilisation de \protect\ifcsundef\space pour tester \protect\csname
% origdate\protect\the\expandafter\protect\csname c@lettre\endcsname\protect\endcsname}
%    \begin{macrocode}
\def\lettre@get@date{%
   \if@origdate
     \ifcsundef{origdate\the\c@lettre}{}{%
        \l@@info{Date originale lue dans \jobname.odt}%
        \def\pdate{\csname origdate\the\c@lettre\endcsname}%
     }%
%    \end{macrocode}
% On re-écrit systématiquement dans le fichier \cs{jobname}\texttt{.odt} même lorsque la date n'a pas changé,
% ce qui fait que son horodate change à chaque compilation même si le contenu peut rester inchangé. La raison
% c'est que~:
% \begin{enumerate}
% \item l'implémentation est plus simple (on ouvre systématiquement le \cs{write})
% \item dans le cas où il y a plusieurs plusieurs lettres dans le même document, disons deux, il se peut que
%   la seconde soit ajoutée au document alors que la première y était déjà, dans ce cas il faut quand même
%   re-écrire \cs{pdate} dans le \cs{jobname}\texttt{.odt} pour la première lettre, même si c'est inchangé, à
%   cause de la nouvelle lettre.
% \end{enumerate}
% \changes{2.352}{2014-08-02}{Correction \href{https://gna.org/bugs/index.php?22423}{bug\#22423} avec macro
% \cs{lettre@write@pdate@to@dateaux}}
%    \begin{macrocode}
     \lettre@write@pdate@to@dateaux
  \fi
}
%    \end{macrocode}
% \DescribeMacro{\lettre@put@fromlieu@date}La macro \cs{lettre@put@fromlieu@date} place \cs{fromlieu} et la
% date \cs{pdate} séparés d'une virgule. La virgule n'est présente que si ni l'un ni l'autre n'est vide.
% \changes{2.352}{2014-08-02}{Correction \href{https://gna.org/bugs/index.php?22383}{bug\#22383}, la virgule
% après \cs{fromlieu} est rendue conditionnelle à ce que \cs{fromlieu} soit non-vide. Lorsqu'il n'y a pas de
% date on ne met rien, et non plus un espace insécable}%
%    \begin{macrocode}
\def\lettre@put@fromlieu@date{%
  \ifx\@empty\fromlieu
   \else
     \fromlieu
     \ifx\@empty\pdate\else, \fi
   \fi 
  \ifx\@empty\pdate\else\pdate\fi}
%    \end{macrocode}
%\paragraph{Dans le cas d'une lettre, \cs{opening}}
%\label{sec:lettre-opening}
%
%\DescribeMacro{\letteropening}La macro \cs{opening} pointe par un \cs{let} sur \cs{letteropening} dans le cas
% de l'environnement \texttt{letter}.
%    \begin{macrocode}
\def\letteropening#1{%
%    \end{macrocode}
% \changes{2.352}{2014-08-06}{Factorisation du code entre \cs{faxopening} et \cs{letteropening} avec la macro
% \cs{lettre@get@date}}
%    \begin{macrocode}
   \lettre@get@date
   \hbadness=10000\relax
   \thispagestyle{empty}% 
   \setlength{\unitlength}{1mm}%
   \begin{picture}(\pict@let@width,\pict@let@height)%
                  (\pict@let@hoffset,\pict@let@voffset)%
     \put(\rule@hpos,\rule@vpos){\line(1,0){\rule@length}}%
     \put(\fromaddress@let@hpos,\fromaddress@let@vpos){\makebox(0,0)[tl]{%
          \parbox[t]{\fromaddress@let@width}{%
                  \fromaddress\\[3mm]%
                  \ifx\@empty\fromlocation
                  \else \fromlocation \\%
                  \fi 
                  \ifx\@empty\telephonenum
                  \else \tellabelname \telephonenum \\
                  \fi
                  \ifx\@empty\faxnum
                  \else \faxlabelname \faxnum \\
                  \fi
                  \ifx\@empty\emailnum
                  \else \mbox{\emaillabelname\ttfamily\emailnum} \\
                  \fi}}}
     \put(\fromlieu@let@hpos,\fromlieu@let@vpos){\makebox(0,0)[bl]{%
          \parbox[t]{\fromlieu@let@width}{%
%    \end{macrocode}
% \changes{2.352}{2014-08-06}{Factorisation du code entre \cs{faxopening} et \cs{letteropening} avec la macro
% \cs{lettre@put@fromlieu@date}}
%    \begin{macrocode}
            \lettre@put@fromlieu@date
              }}}%
     \put(\toaddress@let@hpos,\toaddress@let@vpos){\makebox(0,0)[tl]{%
          \parbox{\toaddress@let@width}{%
                 \toname\\\toaddress}}}%
   \end{picture}%
   \par
%    \end{macrocode}
% Espacement vertical lu dans le fichier \texttt{.tns} destiné à optimiser la mise en page.
%    \begin{macrocode}
   \lettre@letter@tns@vspace
%    \end{macrocode}
% \changes{3.001}{2017-08-05}{Correction de l'anomalie \href{http://gna.org/bugs/?25373}{GNA\No 25373}; aka
% \href{https://puszcza.gnu.org.ua/bugs/index.php?397}{\No 397}, on corrige la gestion de la marge}%
%    \begin{macrocode}
   \lettre@adjust@margin
%    \end{macrocode}
% Références, Télex, \& CCP de la lettre, s'il en est.
%    \begin{macrocode}
   \ifx\@empty\auxflag
     \vspace{2\openingspace}%
   \else 
     \vspace{\openingspace}\auxline\vspace{\openingspace}%
   \fi
%    \end{macrocode}
% Espacement vertical lu dans le fichier \texttt{.tns} destiné à optimiser la mise en page.
%    \begin{macrocode}
   \lettre@letter@tns@vspace
%    \end{macrocode}
% Objet de la lettre, s'il en est, suivi de la formule de salutation.
% \changes{3.001}{2017-11-28}{Factorisation de code entre \cs{faxopening} et \cs{letteropening} avec la macro
% \cs{lettre@start@body}.}
%    \begin{macrocode}
   \lettre@start@body{#1}%
}%
%    \end{macrocode}
%\paragraph{Dans le cas d'une télécopie, \cs{opening}}
%\label{sec:fax-opening}
%
%\DescribeMacro{\faxopening}\cs{opening} pointe par un \cs{let} sur \cs{faxopening} dans le cas d'une
% télécopie.
%    \begin{macrocode}
\def\faxopening#1{%
   \hbadness=10000\relax
   \thispagestyle{empty}%
   \setlength{\unitlength}{1mm}%
   \begin{picture}(\pict@fax@width,\pict@fax@height)
                   (\pict@fax@hoffset,\pict@fax@voffset)%
     \put(\fromaddress@fax@hpos,\fromaddress@fax@vpos){\makebox(0,0)[tl]{
          \parbox[t]{\fromaddress@fax@width}{\fromaddress}}}%
     \put(\faxstring@hpos,\faxstring@vpos){\makebox(0,0)[bl]{%
          \parbox[t]{\faxstring@width}{\telefaxstring}}}
   \end{picture}\par%
 \par\vspace{5mm}%
  \makebox[\faxbox@width]{\scriptsize\telephonelabelname\telephonenum
   \hfill\telefaxlabelname\faxnum
   \ifx\@empty\emailnum\else\hfill\emaillabelname{\ttfamily\emailnum}\fi
   \ifx\@empty\telexnum\else\hfill\telexlabelname\telexnum\fi}%
 \par
 \begin{tabular*}{\faxbox@width}[t]{l@{\hspace{5mm}}p{70mm}@{\hfill}r}%
    \hline
    \multicolumn{3}{@{}c@{}}{\vrule height 0pt depth 0pt width \faxbox@width}\\
    \headtoname
       &\parbox[t]{\toaddress@fax@width}{\toname\\\toaddress}%
       &\telefaxname\tofaxnum\\%
    \\%
    \headfromname
       &\parbox[t]{\fromname@fax@width}{\ifx\@empty\fromlocation
                                       \fromname
                                   \else
                                       \fromlocation
                                   \fi}%
       &\pagetotalname\totalpages\\%
 \end{tabular*}\par%
 \begin{tabular*}{\faxbox@width}[t]{@{\hfill}c@{\hfill}}%
    \hline
    \vrule height 3ex depth 7pt width 0pt\faxwarning\\%
    \hline
 \end{tabular*}\par%
 \begin{tabular*}{\faxbox@width}[t]{@{}r@{}}%
    \vrule height 0pt depth 0pt width \faxbox@width\\
    \multicolumn{1}{r}{%
%    \end{macrocode}
% \changes{2.352}{2014-08-06}{Factorisation du code entre \cs{faxopening} et \cs{letteropening} avec les macro
% \cs{lettre@get@date} et \cs{lettre@put@fromlieu@date}}%
%    \begin{macrocode}
       \lettre@get@date
       \lettre@put@fromlieu@date
           }\\%
 \end{tabular*}%
 \par
   \vspace{\openingspace}%
   \lettre@adjust@margin
%    \end{macrocode}
% Objet du fax, s'il en est, suivi de la formule de salutation.
% \changes{3.001}{2017-11-28}{Factorisation de code entre \cs{faxopening} et \cs{letteropening} avec la macro
% \cs{lettre@start@body}.}
%    \begin{macrocode}
   \lettre@start@body{#1}%
}%
%    \end{macrocode}
%\paragraph{\cs{closing}}
%\label{sec:closing}
%\DescribeMacro{\closing}
%    \begin{macrocode}
\long\def\closing#1{%
  \let\center=\normalcenter
  \let\centering=\normalcentering
  \let\flushleft=\normalflushleft
  \let\raggedright=\normalraggedright
  \par\lettre@stopbreaks
%    \end{macrocode}
% Espacement vertical lu dans le fichier \texttt{.tns} destiné à optimiser la mise en page, seulement dans le
% cas d'une lettre et non d'une télécopie.
%    \begin{macrocode}
  \lettre@tns@vspace
%    \end{macrocode}
% \strut
%    \begin{macrocode}
  \par\vspace{2\parskip}%
  \nobreak
  \noindent
  \l@@info{Signature \ifcase\signum manquante\or simple\or double\or triple\fi}%
%    \end{macrocode}
% Dans le cas où \cs{signum} est nul, la signature est générée à partir de \cs{fromname}. Il est donc
% nécessaire que \cs{name}\marg{Mon nom} ait été appelé dans le préambule ou indirectement via la commande
% \cs{institut}.
% \changes{3.000}{2016-02-26}{Message d'erreur explicite en cas d'absence de \cs{name}\marg{Mon nom}.}
%    \begin{macrocode}
  \ifnum\signum=0\space\ifx\fromname\undefined
    \l@@error{\protect\fromname\space non d'efini, vous avez sans
     doute omis de sp'ecifier \protect\name\space ou
     \protect\institut\space!}
  \fi\fi
%    \end{macrocode}
% Le compteur \cs{sigflag} permet de sélectionner une présentation de la signature en fonction de la locale.
% \changes{3.001}{2017-08-05}{Factorisation de code dans \cs{closing} sur le \cs{ifcase}\cs{sigflag}.}
%    \begin{macrocode}
  \ifcase\sigflag
    \parbox[t]{\letterwidth}{#1}%
    \par\vspace*{4\parskip}%
        \vspace*{\sigspace}%
    \ifcase\signum
       \hspace*{\ssigindent}%
       \noindent
       \parbox[t]{\ssigwidth}{\centering \ignorespaces\fromname}%
    \or
       \hspace*{\ssigindent}%
       \noindent
       \parbox[t]{\ssigwidth}{\centering \ignorespaces\fromsig}%
    \or
       \msigwidth=\letterwidth
       \divide\msigwidth by 2\relax
       \advance\msigwidth -3pt%
       \noindent
       \mbox{\parbox[t]{\msigwidth}{\centering\ignorespaces\fromsig}%
             \parbox[t]{\msigwidth}{\centering\ignorespaces\fromssig}}%
    \or
       \msigwidth=\letterwidth
       \divide\msigwidth by 3\relax
       \advance\msigwidth -3pt%
       \noindent
       \mbox{\parbox[t]{\msigwidth}{\centering\ignorespaces\fromsig}%
             \parbox[t]{\msigwidth}{\centering\ignorespaces\fromssig}%
             \parbox[t]{\msigwidth}{\centering\ignorespaces\fromtsig}}%
    \fi
  \or
    \ifcase\signum
        \hspace*{\ssigindent}%
        \parbox[t]{\ssigwidth}%
        {\centering \ignorespaces
        #1%
        \par\vspace*{4\parskip}%
            \vspace*{\sigspace}%
        \fromname}%
    \or
        \hspace*{\ssigindent}%
        \parbox[t]{\ssigwidth}%
        {\centering \ignorespaces
        #1%
        \par\vspace*{4\parskip}%
            \vspace*{\sigspace}%
        \fromsig}%
    \or
       \parbox[t]{\letterwidth}{#1}%
       \par\vspace*{4\parskip}%
           \vspace*{\sigspace}%
       \msigwidth=\letterwidth
       \divide\msigwidth by 2\relax
       \advance\msigwidth -3pt%
       \noindent
       \mbox{\parbox[t]{\msigwidth}{\centering\ignorespaces\fromsig}%
             \parbox[t]{\msigwidth}{\centering\ignorespaces\fromssig}}%
    \or
       \parbox[t]{\letterwidth}{#1}%
       \par\vspace*{4\parskip}%
           \vspace*{\sigspace}%
       \msigwidth=\letterwidth
       \divide\msigwidth by 3\relax
       \advance\msigwidth -3pt%
       \noindent
       \mbox{\parbox[t]{\msigwidth}{\centering\ignorespaces\fromsig}%
             \parbox[t]{\msigwidth}{\centering\ignorespaces\fromssig}%
             \parbox[t]{\msigwidth}{\centering\ignorespaces\fromtsig}}%
    \fi
  \fi
  \par\vfill
%    \end{macrocode}
% Fin du corps de la lettre sous la marge définie par \cs{marge}.
%    \begin{macrocode}
  \lettre@endadjust@margin
  \lettre@startbreaks
  \let\@par\lettre@par
  \let\lettre@parshape\@empty
%    \end{macrocode}
% Fin de la macro \cs{closing}.
%    \begin{macrocode}
}%
\newdimen\lettre@save@leftmargin
\newdimen\lettre@save@leftskip
\newdimen\lettre@leftmargin
%    \end{macrocode}
% \DescribeMacro{\lettre@adjust@margin}Début du corps de lettre dans lequel la marge est réglée selon la
% commande \cs{marge} qui a été passée avant le \cs{opening}.
%    \begin{macrocode}
\newcommand*\lettre@adjust@margin{%
    \@setpar{\@@par\lettre@parshape}%
    \lettre@save@leftmargin\leftmargin
    \lettre@leftmargin\lettermargin
    \advance\@totalleftmargin by \lettre@leftmargin
    \leftmargin\lettre@leftmargin
    \advance\linewidth by -\lettre@leftmargin
    \lettre@save@leftskip\leftskip
    \def\lettre@parshape{\parshape \@ne\@totalleftmargin \linewidth}%
    \lettre@parshape
}
%    \end{macrocode}
% \DescribeMacro{\lettre@endadjust@margin}Fin du corps de lettre. Après cette commande la marge n'est plus
% contrôlée selon le réglage fait pas la commande \cs{marge}.
%    \begin{macrocode}
\newcommand*\lettre@endadjust@margin{%
    \advance\@totalleftmargin by -\lettre@leftmargin
    \advance\linewidth by \lettre@leftmargin
    \leftmargin\lettre@save@leftmargin
    \leftskip\lettre@save@leftskip
  }
%    \end{macrocode}
% \DescribeMacro{\lettre@letter@tns@vspace}La macro \cs{lettre@letter@tns@vspace} insère l'espace vertical
% utilisé pour optimiser la mise en page des lettres via le fichier \texttt{.tns}. Cette macro n'est utilisée
% que dans le cas des lettres, et pas dans celui des télécopies.
%    \begin{macrocode}
\newcommand*\lettre@letter@tns@vspace{%
  \vskip\csname letter\the\c@lettre\endcsname mm}
%    \end{macrocode}
% \DescribeMacro{\lettre@tns@vspace}La macro \cs{lettre@tns@vspace} pointe en fait sur
% \cs{lettre@letter@tns@vspace} dans le cas des lettres, ou sur \cs{@empty} dans celui d'une télécopie. Elle
% permet d'appeler l'une ou l'autre macro dans les parties communes aux deux types de missives, par ex.\ au
% sein de \cs{closing} ou de \cs{lettre@start@body}.
%    \begin{macrocode}
\newcommand*\lettre@tns@vspace{}
%    \end{macrocode}
% \DescribeMacro{\lettre@start@body}La macro \cs{lettre@start@body} insère l'objet, s'il en est, suivi de la
% formule de salutation, puis débute le corps de la lettre en terminant \cs{opening} par l'espacement
% nécessaire et en redéfinissant les environnement \texttt{center} et consorts de manière adéquate.
%    \begin{macrocode}
\newcommand*\lettre@start@body[1]{%
   \ifx\@empty\concdecl 
     \vspace{\openingspace}%
   \else 
     \concline\vspace{\openingspace}%
   \fi
   \lettre@tns@vspace
   \hbadness=1000\relax
   {\parindent=\openingindent
   #1}\par\lettre@startbreaks\nobreak
   \let\flushleft=\letterflushleft
   \let\raggedright=\letterraggedright
   \let\center=\lettercenter
   \let\centering=\lettercentering  
}
%    \end{macrocode}
% \DescribeMacro{\marge}La macro \cs{marge} règle la marge du corps de la lettre. Elle est à appelé entre le
% \cs{begin\{letter\}} et le \cs{opening}.
%    \begin{macrocode}
\def\marge#1{%
 \lettermargin=#1%
 \listmargin=#1%
 \letterwidth=\textwidth
 \advance\letterwidth by -\lettermargin
}%
%    \end{macrocode}
%\DescribeMacro{\basdepage}
%    \begin{macrocode}
\def\basdepage#1{%
  \def\bdp{#1}}%
%    \end{macrocode}
%\DescribeMacro{\tension}
%    \begin{macrocode}
\def\tension#1{%
  \if@letter
    \expandafter\def\csname letter\the\c@lettre\endcsname{#1}%
  \fi
}%
%    \end{macrocode}
%\DescribeMacro{\addpages}
%    \begin{macrocode}
\def\addpages#1{%
  \l@@info{Pages additionnelles: #1}%
  \advance\faxpage by #1}%
%    \end{macrocode}
%\DescribeMacro{\name}
%    \begin{macrocode}
\def\name#1{\def\fromname{#1}}%
%    \end{macrocode}
%\DescribeMacro{\signature}
%    \begin{macrocode}
\def\signature#1{%
  \ifnum\signum=0\relax
    \def\fromsig{#1}\signum=1\relax
  \else
    \l@@warning@strictable{Signature deja definie}%
  \fi
}%
%    \end{macrocode}
%\DescribeMacro{\secondsignature}
%    \begin{macrocode}
\def\secondsignature#1{%
  \ifnum\signum=1\relax
    \def\fromssig{#1}\signum=2\relax
  \else
    \l@@warning@strictable{Seconde signature illegale ou deja definie}%
  \fi
}%
%    \end{macrocode}
%\DescribeMacro{\thirdsignature}
%    \begin{macrocode}
\def\thirdsignature#1{%
  \ifnum\signum=2\relax
    \def\fromtsig{#1}\signum=3\relax
  \else
    \l@@warning@strictable{Troisieme signature illegale ou deja definie}%
  \fi
}%
%    \end{macrocode}
%\DescribeMacro{\vref}
%    \begin{macrocode}
\def\vref{\l@@warning@strictable{La commande \protect\Vref\space devrait etre
    utilisee}\Vref}
%    \end{macrocode}
%\DescribeMacro{\Vref}
%\changes{2.354}{2014-10-21}{Ajout \cs{lettre@vref@width}}%
%\changes{2.354}{2014-10-21}{Un argument vide à \cs{Vref} supprime la référence}%
%    \begin{macrocode}
\def\Vref#1{%
  \def\@tempa{#1}%
  \ifx\@empty\@tempa
     \let\toref\@empty
  \else
     \def\auxflag{.}%
     \def\toref{\parbox[t]{\lettre@vref@width}{#1}}%
  \fi
}%
%    \end{macrocode}
%\DescribeMacro{\nref}
%    \begin{macrocode}
\def\nref{\l@@warning@strictable{La commande \protect\Nref\space devrait etre
  utilisee}\Nref}
%    \end{macrocode}
%\DescribeMacro{\Nref}
%\changes{2.354}{2014-10-21}{Ajout \cs{lettre@nref@width}}%
%\changes{2.354}{2014-10-21}{Un argument vide à \cs{Nref} supprime la référence}%
%    \begin{macrocode}
\def\Nref#1{%
  \def\@tempa{#1}%
  \ifx\@empty\@tempa
     \let\fromref\@empty
  \else
     \def\auxflag{.}%
     \def\fromref{\parbox[t]{\lettre@nref@width}{#1}}%
  \fi
}%
%    \end{macrocode}
%\DescribeMacro{\concline}La macro \cs{concline}  contient l'objet de la lettre ou du fax.
%    \begin{macrocode}
\def\concline{%
         \noindent\parbox[t]{\letterwidth}%
           {\@hangfrom{\textrm{\concname}}\ignorespaces\concdecl\strut}%
         \par}%
%    \end{macrocode}
% \DescribeMacro{\auxline}La macro \cs{auxline} contient les références, ainsi que les numéro télex ou
% \textsc{ccp}.
%    \begin{macrocode}
\def\auxline{%
  \l@@info{Ligne auxiliaire demandee}%
  {\scriptsize
    \ifx\@empty\toref\else
      \vrefname
      \ifx\space\toref
        \hspace{\lettre@vref@width}%
      \else 
        {\small\toref}%
      \fi
      \hfill
   \fi
   \ifx\@empty\fromref\else
     \nrefname
     \ifx\space\fromref
       \hspace{\lettre@nref@width}%
     \else 
      {\small\fromref}%
     \fi
     \hfill
   \fi
   \ifx\@empty \telexnum
      \hfill
   \else 
      T\'ELEX\ \telexnum
      \hspace{5mm}%
    \fi
    \ifx\@empty \ccpnum
      \hfill
    \else 
      C.C.P.\ \ccpnum\hspace{5mm}%
    \fi}\par}%
%    \end{macrocode}
%\DescribeMacro{\emailine}
%    \begin{macrocode}
\def\emailine{%
  \l@@info{Ligne d'E-Mail demandee}%
  {\scriptsize
    \emaillabelname\hfill\ttfamily
    \ifx\@empty \ccittnum
    \else
     \hfill \ccittnum\hfill
    \fi
    \ifx\@empty \internetnum
    \else
     \hfill \internetnum\hfill
    \fi
    \ifx\@empty \bitnetnum
    \else
     \hfill \bitnetnum\hfill
    \fi
    \ifx\@empty \telepacnum
    \else 
     \hfill \telepacnum\hfill
    \fi
    \ifx\@empty \decnetnum
    \else 
     \hfill \decnetnum\hfill
    \fi
    \ifnum\emailcount<3\relax
     \hfill\mbox{}%
    \fi}}%
%    \end{macrocode}
%\DescribeMacro{\address}
%    \begin{macrocode}
\long\def\address#1{\l@@info{Adresse precisee}\def\fromaddress{#1}}%
%\long\def\address*#1{\if@letter
%                        \l@@info{Adresse avec nom precisee}%
%                        \def\fromaddress{\fromname\\#1}
%                     \else
%                        \l@@warning@strictable{Commande illegale dans un fax}
%                     \fi}%
%    \end{macrocode}
%\DescribeMacro{\nodate}
%    \begin{macrocode}
\def\nodate{\l@@info{Date supprimee}\def\pdate{}}%
\def\date#1{\l@@info{Date precisee}\def\pdate{#1}}%
%    \end{macrocode}
%\DescribeMacro{\nolieu}
%    \begin{macrocode}
\def\nolieu{\l@@info{Lieu supprime}\def\fromlieu{}}%
%    \end{macrocode}
%\DescribeMacro{\lieu}
%    \begin{macrocode}
\def\lieu#1{\l@@info{Lieu precise}\def\fromlieu{#1}}%
%    \end{macrocode}
%\DescribeMacro{\conc}
%    \begin{macrocode}
\def\conc#1{\l@@info{Champ d'objet defini}\def\concdecl{#1}}%
%    \end{macrocode}
%\DescribeMacro{\location}
%    \begin{macrocode}
\def\location#1{\l@@info{Precision d'adresse definie}\def\fromlocation{#1}}%
%    \end{macrocode}
%\DescribeMacro{\notelephone}
%    \begin{macrocode}
\def\notelephone{\l@@info{Numero de telephone supprime}\def\telephonenum{}}%
%    \end{macrocode}
%\DescribeMacro{\telephone}
%    \begin{macrocode}
\def\telephone#1{\l@@info{Numero de telephone precise}\def\telephonenum{#1}}%
%    \end{macrocode}
%\DescribeMacro{\nofax}
%    \begin{macrocode}
\def\nofax{\l@@info{Numero de fax supprime}\def\faxnum{}}%
%    \end{macrocode}
%\DescribeMacro{\fax}
%    \begin{macrocode}
\def\fax#1{\l@@info{Numero de fax precise}\def\faxnum{#1}}%
%    \end{macrocode}
%\DescribeMacro{\email}
%    \begin{macrocode}
\def\email#1{\l@@info{Numero d'E-Mail precise}\def\emailnum{#1}}%
%    \end{macrocode}
%\DescribeMacro{\username}
%    \begin{macrocode}
\def\username#1{\def\@username{#1}}%
%    \end{macrocode}
%\DescribeMacro{\ccitt}
%    \begin{macrocode}
\def\ccitt#1{%
  \ifnum\emailcount<3\relax
    \def\emailflag{.}%
    \advance\emailcount by 1\relax
    \def\ccittnum{%
      \ifx\@empty \@username
        \l@@warning@strictable{<<username>> indefini}
        #1%
      \else
        S=\@username;#1%
      \fi}%
  \else
    \def\ccittnum{}%
  \fi}%
%    \end{macrocode}
%\DescribeMacro{\internet}
%    \begin{macrocode}
\def\internet#1{%
  \ifnum\emailcount<3\relax
    \def\emailflag{.}%
    \advance\emailcount by 1\relax
    \def\internetnum{%
      \ifx\@empty\@username
        \l@@warning@strictable{<<username>> indefini}
        #1\relax
      \else
        \@username @#1\relax
      \fi}%
  \else
    \def\internetnum{}%
  \fi}%
%    \end{macrocode}
%\DescribeMacro{\bitnet}
%    \begin{macrocode}
\def\bitnet#1{%
  \ifnum\emailcount<3\relax
    \def\emailflag{.}%
    \advance\emailcount by 1\relax
    \def\bitnetnum{%
      \ifx\@empty \@username
        \l@@warning@strictable{<<username>> indefini}
        #1\relax
      \else
        \@username\ at #1\relax
      \fi}%
    \else
      \def\bitnetnum{}%
    \fi}%
%    \end{macrocode}
%\DescribeMacro{\telepac}
%    \begin{macrocode}
\def\telepac#1{%
  \ifnum\emailcount<3\relax
    \def\emailflag{.}%
    \advance\emailcount by 1\relax
    \def\telepacnum{%
      \ifx\@empty \@username
        \l@@warning@strictable{<<username>> indefini}
        #1\relax
      \else
        #1::\@username
      \fi}%
    \else
      \def\telepacnum{}%
    \fi}%
%    \end{macrocode}
%\DescribeMacro{\decnet}
%    \begin{macrocode}
\def\decnet#1{%
  \ifnum\emailcount<3\relax
  \def\emailflag{.}%
  \advance\emailcount by 1\relax
  \def\decnetnum{%
    \ifx\@empty \@username
      \l@@warning@strictable{<<username>> indefini}
      #1\relax
    \else
      #1::\@username
    \fi}%
  \else
    \def\decnetnum{}%
  \fi}%
%    \end{macrocode}
%\DescribeMacro{\telex}
%    \begin{macrocode}
\def\telex#1{\ifnum\auxcount<2\relax
	       \def\auxflag{.}%
	       \advance\auxcount by 1\relax
	       \def\telexnum{#1}%
	     \else
	       \def\telexnum{}%
	     \fi}%
%    \end{macrocode}
%\DescribeMacro{\ccp}
%    \begin{macrocode}
\def\ccp#1{\ifnum\auxcount<2\relax
             \def\auxflag{.}%
             \advance\auxcount by 1\relax
             \def\ccpnum{#1}%
           \else
             \def\ccpnum{}%
           \fi}%
%    \end{macrocode}
%\DescribeMacro{\ps}
%    \begin{macrocode}
\def\ps#1#2{\penalty100\relax
  \lettre@tns@vspace
  \l@@info{Post-scriptum defini}%
  \noindent\lettre@t{#1}{#2\\}\vfill\penalty-100\relax}%
%    \end{macrocode}
%\DescribeMacro{\cc}
%    \begin{macrocode}
\def\cc#1{\penalty100\relax
  \lettre@tns@vspace
  \l@@info{Copies declarees}%
  \noindent\lettre@t{\ccname}{#1\\}\vfill\penalty-100\relax}%
%    \end{macrocode}
%\DescribeMacro{\encl}
%    \begin{macrocode}
\def\encl#1{\penalty100\relax
  \lettre@tns@vspace
  \l@@info{Annexes declarees}%
  \noindent\lettre@t{\enclname}{#1\\}\vfill\penalty-100\relax}%
%    \end{macrocode}
%\DescribeMacro{\mencl}
%    \begin{macrocode}
\def\mencl{\penalty100\relax
  \lettre@tns@vspace
  \l@@info{Annexes mentionnees}%
  \noindent\lettre@t{\mentionname\\}{~}\vfill\penalty-100\relax}%
%    \end{macrocode}
%
%\subsubsection{Définitions dépendant du langage}
%
%\DescribeMacro{\lettrelmpselectlanguage}La macro \cs{lettrelmpselectlanguage} permet, lorsque une langue est
% chargée dans dans un processeur multilingue (par ex.\ \texttt{babel}) de sélectionner cette langue et de
% redéfinir les environnements de liste tels qu'\texttt{itemize} pour le français.
%    \begin{macrocode}
\newcommand*{\lettrelmpselectlanguage}[1]{%
%    \end{macrocode}
% Si l'utilisateur n'a pas chargé les définitions de cette langue, on essaie de le faire ici :
%    \begin{macrocode}
  \lettreloadlang{#1}%
%    \end{macrocode}
% Ensuite, en premier lieu on vérifie que la langue \texttt{\#1} est bien prise en charge.
%    \begin{macrocode}
  {%
    \ifcsundef{lettre@#1@alias@of}{%
      \l@@warning@strictable{Langue #1 non ger'ee par lettre}%
      \let\@tempa\@empty
    }{%
%    \end{macrocode}
% Ensuite, il s'agit d'appeler \cs{lettre@lmp@selectlanguage}. En fait si l'on pose que
% \meta{lang}$=$\texttt{\#1}, alors on ne veut pas appeler
% \cs{lettre@lmp@selectlanguage}\texttt{\{}\meta{lang}\texttt{\}} mais
% \cs{lettre@lmp@selectlanguage}\texttt{\{}\meta{lang$^{\prime\prime}$}\texttt{\}}, où ci-après on déduit
% \meta{lang$^{\prime}$} de \meta{lang}, puis \meta{lang$^{\prime\prime}$} de \meta{lang$^{\prime}$}. On
% regarde donc d'abord de quoi \meta{lang}$=$\texttt{\#1} est l'alias, et on met le résultat dans
% \meta{lang$^\prime$}$=$\cs{toks}$0$. Par ex.\ si \meta{lang}$=$\texttt{french}, alors on a aussi
% \meta{lang$^\prime$}$=$\texttt{french}, parce que \texttt{french} est l'alias de lui-même (en d'autre terme ce
% n'est pas un alias d'autre chose), mais si \meta{lang}$=$\texttt{francais}, alors on aura
% \meta{lang$^\prime$}$=$\texttt{french}, parce que \texttt{francais} est un alias de \texttt{french}.
%    \begin{macrocode}
      \toks0\expandafter\expandafter\expandafter
        {\csname lettre@#1@alias@of\endcsname}%
%    \end{macrocode}
% Puis, si pour cette langue \meta{lang$^\prime$}, par ex.\ \texttt{romand}, on a déclaré d'utiliser une autre
% langue pour le gestionnaire de langue, par ex.\ \texttt{french}, on utilise celle-là au lieu de celle-ci, on
% met le résultat dans \meta{lang$^{\prime\prime}$}$=$\cs{toks}$1$.
%    \begin{macrocode}
      \ifcsundef{lettre@lmp@\the\toks0@use}{%
        \toks1\toks0 %
      }{%
        \toks1\expandafter\expandafter\expandafter
          {\csname lettre@lmp@\the\toks0@use\endcsname}%
      }%
%    \end{macrocode}
% En définitive, on va appeler \cs{lettre@lmp@selectlanguage}\texttt{\{}\meta
% {lang$^{\prime\prime}$}\texttt{\}}, et cet appel est préparé dans \cs{toks}$4$. Mais pas tout à fait, on
% gère en plus la modification par \texttt{lettre} des environnements de base (par ex.\ \texttt{itemize}) en
% fonction de la langue, de sorte qu'en fin de compte c'est la séquence
% \cs{the}\cs{toks}$3$\cs{the}\cs{toks}$4$\cs{the}\cs{toks}$5$ qui sera appelé.
%    \begin{macrocode}
      \toks4\expandafter{%
        \expandafter\lettre@lmp@selectlanguage\expandafter{%
          \the\toks1}}%
%    \end{macrocode}
% Il y a trois cas possibles. Le premier c'est que la gestion des environnements par \texttt{lettre} est
% désactivée, ou en d'autres termes que le compteur \cs{lettre@keep@envs} est à 1. Dans ce cas on ne
% fait rien de plus qu'appeler \cs{lettre@lmp@selectlanguage}\texttt{\{}\meta
% {lang$^{\prime\prime}$}\texttt{\}}, c.-à-d.\ que \cs{toks}$3$ et \cs{toks}$5$ sont vide.
%    \begin{macrocode}
      \ifnum\lettre@keep@envs=1 %
         \toks3{}%
         \toks5{}%
      \else
%    \end{macrocode}
% Dans le deuxième cas, la gestion des environnements par \texttt{lettre} est activée, mais il n'y a pas de
% redéfinition d'environnements disponible pour la langue \meta{lang$^{\prime\prime}$}. Dans ce cas on
% appelle \cs{lettre@restore@orig@envs} avant \cs{lettre@lmp@selectlanguage}\texttt{\{}\meta
% {lang$^{\prime\prime}$}\texttt{\}}, et \cs{lettre@store@orig@envs}. Si \meta{lang$^{\prime\prime}$} est la
% seule langue utilisée dans tout le document, cela ne sert à rien, mais au cas où le document contiendrait
% avant la lettre utilisant \meta{lang$^{\prime\prime}$} une lettre qui aurait redéfini les environnements,
% on a besoin du \cs{lettre@restore@orig@envs} pour ne pas perturber le paquetage de gestion de langue.
%    \begin{macrocode}
         \toks3{\lettre@restore@orig@envs}%
         \ifcsundef{lettre@set@\the\toks1@envs}{%
           \toks5{\lettre@store@orig@envs}%
         }{%
%    \end{macrocode}
% Dans le troisième cas, une redéfinition d'environnements est disponible pour la langue
% \meta{lang$^{\prime\prime}$}. Dans ce cas on fait la même chose que dans le deuxième cas, à ceci près
% qu'on appelle en tout dernier lieu \cs{lettre@set@}\meta{lang$^{\prime\prime}$}\texttt{@envs}.
%    \begin{macrocode}
            \toks5\expandafter{\expandafter\lettre@store@orig@envs
              \csname lettre@set@\the\toks1 @envs\endcsname}%
         }%
      \fi
%    \end{macrocode}
% Il ne reste plus qu'à appeler ce qu'on a préparé dans les \cs{toks} allant de $3$ à $5$.
%    \begin{macrocode}
      \edef\@tempa{%
        \the\toks3 %
        \the\toks4 %
        \the\toks5}%
    }%
    \expandafter
  }\@tempa
}%
%    \end{macrocode}
%\DescribeMacro{\FAXSTR}
%    \begin{macrocode}
\def\FAXSTR{\fontfamily{cmdh}\fontseries{m}\fontshape{n}\selectfont}%
%    \end{macrocode}
%\DescribeMacro{\lettre@lmp@selectlanguage}La macro \cs{lettrelmpselectlanguage} n'est en fait qu'un pointeur
% qui appelle le \cs{selectlanguage} ou son équivalent selon le processeur multilingue utilisé (typiquement
% \texttt{mlp}, \texttt{babel},  ou \texttt{polyglossia}). Ici on définit une implémentation par défaut qui ne
% fait rien en attendant un \cs{let} vers la bonne macro.
%    \begin{macrocode}
\newcommand*\lettre@lmp@selectlanguage[1]{%
  \l@@warning{ `\string\lettre@lmp@selectlanguage{#1}' appel'e, mais ne
    fait rien. Vous n'avez charg'e ni babel, ni mlp, ni polyglossia, ni
    french}}
%    \end{macrocode}
%\DescribeMacro{\lettrelabelselectlanguage}\cs{lettrelabelselectlanguage} change la langue des étiquettes de
% la lettre, ainsi que la disposition de la signature.
%    \begin{macrocode}
\newcommand*\lettrelabelselectlanguage[1]{%
%    \end{macrocode}
% Si l'utilisateur n'a pas chargé les définitions de cette langue, on essaie de le faire ici :
%    \begin{macrocode}
  \lettreloadlang{#1}%
%    \end{macrocode}
% Et maintenant on sélectionne la langue \meta{langue}$=$\texttt{\#1}, ce qui correspond à appeler la macro
% \cs{lettre@select@\meta{langue}@labels} avec quelques gardefous. Au-passage, si aucun des gardefous n'est
% franchi, \cs{lettre@mainlang} est redéfini à \texttt{\#1}.
%    \begin{macrocode}
  {%
     \ifcsundef{lettre@#1@alias@of}{%
       \l@@warning@strictable{La langue <<#1>> n'est pas prise en charge par lettre}%
       \let\@tempa\@empty
     }{%
        \expandafter\let\expandafter\@tempa\csname lettre@#1@alias@of\endcsname
        \ifcsundef{lettre@select@\@tempa @labels}{%
          \l@@warning@strictable{Les d'efinitions de la langue <<\@tempa>> n'ont pas pu etre charg'ees}%
          \let\@tempa\@empty
        }{%
          \expandafter\def\expandafter\@tempa\expandafter{%
            \csname lettre@select@\@tempa @labels\endcsname
            \def\lettre@mainlang{#1}}%
        }%
     }%
     \expandafter
  }\@tempa
}%
%    \end{macrocode}
% \DescribeMacro{\lettreloadlang}La macro \cs{lettreloadlang}\marg{langue} charge les définitions pour la
% langue \meta{langue}. Ceci revient à faire un \cs{input} du fichier nommé \texttt{lettre-\meta{langue}.ldf}.
%    \begin{macrocode}
\newcommand*\lettreloadlang[1]{%
%    \end{macrocode}
% On ouvre un groupe pour pouvoir y faire des définitions locales.
%    \begin{macrocode}
  {%
%    \end{macrocode}
% On vérifie tout d'abord si la langue \texttt{\#1} fait partie des langues prises en charge par
% \texttt{lettre}. On met dans \cs{@tempa} la valeur \meta{lang$^{\prime}$} à laquelle \texttt{\#1} est égale,
% ou en est l'alias. On met dans \cs{toks0} tout traitement éventuel de redéfinition de
% \cs{lettre@\#1@alias@of}.
%    \begin{macrocode}
     \newif\iflettre@lang@not@supported
     \ifcsundef{lettre@#1@alias@of}{%
       \lettre@lang@not@supportedtrue
       \l@@warning@strictable{La langue <<#1>> ne fait pas partie des
         langues prises en charge par lettre}%
%    \end{macrocode}
% Le code suivant consiste à définir \cs{lettre@\#1@alias@of} comme \texttt{\#1}, de sorte que la langue
% \texttt{\#1} soit dorénavant considérée comme prise en charge.
%    \begin{macrocode}
       \def\@tempb##1{\toks0{\def##1{#1}}}%
       \expandafter\@tempb\csname lettre@#1@alias@of\endcsname
       \def\@tempa{#1}%
     }{%
       \lettre@lang@not@supportedfalse
       \toks0{}%
       \expandafter\let\expandafter\@tempa\csname lettre@#1@alias@of\endcsname
     }%
     \edef\@tempc{\lettre@ldf@filename{\@tempa}}%
     \IfFileExists{\@tempc}{%
       \iflettre@lang@not@supported
         \l@@info{Un fichier `\@tempc' ne faisant pas partie de lettre a 'et'e
           trouv'e, et va etre charg'e.}%
       \fi
       \ifcsundef{\lettre@ldf@version{\@tempa}}{%
         \edef\@tempa{%
           \noexpand\l@@info{Chargement du fichier de definition de langue `\@tempc'}%
           \noexpand\input{\@tempc}%
           \the\toks0
         }}{\edef\@tempa{\the\toks0}}%
     }{%
       \let\@tempa\@empty
     }
     \expandafter
  }\@tempa
}%
%    \end{macrocode}
% \DescribeMacro{\lettreselectlanguage} \cs{lettreselectlanguage} Sélectionne la langue à la fois pour le
% paquetage de gestion de langue (césure, environnements liste, etc\ldots) en appelant
% \cs{lettrelmpselectlanguage} et pour la présentation de la lettre (étiquettes, disposition signature) en
% appelant \cs{lettrelabelselectlanguage}. L'ordre d'appel est important, parce que certains paquetages de
% gestion de langue redéfinissent certaines des macros de l'environnement \texttt{letter}. Notamment pour le
% romand avec le paquetage de gestion de langue \texttt{french}, ce dernier définit \cs{enclname} (l'étiquette
% introduisant la pièce jointe) comme \texttt{P. j.~:}, c-à-d.\ à la française, au lieu de le définir comme
% \texttt{Ann.~:}, c-à-d.\ à la romande, ce que fait \texttt{lettre}.
%    \begin{macrocode}
\newcommand*\lettreselectlanguage[1]{%
  \lettrelmpselectlanguage{#1}%
  \lettrelabelselectlanguage{#1}%
}%
%    \end{macrocode}
% \begin{macro}{\lettre@babel@selectlanguage}La macro \cs{lettre@babel@selectlanguage} est une émulation de
%   la macro \cs{selectlanguage} quand le paquetage \texttt{babel} est chargé. Le but est de faire un
%   traitement particulier pour le cas \texttt{german}.
%    \begin{macrocode}
\newcommand*\lettre@babel@selectlanguage[1]{%
  \ifcsdef{lettre@babel@#1}{\csname lettre@babel@#1\endcsname}{\selectlanguage{#1}}%
}%
%    \end{macrocode}
% Le traitement particulier pour \texttt{german} est effectué par \cs{lettre@babel@german}, et c'est le
% suivant :
% \begin{itemize}
% \item si \texttt{babel} a chargé \texttt{ngerman}, ce que l'on teste avec
%   \cs{ifcsdef}\texttt{\{ver@ngerman.ldf\}\ldots}, alors on appelle \cs{selectlanguage}\texttt{\{ngerman\}},
% \item sinon, on appelle \cs{selectlanguage}\texttt{\{german\}}
% \end{itemize}
% 
%    \begin{macrocode}
\newcommand*\lettre@babel@german{%
  \ifcsdef{ver@ngerman.ldf}{\selectlanguage{ngerman}}%
    {\selectlanguage{german}}%
}
%    \end{macrocode}
% \end{macro}
% \begin{macro}{\lettre@efrench@selectlanguage} La macro \cs{lettre@efrench@selectlanguage} est une émulation de la
% macro \cs{selectlanguage} quand le paquetage \texttt{french} est chargé.
%    \begin{macrocode}
\newcommand*\lettre@efrench@selectlanguage[1]{%
  \ifx\undefined\frenchname
    \l@@warning@strictable{L'un des paquetages mlp ou french n'a pas 'et'e
      charg'e correctement}%
  \else
%    \end{macrocode}
% Préparation d'un avertissement, au cas où \texttt{\#1} ne serait pas l'une des langues prises en charge par \texttt{mlp}.
%    \begin{macrocode}
    \def\@tempb{\l@@warning@strictable{La langue  `#1' n'est pas dans
      \string{french, german, english\string} qui sont les trois seules
       langues que lettre peut demander `a mlp}}%
    \def\@tempc{#1}%
    \def\lettre@iterate@body##1{%
      \def\@tempd{##1}%
      \ifx\@tempc\@tempd
%    \end{macrocode}
% Suppression de l'avertissement, car \texttt{\#1} est bien l'une des langues prises en charge par \texttt{mlp}.
%    \begin{macrocode}
         \let\@tempb\@empty
%    \end{macrocode}
% Ici on sélectionne la langue avec une macro enveloppante de la commande correspondante de \texttt{mlp}.
%    \begin{macrocode}
        \l@@info{Selection de la langue `#1' dans le paquetage french ou
          mlp d'efrench}%
        \csname lettre@efr@#1\endcsname
%    \end{macrocode}
% Le \cs{@tempc} permet de casser la boucle en gobant le \cs{lettre@iterate} qui suit, ainsi que ses arguments restants.
%    \begin{macrocode}
        \def\@tempc####1\@nil,{}%
        \expandafter\@tempc
      \fi
    }%
    \lettre@iterate french,english,german,\@nil,%
    \@tempb
  \fi
}%
%    \end{macrocode}
% \end{macro}
% Définition des macros enveloppantes des langues prises en charge par \texttt{mlp}. 
%
% \DescribeMacro{\lettre@efr@german} Pour \texttt{german}, on fait en sorte que l'allemand moderne (le seul
% utilisé par \texttt{babel}) l'emporte sur le vieil allemand.
%    \begin{macrocode}
\newcommand*\lettre@efr@german{%
  \ifx\undefined\ngermanTeXmods
    \ifx\undefined\germanTeXmods
      \l@@warning@strictable{Ni \protect\german\space ni \protect\ngerman\space
        ne sont d'efinis !}
    \else
      \german
     \fi
  \else
     \ngerman
  \fi
}
%    \end{macrocode}
% \begin{macro}{\lettre@efr@french}Pour \cs{french} il faut prendre deux précautions avant d'appeler la
%   macro.
%   \begin{itemize}
%   \item La première est qu'appeler \cs{french} alors qu'on est déjà en français cause une erreur. Pour
%     éviter cela, on fait le test \cs{ifFrench}.
%   \item La seconde est que si on appelle \cs{lettre@efr@french} dans le \cs{AtBeginDocument}, alors
%     \cs{french} ne sera pas encore défini. Donc on teste que \cs{french} est défini avant de rappeler
%     \cs{lettre@efr@french} avec une nouvelle définition <<\verb+\ifFrench\else\french\fi+>>.
%   \end{itemize}
%   
%    \begin{macrocode}
\newcommand*\lettre@efr@french{\ifcsdef{french}{%
    \def\lettre@efr@french{\ifFrench\else\french\fi}\lettre@efr@french
  }{\l@@warning@strictable{La commande \protect\french\space n'est pas
      d'efinie.}}}
%    \end{macrocode}
% \end{macro}
% \begin{macro}{\lettre@efr@english}Pour \cs{english}, le wrapper ne fait qu'appeler la macro \cs{english}
%   correspondante du paquetage \texttt{mlp} ou \texttt{french}.
%    \begin{macrocode}
\newcommand*\lettre@efr@english{\english}
%    \end{macrocode}
% \end{macro}
% Définitions des macros telles que \cs{francais}, \cs{anglais}, etc\ldots
%    \begin{macrocode}
\def\@tempa#1{%
  \expandafter\newcommand\expandafter*\csname #1\endcsname{%
    {%
      \def\@tempa{#1}%
      \ifx\lettre@mainlang\@tempa\else\l@@info{Langage modifie: #1}\fi
    }%
    \lettreselectlanguage{#1}%
  }%
}%
\@tempa{romand}%
\@tempa{francais}%
\@tempa{allemand}%
\@tempa{anglais}%
\@tempa{americain}%
%    \end{macrocode}
% Crochet \cs{begin\{document\}}~:
%    \begin{macrocode}
\AtBeginDocument{%
  \makeatletter
  \@input{\jobname.tns}%
  \@input{\jobname.odt}%
  \begingroup\@floatplacement\@dblfloatplacement
  \immediate\openout\@tensionaux=\jobname.tns%
  \if@origdate
    \immediate\openout\@dateaux=\jobname.odt%
  \fi
  \endgroup
%    \end{macrocode}
% Pour écrire \og\cs{startlabels}\fg\ sur le fichier \verb+.etq+ et exécuter \cs{@startlabels}.
%    \begin{macrocode}
  \if@etiq
    \immediate\openout\@etiqaux=\jobname.etq%
    \immediate\write\@etiqaux{\string\startlabels}%
    \@startlabels
  \fi
%    \end{macrocode}
% On ouvre un groupe pour pouvoir bidouiller des définitions locales comme \cs{toks0}, etc.
%    \begin{macrocode}
    {%
%    \end{macrocode}
% On met dans \cs{@tempa} un traitement systématique à faire pour tout paquetage de gestion de langue chargé. En
% l'occurrence on désactive la rédéfinition des environnements \texttt{itemize} et consorts par
% \texttt{lettre} si un tel paquetage est chargé et qu'on n'a pas explicitement \texttt{keep envs=false}.
%    \begin{macrocode}
      \def\@tempa{%
        \ifnum\lettre@keep@envs=0 %
          \lettre@keep@envs=1 %
        \fi
      }%
%    \end{macrocode}
% Maintenant, redéfinition de la macro \cs{lettre@lmp@selectlanguage} selon le paquetage de gestion de
% langue\footnote{\emph{lmp} dans le nom de la macro veut dire \og Language Managagement Package\fg, c-à-d.\
% \og Paquetage de Gestion de Lange\fg.} utilisé. On va faire une boucle qui va scruter une liste
% d'association dont chaque élément sera de la forme \meta{paquetage}\texttt{:}\meta{cas}, où \meta{cas} est
% un nombre.\newline Tout d'abord on définit le traitement à appliquer à chacun des cas et on le place dans le
% registre \cs{toks}\meta{cas}. Premier cas possible, c.-à-d.\ $\meta{cas}=0$, c'est le cas par défaut où on
% ne trouve aucun \meta{paquetage} de gestion de langue, alors on ne fait rien, c'est à dire qu'on reste sur
% la définition par défaut de \cs{lettre@lmp@selectlanguage}.\\
% Mais encore, toujours dans ce $\meta{cas}=0$, c'est à dire dans le cas où l'on n'a détecté le chargement
% d'aucun paquetage de gestion de langue, si \cs{lettre@keep@envs} est à 0, c'est que de surcroît l'option
% \texttt{keep envs=true} n'a pas été donnée, alors on fait comme si on avait eu l'option \texttt{keep
% envs=false}, c'est à dire que \texttt{lettre} redéfinit les environnemnts \texttt{itemize} et consorts selon
% la langue~:
%    \begin{macrocode}
    \toks0{%
      \ifnum\lettre@keep@envs=0 %
	\lettre@keep@envs=2 %
      \fi
    }%
%    \end{macrocode}
% Deuxième cas possible, c.-à-d.\ $\meta{cas}=1$, on trouve un paquetage de gestion de langue qui fournit la
% macro \cs{selectlanguage}, alors \cs{lettre@lmp@selectlanguage} appelle \cs{selectlanguage} --- à noter que
% dans chaque cas on développe le traitement par défaut défini dans \cs{@tempa}~:
%    \begin{macrocode}
    \toks1\expandafter{\@tempa
      \def\lettre@lmp@selectlanguage#1{\selectlanguage{#1}}}%
%    \end{macrocode}
% Troisième cas possible, c.-à-d.\ $\meta{cas}=2$, le paquetage de gestion de langue fait partie
% d'\texttt{e-french}, on utilise \cs{lettre@efrench@selectlanguage} qui fait les traitements ad-hoc pour ce
% cas :
%    \begin{macrocode}
    \toks2\expandafter{\@tempa
      \let\lettre@lmp@selectlanguage\lettre@efrench@selectlanguage}%
%    \end{macrocode}
% Quatrième cas possible, c.-à-d.\ $\meta{cas}=3$, le paquetage de gestion de langue fait partie
% de \texttt{babel}, on utilise \cs{lettre@babel@selectlanguage} qui fait les traitements ad-hoc pour ce
% cas :
%    \begin{macrocode}
    \toks3\expandafter{\@tempa
      \let\lettre@lmp@selectlanguage\lettre@babel@selectlanguage}%
%    \end{macrocode}
% Le \meta{cas} sélectionné va être mis dans \cs{count}\texttt{0}, par défaut on initialise au premier cas :
%    \begin{macrocode}
    \count0=0 %
%    \end{macrocode}
% Et maintenant on se fait un macro \cs{@tempb} qui va analyser chaque élément de la liste d'association,
% c'est à dire qui va pour chaque \meta{paquetage} \texttt{\#1} testé, si ce paquetage est chargé sélectionner
% le bon \meta{cas} \texttt{\#2} :
%    \begin{macrocode}
  \def\lettre@iterate@body#1{\@tempb#1\@nil}%
  \def\@tempb#1:#2\@nil{%
    \@ifpackageloaded{#1}{%
      \l@@info{Le paquetage `#1' est charg'e}%
      \count0=#2 %
%    \end{macrocode}
% On redéfinit \cs{lettre@iterate} pour casser la boucle de scrutation de la liste d'association, de toute
% façon on est au sein d'un groupe, donc l'effet de cette re-définition est local :
%    \begin{macrocode}
      \def\lettre@iterate##1\@nil,{}%
    }{%
      \l@@info{Le paquetage `#1' n'est pas charg'e}%
    }%
  }%
%    \end{macrocode}
% Et voici la boucle elle-même, avec pour chaque paquetage le cas correspondant :
%    \begin{macrocode}
  \l@@info{Scrutation des paquetages de gestion de langue}%
  \lettre@iterate%
    babel:3,%
    polyglossia:1,%
    french:2,%
    mlp:2,%
    \@nil,%
%    \end{macrocode}
% Il n'y a plus qu'à appliquer le traitement correspondant au cas sélectionné :
%    \begin{macrocode}
  \expandafter
  }\the\toks\count0 %
  \makeatother
%    \end{macrocode}
% Fin du \cs{AtBeginDocument}.
%    \begin{macrocode}
}%
%    \end{macrocode}
% Crochet \cs{end\{document\}} pour sortir la page d'étiquettes, si nécessaire.
%    \begin{macrocode}
\AtEndDocument{%
  \l@@info{Nombre de lettres :\the\c@lettre}%
  \l@@info{Nombre de telefax :\the\c@telefax}%
  \newpage\begingroup 
  \immediate\closeout\@tensionaux%
  \if@origdate
    \immediate\closeout\@dateaux%
  \fi
  \if@letter
    \if@etiq 
      \immediate\closeout\@etiqaux%
      \makeatletter
      \@input{\jobname.etq}%
      \makeatother
      \clearpage
    \fi
  \else
    \immediate\closeout\@faxaux%
  \fi
  \endgroup
}%
%    \end{macrocode}
%
%\subsubsection{Styles de page}
%
%    \begin{macrocode}
\def\@texttop{\ifnum\c@page=1\vskip 0pt plus .00001fil\relax\fi}%
%    \end{macrocode}
%
%    \begin{macrocode}
\if@twoside
  \def\ps@headings{%
    \headheight 12pt%
    \headsep 25pt%
    \def\@oddhead{{\hspace{15mm}\ifx\@empty\fromlieu\else\fromlieu , \fi
                                  \pdate\hfill Page \thepage}}%
    \def\@oddfoot{}%
    \def\@evenhead{{Page \thepage\hfill\ifx\@empty\fromlieu\else\fromlieu , \fi
                                  \pdate\hspace{15mm}}}%
    \def\@evenfoot{}}%
\else
  \def\ps@headings{%
    \headheight 12pt%
    \headsep 25pt%
    \def\@oddhead{{\hspace{15mm}\ifx\@empty\fromlieu\else\fromlieu , \fi
                                  \pdate\hfill Page \thepage}}%
    \def\@oddfoot{}%
    \def\@evenhead{}%
    \def\@evenfoot{}}%
\fi
%    \end{macrocode}
% \DescribeMacro{\ps@empty}
%    \begin{macrocode}
\def\ps@empty{%
   \headheight 0pt%
   \headsep 9pt%
   \def\@oddhead{}%
   \def\@oddfoot{%
       \ifnum\c@page=1\relax
          \ifx\@empty\emailflag
             \ifx\@empty\bdp
             \else
                \hbadness=10000\relax
                \rlap{\parbox{\textwidth}{\mbox{}\\\rule{\textwidth}{.4pt}\\\bdp}}
                ~\hfill~
                \hbadness=1000\relax
             \fi
          \else
             \hbadness=10000\relax
             \rlap{\parbox{\textwidth}{\mbox{}\\\rule{\textwidth}{.4pt}\\\emailine}}%
             ~\hfill~
             \hbadness=1000\relax
          \fi
       \fi}%
   \def\@evenhead{}%
   \def\@evenfoot{}}%
%    \end{macrocode}
% \DescribeMacro{\ps@firstpage}
%    \begin{macrocode}
\def\ps@firstpage{%
   \headheight 12pt%
   \headsep 25pt%
   \def\@oddhead{}%
   \def\@oddfoot{}%
   \def\@evenhead{}%
   \def\@evenfoot{}}%
%    \end{macrocode}
% \DescribeMacro{\ps@plain}
%    \begin{macrocode}
\def\ps@plain{%
   \headheight 0pt%
   \headsep 9pt%
   \def\@oddhead{}%
   \def\@oddfoot{\textrm{\hfill\thepage\hfill}}%
   \def\@evenhead{}%
   \def\@evenfoot{\textrm{\hfill\thepage\hfill}}}%
%    \end{macrocode}
%
%\subsubsection{\texttt{center} et \texttt{flushleft}}
%
%    \begin{macrocode}
\def\normalcenter{\trivlist \normalcentering\item[]}%
\def\lettercenter{\trivlist \lettercentering\item[]}%
\def\normalcentering{\let\\=\@centercr\rightskip\@flushglue
                     \leftskip\@flushglue
                     \parindent\z@\parfillskip\z@}%
\def\lettercentering{\let\\=\@centercr\rightskip\@flushglue
                     \leftskip\@flushglue
                     \parindent\z@\parfillskip\z@}%
\let\endcenter=\endtrivlist
%    \end{macrocode}
% \DescribeMacro{\normalflushleft}
%    \begin{macrocode}
\def\normalflushleft{\trivlist \normalraggedright\item[]}%
\def\letterflushleft{\trivlist \letterraggedright\item[]}%
\def\normalraggedright{\let\\=\@centercr\leftskip\z@
                       \@rightskip\@flushglue\rightskip\@rightskip
                       \parindent\z@}%
\def\letterraggedright{\let\\=\@centercr\leftskip\z@
                       \@rightskip\@flushglue\rightskip\@rightskip
                       \parindent\z@}%
\let\endflushleft=\endtrivlist
%    \end{macrocode}
%
%\subsubsection{Listes}
%
% \DescribeMacro{\lettre@store@orig@envs}Tout d'abord on définit \cs{lettre@store@orig@envs} qui prend note de
% l'environnement \texttt{itemize} d'origine fourni par \LaTeX, et qui sera appelé \cs{AtBeginDocument}, et
% immédiatement après chaque changement de langue effectué par le paquetage de gestion de langue.
%    \begin{macrocode}
\newcommand*{\lettre@store@orig@envs}{%
\let\lettre@orig@itemize\itemize
\let\lettre@orig@enditemize\enditemize
}%
\AtBeginDocument{\lettre@store@orig@envs}%
%    \end{macrocode}
% \DescribeMacro{\lettre@restore@orig@envs}La macro \cs{lettre@restore@orig@envs} permet de restaurer les
% environnments \LaTeX\ que \texttt{lettre} redéfinit selon la langue. Notamment l'environnement
% \texttt{itemize} redéfini en français.
%    \begin{macrocode}
\newcommand*{\lettre@restore@orig@envs}{%
\let\itemize\lettre@orig@itemize
\let\enditemize\lettre@orig@enditemize}%
%    \end{macrocode}
% \DescribeMacro{\reset@frenchitemize}La macro \cs{reset@frenchitemize} est obsolète, appelez plutôt
% \cs{lettre@set@french@envs} définie dans \texttt{lettre-french.ldf}.
%    \begin{macrocode}
\newcommand*{\reset@frenchitemize}{\l@@warning@strictable
  {\protect\reset@frenchitemize\space est obsolete, utilisez
   plutot \protect\lettre@set@french@envs}\lettre@set@french@envs}
%    \end{macrocode}
%
%    \begin{macrocode}
\rightmargin   25mm%
\advance\rightmargin   5pt%
\leftmargini   1.5em%
\leftmarginii  2.2em%
\leftmarginiii 1.87em%
\leftmarginiv  1.7em%
\leftmarginv   1em%
\leftmarginvi  1em%
\labelsep 5pt%
\parsep 0pt%
\def\@listi{\leftmargin\leftmargini\labelwidth\leftmargin
   \advance\labelwidth-\labelsep}%
\def\@listii{\leftmargin\leftmarginii
   \labelwidth\leftmarginii\advance\labelwidth-\labelsep}%
\def\@listiii{\leftmargin\leftmarginiii
    \labelwidth\leftmarginiii\advance\labelwidth-\labelsep
    \topsep .1em% 
    \itemsep \topsep}%
\def\@listiv{\leftmargin\leftmarginiv
     \labelwidth\leftmarginiv\advance\labelwidth-\labelsep}%
\def\@listv{\leftmargin\leftmarginv
     \labelwidth\leftmarginv\advance\labelwidth-\labelsep}%
\def\@listvi{\leftmargin\leftmarginvi
     \labelwidth\leftmarginvi\advance\labelwidth-\labelsep}%
%    \end{macrocode}
%
%    \begin{macrocode}
\def\labelitemi{$\bullet$}%
\def\labelitemii{\bfseries --}%
\def\labelitemiii{$\ast$}%
\def\labelitemiv{$\cdot$}%
%    \end{macrocode}
%
%    \begin{macrocode}
\def\labelenumi{\arabic{enumi}.}%
\def\theenumi{\arabic{enumi}}%     
\def\labelenumii{(\alph{enumii})}%
\def\theenumii{\alph{enumii}}%
\def\p@enumii{\theenumi}%
\def\labelenumiii{\roman{enumiii}.}%
\def\theenumiii{\roman{enumiii}}%
\def\p@enumiii{\theenumi(\theenumii)}%
\def\labelenumiv{\Alph{enumiv}.}%
\def\theenumiv{\Alph{enumiv}}%
\def\p@enumiv{\p@enumiii\theenumiii}%
%    \end{macrocode}
% \DescribeEnv{verse}
%    \begin{macrocode}
\def\verse{\let\\=\@centercr  
  \list{}{\itemsep\z@ \itemindent -15pt\listparindent \itemindent 
          \rightmargin\leftmargin\advance\leftmargin 15pt}\item[]}%
\let\endverse\endlist
%    \end{macrocode}
% \DescribeEnv{quotation}
%    \begin{macrocode}
\def\quotation{\list{}{\listparindent 1.5em%
    \itemindent\listparindent
    \rightmargin\leftmargin}\item[]}%
\let\endquotation=\endlist
%    \end{macrocode}
% \DescribeEnv{quote}
%    \begin{macrocode}
\def\quote{\list{}{\rightmargin\leftmargin}\item[]}%
\let\endquote=\endlist
%    \end{macrocode}
% \DescribeMacro{\descriptionlabel}Format des étiquettes de listes de type \texttt{description}.
% \changes{3.001}{2020-02-25}{Étiquettes de liste \texttt{description} en gras.}
%    \begin{macrocode}
\def\descriptionlabel#1{\bfseries #1}%
%    \end{macrocode}
% \DescribeEnv{description}
%    \begin{macrocode}
\def\description{\list{}{\advance\leftmargin by 5.75em
       \labelwidth\leftmargin \advance\labelwidth -\labelsep 
       \let\makelabel\descriptionlabel}}%
\let\enddescription\endlist
%    \end{macrocode}
%
%\subsubsection{Divers}
%
%    \begin{macrocode}
\def\@begintheorem#1#2{\itshape \trivlist \item[\hskip \labelsep{\bfseries #1\ #2}]}%
\def\@endtheorem{\endtrivlist}%
%    \end{macrocode}
% \DescribeMacro{\theequation}
%    \begin{macrocode}
\def\theequation{\arabic{equation}}%
%    \end{macrocode}
%
%    \begin{macrocode}
\arraycolsep 5pt%
\tabcolsep 5pt%
\arrayrulewidth .4pt%
\doublerulesep 2pt%
\tabbingsep\labelsep
\skip\@mpfootins=\skip\footins
%    \end{macrocode}
% Espace laissé entre la boîte et le texte par \cs{fbox} et \cs{framebox}.
%    \begin{macrocode}
\fboxsep = 3pt
%    \end{macrocode}
% Épaisseur des filets faits par \cs{fbox} et \cs{framebox}.
%    \begin{macrocode}
\fboxrule = .4pt
%    \end{macrocode}
%\changes{3.000}{2015-12-20}{Ajout \cs{today} nécessaire à \texttt{e-french}.}%
%    \begin{macrocode}
\newcommand*\today{\cejour}
%    \end{macrocode}
%
%\subsubsection{Notes en bas de page}
%
%    \begin{macrocode}
\def\footnoterule{\kern-1\p@   
  \hrule width .4\columnwidth 
  \kern .6\p@}%
%    \end{macrocode}
% \DescribeMacro{\@makefntext}
%    \begin{macrocode}
\long\def\@makefntext#1{\parindent 1em\noindent
            \hb@xt@1.8em{%
                \hss\@textsuperscript{\normalfont\@thefnmark}}#1}%
%    \end{macrocode}
%
%\subsection{Initialisations}
%\subsubsection{Initialisation des valeurs par défauts}
%
%    \begin{macrocode}
\def\pict@let@width{185}%
\def\pict@let@height{65}%
\def\pict@let@hoffset{0}%
\def\pict@let@voffset{0}%
\def\rule@hpos{-25}%
\def\rule@vpos{-15}%
\def\rule@length{10}%
\def\fromaddress@let@hpos{-10}%
\def\fromaddress@let@vpos{70}%
\fromaddress@let@width=69mm
\def\fromlieu@let@hpos{90}%
\def\fromlieu@let@vpos{62}%
\fromlieu@let@width=69mm
\def\toaddress@let@hpos{90}%
\def\toaddress@let@vpos{40}%
\toaddress@let@width=80mm
%    \end{macrocode}
%
%    \begin{macrocode}
\def\pict@fax@width{185}%
\def\pict@fax@height{30}%
\def\pict@fax@hoffset{0}%
\def\pict@fax@voffset{0}%
\def\fromaddress@fax@hpos{-10}%
\def\fromaddress@fax@vpos{30}%
\fromaddress@fax@width=69mm
\def\faxstring@hpos{90}%
\def\faxstring@vpos{20}%
\faxstring@width=69mm%
\faxbox@width=170mm%
\toaddress@fax@width=69mm%
\fromname@fax@width=69mm%
%    \end{macrocode}
%\changes{2.354}{2014-10-21}{Ajout \cs{lettre@vref@width} et \cs{lettre@nref@width}}%
%    \begin{macrocode}
\lettre@vref@width=21mm%
\lettre@nref@width=21mm%
%    \end{macrocode}
% \DescribeMacro{\lettre@input@institut}Définition par défaut de \cs{lettre@input@institut}, cette définition
% peut être changée par l'appel à \cs{institut}.
% \changes{3.000}{2015-10-30}{Nom fichier institut par défaut en
% \texttt{lettre-default.cfg}}
%    \begin{macrocode}
\def\lettre@input@institut{\makeatletter
         \input{lettre-default.cfg}%
         \makeatother}%
%    \end{macrocode}
%
%    \begin{macrocode}
\smallskipamount=.5\parskip
\medskipamount=\parskip
\bigskipamount=2\parskip
%    \end{macrocode}
%
%    \begin{macrocode}
\ps@plain
\pagenumbering{arabic}%
\raggedbottom
\onecolumn
%    \end{macrocode}
% \subsubsection{Initialisations des variables de la lettre}
%    \begin{macrocode}
\def\pdate{\cejour}%
%    \end{macrocode}
%    \begin{macrocode}
\def\emailnum{}%
%    \end{macrocode}
%    \begin{macrocode}
\def\fromlocation{}%
\signum=0\relax
\def\fromsig{}%
\def\fromssig{}%
\def\fromtsig{}%
%    \end{macrocode}
% Langue française par défaut, si rien d'autre n'a été demandé.
%    \begin{macrocode}
\ifx\lettre@mainlang\@empty
   \def\lettre@mainlang{francais}%
   \lettreloadlang{french}%
\fi
%    \end{macrocode}
% Sélection de la langue principale au début du document.
%    \begin{macrocode}
{%
  \edef\@tempa{%
    \noexpand\AtBeginDocument{%
      \noexpand\lettreselectlanguage{\lettre@mainlang}%
      \noexpand\l@@info{Langage par defaut: \lettre@mainlang}}%
  }%
\expandafter}\@tempa
%    \end{macrocode}
%    \begin{macrocode}
\def\concdecl{}%
\marge{15mm}%
\msigwidth=\letterwidth
\ssigindent=0.5\letterwidth
\ssigwidth=\letterwidth
  \advance\ssigwidth by -\ssigindent
  \advance\ssigwidth by -5pt
\sigspace=1.5cm
\openingspace=1cm
\openingindent=0pt
%    \end{macrocode}
%    \begin{macrocode}
\@lettertrue        
\faxpage=0\relax
\def\totalpages{}%
%    \end{macrocode}
%    \begin{macrocode}
\def\auxflag{}%
\auxcount=0\relax
%    \end{macrocode}
% \changes{2.354}{2014-10-21}{Un argument vide à \cs{Vref} ou \cs{Nref} supprime la référence}%
%    \begin{macrocode}
\let\toref\space
\let\fromref\space
\def\telexnum{}%
\def\ccpnum{}%
%    \end{macrocode}
%    \begin{macrocode}
\def\emailflag{}%
\emailcount=0\relax
\def\@username{}%
\def\ccittnum{}%
\def\internetnum{}%
\def\bitnetnum{}%
\def\telepacnum{}%
\def\decnetnum{}%
%    \end{macrocode}
%    \begin{macrocode}
\def\bdp{}%
\endinput
%    \end{macrocode}
%^^A End of file `lettre.cls'.
\iffalse Local Variables: \fi
\iffalse mode: DocTeX\fi
\iffalse ispell-dictionary: "francais"\fi
\iffalse End: \fi