%
% jgletter.cls
%
% Jörgen Grahn 1995-02-06
%
% based on mathletter.cls by ekolin,
% which is only changed here and. 
% The altered code follows below (with all comments and
% stuff unchanged):

%% File: mathletter.cls  based on mathletter.sty from <94/03/14> v 1.497
%% Author: Gunnar Ekolin <ekolin@math.chalmers.se>
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Revision history
%%
%% 94/08/31 Added the 'english' option to be compatible with previous.
%% 94/08/29 \document is now define by LaTeX.dtx and thus handles the aux
%%          file in an appropriate way. Removed the redefinition of
%%          \document and \enddocument. Changed \endletter to use the
%%          new intenal name \@mlabel (for mlabel). The centring of a
%%          letter via \hoffset is moved to the page layout section in
%%          a \AtBeginDocument clause.
%% 94/07/26 First crude attempt to convert .sty to .cls
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\NeedsTeXFormat{LaTeX2e}
\ProvidesClass{jgletter}[1995/03/11 Personal letterformat for Jorgen Grahn]
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Option handling
\DeclareOption{svenska}{\AtEndOfClass{\selectlanguage{swedish}}}
\DeclareOption{english}{\AtEndOfClass{\selectlanguage{english}}}
\DeclareOption{swedish}{\AtEndOfClass{\selectlanguage{swedish}}}
%%
\DeclareOption{a4}{\typeout{\@spaces ****^^J%
\@spaces Style option 'a4' ignored.^^J%
\@spaces The page layout in `mathletter` is for A4 paper.^^J%
\@spaces ****}} 
%%
\DeclareOption{a4wide}{\typeout{\@spaces ****^^J%
\@spaces Style option 'a4wide' ignored.^^J%
\@spaces The page layout in `mathletter` is for A4 paper.^^J%
\@spaces To get wider text change the value of \string\textwidth,^^J%
\@spaces see the Local Guide for more details on this.^^J%
\@spaces ****}} 
%% Default action for unknown options:
\DeclareOption*{\PassOptionsToClass{\CurrentOption}{letter}}
%%
\ProcessOptions
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Read in the base document-style
\LoadClass[a4paper]{letter}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% This class requires babel-system.
\RequirePackage[swedish,english]{babel}
\RequirePackage{svenska}
\selectlanguage{english}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Define macros for non-standard text strings used by this format
%%
\newcommand{\CompanyName}{\iflanguage{swedish}{F\"oretag}{Company}}
\newcommand{\DateName}{\iflanguage{swedish}{Datum}{Date }}
\newcommand{\DepartmentName}{\iflanguage{swedish}{Avdelning}{Department}}
\newcommand{\EmailName}{Email}
\newcommand{\FaxHeadTitleName}{\iflanguage{swedish}
             {TELEFAX MEDDELANDE}{TELEFAX MESSAGE}}
\newcommand{\FromName}{\iflanguage{swedish}{Från}{From}}
\newcommand{\NameName}{\iflanguage{swedish}{Namn}{Name}}
\newcommand{\PostalAddressName}{\iflanguage{swedish}
             {Postadress}{Postal Address}}
\newcommand{\TelefaxName}{Telefax}
\newcommand{\TelephoneName}{\iflanguage{swedish}{Telefon}{Telephone}}
%%
%% The following standard strings defined by babel-system e.g.
%% swedish.sty are also used: \enclname, \ccname, \headtoname,
%% \pagename. 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Page layout (A4) with big header and footer.
%%%%%%%%%%%%%%%%%%%%%%%%%
%%% New dimension for width of head and foot
\newdimen\headwidth
\newdimen\footheight  %% This dimen was deleted in LaTeX2e !
%%%%%%%%%%%%%%%%%%%%%%%%%
\oddsidemargin  0.5cm   % was 53pt 
\evensidemargin 0.5cm   % was 53pt 
\marginparwidth 48pt    % was 90pt 
\marginparsep   11pt 
\marginparpush  5pt 
\topmargin      -1.4cm  % was 27pt 
\headheight     20.1mm  % was 12pt 
\headsep        10pt    % was 45pt 
\footheight     1.6cm   % was 12pt
\footskip       1.7cm   % was 25pt 
\textheight     225mm   % was 21.5cm    % was 505pt 
\textwidth      14.0cm  % was 365pt 
\headwidth      17.0cm
\columnsep      10pt
\columnseprule  0pt 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% We want the letter to be centere on the page. This is accomplished
%% by computing an appropriate value for \hoffset
\AtBeginDocument{%
  \@tempdima210mm\relax% A4-paper-width
  \advance\@tempdima -\textwidth
  \advance\@tempdima -2\marginparwidth
  \divide\@tempdima\tw@
  \advance\@tempdima -13mm\relax
  \global\hoffset=\@tempdima
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% User commands for defining sender data like phonenumber, name etc.
%%
\renewcommand{\address}[1]{\renewcommand{\From@Address}{#1}}
  \newcommand{\From@Address}{}
\renewcommand{\date}[1]{\renewcommand{\Letter@Date}{#1}}
  \newcommand{\Letter@Date}{\today}
\newcommand{\email}[1]{\renewcommand{\From@Email}{#1}}
  \newcommand{\From@Email}{}
%\renewcommand{\location}[1]{\renewcommand{\From@Location}{#1}}
%  \newcommand{\From@Location}{}
\renewcommand{\name}[1]{\renewcommand{\From@Name}{#1}}
  \newcommand{\From@Name}{}
\newcommand{\organization}[1]{\Fax@split@arg{\leavevmode\ignorespaces#1}
                                  {\@orglinea}{\@orglineb}{\@orglinec}\nologo}
  \newcommand{\@orglinea}{}
  \newcommand{\@orglineb}{}
  \newcommand{\@orglinec}{}
\renewcommand{\signature}[1]{\renewcommand{\From@Signature}{#1}}
  \newcommand{\From@Signature}{}
\newcommand{\telefax}[1]{\renewcommand{\From@FaxNumber}{#1}}
  \newcommand{\From@FaxNumber}{}
\renewcommand{\telephone}[1]{\renewcommand{\From@PhoneNumber}{#1}}
  \newcommand{\From@PhoneNumber}{}
\renewcommand{\title}[1]{\renewcommand{\From@Title}{#1}}
  \newcommand{\From@Title}{}

%%%%%% Commands only allowed in the preamble %%%%%%
{\def\do{\noexpand\do\noexpand}
\xdef\@preamblecmds{\@preamblecmds \do\name \do\date \do\address 
                    \do\telephone  \do\telefax \do\email \do\makelabels}
}
%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% The command \startlabels is used to start formating of the
%% mail-labels. It is called by \enddocument. Here we set things up
%% for use of A4-paper printing 8 rows with 3 labels each per page.
%%
\def\startlabels{\labelcount\z@
  \pagestyle{empty}%
  \let\@texttop\relax
  \topmargin -44mm
  \headsep \z@
  \textheight 290mm
  \@colht\textheight  \@colroom\textheight \vsize\textheight
  \oddsidemargin -1in
  \let\evensidemargin=\oddsidemargin
  \marginparsep=\z@
  \marginparwidth=\z@
  \hoffset=\z@
  \textwidth 210mm
  \hsize\textwidth
  \columnsep 25\p@
  \ifcase \@ptsize\relax
    \normalsize
  \or
    \small
  \or
    \footnotesize
  \fi
  \baselineskip \z@
  \lineskip \z@
  \boxmaxdepth \z@
  \parindent \z@
  \rightskip 0pt plus 1fill
  \parfillskip 0pt
  \leavevmode}
%%%%%%%%%%%%%%%%%%%%%%%%%
%% And the \mlabel command that typsets the mail-label in a box with
%% of a size choosen such that three of them fits on each line an
%% eight lines per page.
\renewcommand{\mlabel}[2]{%
  \setbox0\hbox{\parbox[b]{63mm}{\strut\ignorespaces #2}\hfil}%
  \vbox to 36mm{\vss \hbox to 69mm{\hfill \box0}\vss}\penalty0\ignorespaces}
%% The \ignorespaces at the end of \mlabel is there to eliminates the
%% space-tokens generated by the new-line after for example
%% \newlabel-commands in the AUX-file.

%%%%%%% Flag for swedish / US-letter-head and foot %%%%%
%% The following is for compatibility with older versions of
%% cthletter, where the commands \swedishtrue, \swedishfalse and
%% \ifswedish where used to indicate if text in the letterhead/foot
%% should be in swedish or english.
%%
%% The command \swedishtrue activates the language 'swedish'. If this
%% language is not yeat defined try to input the sty-file
%% 'swedish.sty' to define it.
\def\swedishtrue{\@ifundefined{captionsswedish}
  {\input swedish.sty\relax}
  {\selectlanguage{swedish}}}
%%
%% The command \swedishfalse makes english the current language. If
%% the language 'english' is not yeat defined try to input the
%% sty-file 'english.sty' to define it.
\def\swedishfalse{\@ifundefined{captionsenglish}
  {\input english.sty\relax}
  {\selectlanguage{english}}}
%% 
%% Next we shall define the test \ifswedish used in user macros to
%% give alternative texts for swedish and english. For this we will
%% need two internal macros, assigning the language flagg,
%% \@ifswedish, the value \ifftrue respective \iffalse. 
\def\@ifswedishtrue{\xdef\@ifswedish{\noexpand\iftrue}}
%%
\def\@ifswedishfalse{\xdef\@ifswedish{\noexpand\iffalse}}
%%
%% The command \ifswedish firts tests if the language 'swedish' is
%% defined. If so, it checks if 'swedish' is the active language and
%% calls one of the commands \@ifswedishtrue, \@ifswedishfalse to give
%% \@ifswedish the correct value. Finnaly it executes \@ifswedish.
\def\ifswedish{\@ifundefined{l@swedish}
   {\@nolanerr{swedish}}
   {\ifnum \language=\expandafter\csname l@swedish\endcsname
       \@ifswedishtrue
    \else
       \@ifswedishfalse
    \fi
   }\@ifswedish
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Use babel system to determine language dependent strings etc.
%% Keep old names fo compatibility
\def\doc@style{0} % Default doc-style, this imply that babel.com only
                  % affects figure and table names.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% The letter environment
\renewcommand{\letter}[1]{%
  %%%%%%%%%%%%%%%%%%%%%%%%%
  %% Parse to address
  \def\tempa{#1}
  \@IfEmpty{\tempa}{\def\toname{}\def\toaddress{}}{%
    \@processto{\leavevmode\ignorespaces #1}}%
  %%%%%%%%%%%%%%%%%%%%%%%%%%
  %% Start a new page (with number 1) using pagestyle firstpage
  \newpage
  \c@page\@ne
  \interlinepenalty=200
  \thispagestyle{firstpage}
  \null\vspace{0.3\parskip}%
  %% Print date
  {\raggedleft\Letter@Date\par}
  \vspace{\parskip}%
  %% Print to name and address
  \@IfEmpty{\toname}{}{%
     {\raggedright \toname \@IfEmpty{\toaddress}{}{\\ \toaddress} \par}%
     \vspace{\parskip}%
  }%
  %%%%%%%%%%%%%%%%%%%%%%%%%
  %% redefine the opening command to just print the opening
  \renewcommand{\opening}[1]{{##1\par\nobreak}}
  %% Redefine the closing command to calculate indentation correctly
  \renewcommand{\closing}[1]{\par\nobreak\vspace{\parskip}% 
    \stopbreaks
    \noindent
    %% Calculate indentation of signature (depends on current textwidth)
    \setlength{\longindentation}{0.3\hsize}%
    \setlength{\indentedwidth}{\hsize}%
    \addtolength{\indentedwidth}{-\longindentation}%
    \leavevmode\hskip\longindentation
    \parbox{\indentedwidth}{\raggedright
      \ignorespaces ##1\\[6\medskipamount]%% changed 20 Jan 88
      \@IfEmpty{\From@Signature}{\From@Name}{\From@Signature}\strut}%
      \par
  }
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% New endletter (centre letter on paper)
\renewcommand{\endletter}{%
  \stopletter\@@par\vfil\pagebreak\@@par
  \if@filesw
    \begingroup
      \let\\=\relax
      \def\protect##1{\string##1\space}%
      \iflanguage{swedish}{%
        \immediate\write\@auxout{\string\@mlabel{\returnaddress}{%
            \string\selectlanguage{swedish}\toname\\\toaddress}}%
      }{%
        \immediate\write\@auxout{\string\@mlabel{\returnaddress}{%
            \string\selectlanguage{english}\toname\\\toaddress}}%
      }%
    \endgroup
  \fi}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% \ExtraMailLabels is a command that you may use to produce some
%% extra labels. Maybee to fill one sheet of labels.
\newcommand{\ExtraMailLabel}[1]{%
  \begingroup
    \let\\=\relax
    \def\protect##1{\string##1\space}%
    \iflanguage{swedish}{%
      \immediate\write\@auxout{\string\@mlabel{}{\string
        \selectlanguage{swedish}\leavevmode\ignorespaces#1}}%
    }{%
      \immediate\write\@auxout{\string\@mlabel{}{\string
        \selectlanguage{english}\leavevmode\ignorespaces#1}}%
    }%
  \endgroup
}
\newcommand{\ExtraMailLabels}[1]{%
\typeout{\@spaces ****^^J%
\@spaces The command \string\ExtraMailLabels is a miss-spelling^^J%
\@spaces found in some versions of the manual. The correct name^^J%
\@spaces is \string\ExtraMailLabel.^^J%
\@spaces For more details see the local Guide to LaTeX, available^^J%
\@spaces at the unix prompt throug the command 'docpreview local'.^^J%
\@spaces ****}
\errhelp{Remove the trailing 's' from the command name.}%
\errmessage{mathletter: Miss-spelled command name}%
}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Special fonts for the header, footer and fax-message box. Depending
%% on the availability of NFSS we make different definitions.
\@ifundefined{DeclareFontShape}
  {% Not NFSS2
   \@ifundefined{selectfont}
     {%% Old font family selection. Note that we really should change the
      %% size of baselineskip etc too.
      \font\hugeheadfont=cmss17 at 17.0truept\relax
      \font\largeheadfont=cmss12 at 12.0truept\relax
      \font\mediumheadfont=cmss10 at 10.0truept\relax
      \font\smallheadfont=cmss8 at 8.0truept\relax
      \font\nameheadfont=cmr10 at 10.0truept\relax
      \newcommand{\@bf}{}%
      \newcommand{\@unbf}{}%
     }{% NFSS 1!
       %% Commmand to make next font choosen bold-extended (Using NFSS)
       \newcommand{\@bf}{\fontseries{bx}}%
       \newcommand{\@unbf}{\fontseries\default@series}%
       \def\hugeheadfont{\size\@xviipt{22pt}% 17pt with 22pt ledding
                     \fontfamily\sfdefault\fontshape\default@shape\selectfont}
       \def\largeheadfont{\size\@xiipt{14pt}% 12pt with 14pt ledding
                     \fontfamily\sfdefault\fontshape\default@shape\selectfont}
       \def\mediumheadfont{\size\@xpt{12pt}% 10pt with 12pt ledding
                      \fontfamily\sfdefault\fontshape\default@shape\selectfont}
       \def\smallheadfont{\size\@viiipt{9.5pt}% 8pt with 9.5pt ledding
                     \fontfamily\sfdefault\fontshape\default@shape\selectfont}
       \def\nameheadfont{\size\@xpt{12pt}% 10pt with 12pt ledding
                    \fontfamily\rmdefault\fontshape\default@shape\selectfont}
     }}
  {%NFSS2! 
      \newcommand{\@bf}{\fontseries{bx}}%
      \newcommand{\@unbf}{\fontseries\default@series}%
      \def\hugeheadfont{\fontsize\@xviipt{22pt}% 17pt with 22pt ledding
                        \fontencoding\encodingdefault
                        \fontfamily\sfdefault
                        \fontshape\shapedefault
                        \selectfont}
      \def\largeheadfont{\fontsize\@xiipt{14pt}% 12pt with 14pt ledding
                        \fontencoding\encodingdefault
                        \fontfamily\sfdefault
                        \fontshape\shapedefault
                        \selectfont}
      \def\mediumheadfont{\fontsize\@xpt{12pt}% 10pt with 12pt ledding
                        \fontencoding\encodingdefault
                        \fontfamily\sfdefault
                        \fontshape\shapedefault
                        \selectfont}
      \def\smallheadfont{\fontsize\@viiipt{9.5pt}% 8pt with 9.5pt ledding
                        \fontencoding\encodingdefault
                        \fontfamily\sfdefault
                        \fontshape\shapedefault
                        \selectfont}
       \def\nameheadfont{\fontsize\@xpt{12pt}% 10pt with 12pt ledding
                        \fontencoding\encodingdefault
                        \fontfamily\rmdefault
                        \fontshape\shapedefault
                        \selectfont}
  }

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Macros for controling the use of logotypes. First we define a newif
%% for each logotype and a command nologos to set them all false.
\newif\ifCTHlogo\CTHlogofalse
\newif\ifGUlogo\GUlogofalse
\newcommand\nologo{\CTHlogofalse\GUlogofalse}
%% The CTH-logo. This is a EPS-file thus we need to input psfig.sty
\newcommand{\BoxedCTHlogoPS}{%
%  \input psfig.sty
%  \hbox to 21mm{\vbox to 0pt{%
%    \vskip -16.3mm
%    \psfig{figure=CTH-logo-4cm.eps,height=19mm}%
%    \vss}\hss}%
}
%% Put together the logo from the font cthtwoa produced by bm2font in
%% the box \cthtwobox.
%\newbox\cthtwobox
%\newdimen\cthtwowd
%%\font\cthtwoa=cthtwoa at 36.135truept
%\setbox\cthtwobox=\vbox{\hbox{%
%\cthtwoa !(}}
%\cthtwowd=\wd\cthtwobox
%\setbox\cthtwobox=\hbox{\vbox{\hsize=\cthtwowd
%\parskip=0pt\offinterlineskip\parindent0pt
%\hbox{\cthtwoa !(}
%\hbox{\cthtwoa )+}}}
%% The user command
\newcommand{\BoxedCTHlogo}{%
  \hbox to 21mm{\hss\vbox to 11mm{%
    \vskip -7.3mm
    \copy\cthtwobox
    \vss}\hss}%
}
%% The GU-logo. Note that the GU-logo is a scaned EPS-file and should
%% thus not be scaled. 
\newcommand{\BoxedGUlogoPS}{%
%  \input psfig.sty
%  \hbox to 21mm{\vbox to 11mm{%
%    \vskip -5mm
%    \psfig{figure=GU-logo-2cm.eps}%
%    \vss}\hss}%
}
%% Put together the logo from the font gutwoa produced by bm2font in
%% the box \gutwobox.
%\newbox\gutwobox
%\newdimen\gutwowd
%\font\gutwoa=gutwoa at 36.135truept
%\setbox\gutwobox=\vbox{\hbox{%
%\gutwoa !(}}
%\gutwowd=\wd\gutwobox
%\setbox\gutwobox=\hbox{\vbox{\hsize=\gutwowd
%\parskip=0pt\offinterlineskip\parindent0pt
%\hbox{\gutwoa !(}
%\hbox{\gutwoa )+}}}
%% The user command
\newcommand{\BoxedGUlogo}{%
  \hbox to 21mm{\hss\vbox to 11mm{%
    \vskip -7.3mm
    \copy\gutwobox
    \vss}\hss}%
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% New pagelayouts. First page of letter
\renewcommand{\ps@firstpage}{%
     \def\@oddhead{\hss\@cthhead\hss}\def\@oddfoot{\hss\@cthfoot\hss}%
      \let\@evenhead\@oddhead\let\@evenfoot\@oddfoot}
%% First page of Fax-messages. Same heading as for letters, but no
%% footer. 
\newcommand{\ps@faxpage}{%
  \let\@oddhead\relax\let\@oddfoot\relax
  \let\@evenhead\@oddhead\let\@evenfoot\@oddfoot
}
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% The \@cthhead macro used to produce the letter head
\def\@cthhead{%
 \hbox to \headwidth{%
   \hfil
   \vbox to \headheight{%
        \@setsize\normalsize{12pt}\xpt\@xpt% Set head using 10pt layout
        \hbox to \headwidth{%
          \begin{tabular}[b]{@{}l@{}}
            \@IfEmpty{\@orglinec}
            {\@IfEmpty{\@orglineb}
              {\largeheadfont\ignorespaces\@orglinea}
              {\largeheadfont\ignorespaces\@orglinea\\
               \mediumheadfont\ignorespaces\@orglineb}%
            }
            {\largeheadfont\ignorespaces\@orglinea\\
             \largeheadfont\ignorespaces\@orglineb\\
             \mediumheadfont\ignorespaces\@orglinec
            }
          \end{tabular}%
          \hfil
          \ifCTHlogo\BoxedCTHlogo\fi
          \ifGUlogo\BoxedGUlogo\fi
          }%
        \vskip2truept\hrule \@width \headwidth\vskip4truept%
        \@IfEmpty{\From@Name}{}{\hbox to \headwidth{%
          \vbox{\baselineskip12truept%
            \hbox{{\@bf\nameheadfont\From@Name}%
                  \@IfEmpty{\From@Title}{}{, \nameheadfont\From@Title}}%
          }%
          \hfil}%
        }
        \vss
   }%
   \hfil
}}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% The letter-foot consits of four parts; Postal address, Phone, Fax,
%% and Email. If no data is supplied the corresponding part is left
%% out. Each part is typeset as a small table using the macro
%% \letter@footbox{Head text}{Main text}. Sometimes the user does not
%% want this footer, thus we introduce an if-command to shut it of.
\newif\ifLetterFoot\LetterFoottrue
\def\@cthfoot{\ifLetterFoot
  \vbox to \footheight{%
    \vss
    \hrule width \headwidth 
    \smallskip
    \hbox to \headwidth{%
      %Postal Address
      \letter@footbox{\PostalAddressName}{\From@Address}%
      %Telephone number
      \letter@footbox{\TelephoneName}{\From@PhoneNumber}%
      %Telefax number
      \letter@footbox{\TelefaxName}{\From@FaxNumber}%
      %Electronic mail address
      \letter@footbox{\EmailName}{\From@Email}%
    }%
  }\fi
}
%%%%%%%%%%%%%%%%%%%%%%%%%
%% The macro \letter@footbox used in the letter-foot expands to
%% nothing if the second argument is empty. Otherwise it typesets the
%% text in a tabular environment using \footnotesize and the font
%% \smallheadfont.
%% Syntax:
%%         \letter@footbox{Head text}{Main text}
%% The second argument should be a macro, expanding to one or several 
%% lines of text (max 3 with the current height of the footer).
%%
\def\letter@footbox#1#2{\@IfEmpty{#2}{}{%
  \footnotesize\smallheadfont%
  \begin{tabular}[t]{@{}l@{}}%
    \ignorespaces#1\\[0.6ex]
    \ignorespaces#2
  \end{tabular}\hfil}}
%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Fax environment
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% The telephone number of the fax which we send to is specified using
%% the command \ToFaxNumber
\newcommand{\ToFaxNumber}[1]{%
  \renewcommand{\To@FaxNumber}{\ignorespaces #1}}
\def\To@FaxNumber{}
%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% The number of pages for the fax message is printed usint the macro
%% \FaxPages. The acual number of pages is taken from the counter
%% \c@FaxPages. A value of -1 means that we should count them
%% automatically, a value of 0 means that we should print a line for
%% user to handprint the desired number, any number >0 is just printed
%% as is. The macro  \FaxPages may be used to tell us how many pages
%% there are.
%%
%% If the fax-message contains any enclosed pages, the correct number
%% of pages is the length of the typset message plus the number of
%% enclosed pages. This number is specified by the comman
%% \ExtraFaxPages below.
\newcounter{FaxPages}\setcounter{FaxPages}{-1}
\newcommand{\FaxPages}[1]{\setcounter{FaxPages}{#1}}
%
\newcounter{ExtraFaxPages}\setcounter{ExtraFaxPages}{0}
\newcommand{\ExtraFaxPages}[1]{\setcounter{ExtraFaxPages}{#1}}
%
\renewcommand{\theFaxPages}{\bgroup
  \advance\c@FaxPages\c@ExtraFaxPages\relax
  \ifcase\c@FaxPages
  \rule{0\p@}{10mm}\rule{2em}{0.4pt}\else
  \arabic{FaxPages}\fi
  \egroup}
%%
\newcommand{\Fax@Pages}{%
  \hbox{
    \vbox to \baselineskip{\hbox{\mediumheadfont
       \begin{tabular}{@{}l}
         \iflanguage{swedish}{Sida/sidor }{Page/pages }\\
         \iflanguage{swedish}{inklusive }{including }\\
         \iflanguage{swedish}{denna }{this }
       \end{tabular}}\vss}
    \PaperPileBox{{\@bf\mediumheadfont\theFaxPages}}
  }
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% The macro \PaperPileBox takes the box returned by \@pile and
%% vertically alligns it so that the top is precisely \baselineskip
%% above the baseline.
\newcommand{\PaperPileBox}[1]{\leavevmode
   \setbox\@tempboxa\hbox{\@pile{#1}}%
   \setlength{\@tempdima}{\ht\@tempboxa}%
   \addtolength{\@tempdima}{-\baselineskip}%
   \hbox{\lower\@tempdima\box\@tempboxa}%
}

%%%%%%%%%%%%%%%%%%%%
%% The macro \@pile puts a frame looking like a pile of papers
%% around its argument. (Much like \fbox). The distance between the
%% sheets of paper are determined by \@pile@dist.
\newlength{\@pile@dist}
\setlength{\@pile@dist}{2pt}
%% Length and width of original box
\newlength{\@pile@box@ht}
\newlength{\@pile@box@wd}
%% Box for the pile frame
\newsavebox{\@tempboxb}
%%
\newcommand{\@pile}[1]{%
  \leavevmode\setbox\@tempboxa\hbox{\fbox{#1}}%
  %% Compute total height of original box
  \setlength{\@pile@box@ht}{\ht\@tempboxa}%
  \addtolength{\@pile@box@ht}{\dp\@tempboxa}%
  %% and width of original box
  \setlength{\@pile@box@wd}{\wd\@tempboxa}%
  %% Save the pile-frame in \@tempboxb in such a way that it will
  %% overlapp to the left, occupying only a horizontal distance of
  %% \@pile@dist itself.
  \setlength{\@tempdima}{\@pile@box@wd}%
  \addtolength{\@tempdima}{-\@pile@dist}%
  \setbox\@tempboxb\hbox{\kern-\@tempdima\@pile@frame}%
  %% The depth of the pile-frame box is zero. To place it \@pile@dist
  %% above the original box we must thus lower it by the depth of the
  %% orignal box plus \@pile@dist.
  \setlength{\@tempdima}{\dp\@tempboxa}%
  \addtolength{\@tempdima}{-\@pile@dist}%
  \hbox{%
    \box\@tempboxa
    \lower\@tempdima\copy\@tempboxb
    \addtolength{\@tempdima}{-\@pile@dist}%
    \lower\@tempdima\box\@tempboxb
  }%
}
\newcommand{\@pile@frame}{%
  \setlength{\@tempdima}{\@pile@box@ht}%
  \addtolength{\@tempdima}{-\@pile@dist}%
  \setlength{\@tempdimb}{\@pile@box@wd}%
  \addtolength{\@tempdimb}{-\@pile@dist}%
  \vbox{\hrule \@height\fboxrule
    \hbox{%
      \vrule \@width\fboxrule \@height\@pile@box@ht \@depth-\@tempdima
      \hskip \@tempdimb
      \vrule \@width\@pile@dist \@height\fboxrule
      \vrule \@width\fboxrule \@height\@pile@box@ht
    }%
  }%
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% The fax-environment
%%
%%%%%%%%%%%%%%%%%%%%%%%%%
%% To count the number of pages in the fax message we put the label
%% FaxRef1 at the end of the message. The number in the label name is
%% taken from the counter FaxRef defined below.
\newcounter{FaxRef}
\setcounter{FaxRef}{0}
%% Here is the fax-environment
\newcommand{\fax}[1]{%
  %%%%%%%%%%%%%%%%%%%%%%%%%%
  %% A new fax-message step the counter.
  \global\advance\c@FaxRef\@ne 
  %%%%%%%%%%%%%%%%%%%%%%%%%
  %% If number of pages not yet defined and the special end of letter
  %% label is available get number of pages from it.
  \ifnum \c@FaxPages < 0 
     \@ifundefined{r@FaxRef\number\c@FaxRef}{%
        %% Automatically counted number of pages not yeat available,
        %% set number of pages to zero.
        \FaxPages{0}}{%
        %% The label was defined; extract page number
        \edef\@tempa{\@nameuse{r@FaxRef\number\c@FaxRef}}%
        \FaxPages{\expandafter\@cdr\@tempa\@nil}}\fi
  %%%%%%%%%%%%%%%%%%%%%%%%%%
  %% Redefine \opening to only print opening statement.
  \def\opening##1{\vspace{2\parskip}{##1\par\nobreak}}%
  %%%%%%%%%%%%%%%%%%%%%%%%%%
  %% Redefine \closing fix indentation etc.
  \renewcommand{\closing}[1]{\par\nobreak\vspace{\parskip}% 
    \stopbreaks
    \noindent
    %% Calculate indentation of signature (depends on current textwidth)
    \setlength{\longindentation}{0.3\hsize}%
    \setlength{\indentedwidth}{\hsize}%
    \addtolength{\indentedwidth}{-\longindentation}%
    \leavevmode\hskip\longindentation
    \parbox{\indentedwidth}{\raggedright
      \ignorespaces ##1\\[6\medskipamount]%% changed 20 Jan 88
      \@IfEmpty{\From@Signature}{\From@Name}{\From@Signature}\strut}%
      \par
  }%
  %%%%%%%%%%%%%%%%%%%%%%%%%%
  %% Start  a new page (with number 1) using pagestyle faxpage
  \newpage
  \c@page\@ne
  \thispagestyle{faxpage}%
  %%%%%%%%%%%%%%%%%%%%%%%%%%
  %% Parse to address
  \interlinepenalty=200
  \Fax@split@arg{\leavevmode\ignorespaces #1}
       {\toname}{\To@Company}{\To@Department}%
  %%%%%%%%%%%%%%%%%%%%%%%%%%
  %% Print the FAXMESSAGE-box centrered on one line at top of page.
  \null\vspace{-\headheight}\vspace{-\headsep}
  \hbox to \textwidth{\hss\Fax@Message@Box\hss}
}
%\def\label#1{\@bsphack\if@filesw {\let\thepage\relax
%   \def\protect{\noexpand\noexpand\noexpand}%
%   \edef\@tempa{\write\@auxout{\string
%      \newlabel{#1}{{\@currentlabel}{\thepage}}}}%
%   \expandafter}\@tempa
%   \if@nobreak \ifvmode\nobreak\fi\fi\fi\@esphack}
% 
\def\endfax{% Write a label indicating the end of this fax!
  % We cant use \label since it will not expand the counter \c@FaxRef
  % propperly.
  \@bsphack\if@filesw {\let\thepage\relax
  \write\@auxout{\string
    \newlabel{FaxRef\number\c@FaxRef}{{}{\thepage}}}%
  \if@nobreak\ifvmode\nobreak\fi\fi\fi\@esphack}%
  %%% \label{FaxRef\number\c@FaxRef}%
  \setcounter{FaxPages}{-1}%
  \stopletter\@@par\vfil\pagebreak\@@par
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Splitt argument into three parts separated by \\.
%% Format:
%%          \Fax@split@arg{ Text top parse }{macro1}{macro2}{macro3}
%% 
\long\def\Fax@split@arg#1#2#3#4{%
  %% Make sure all thre macros are empty from the begining
  \let#2\@empty \let#3\@empty \let#4\@empty
  \Fax@xsplit #1\\\\@@@{#2}{#3}%
  \ifx#3\@empty \else \Fax@ysplit #1\\@@@{#3}{#4}\fi
  \ifx#4\@empty \else \Fax@zsplit #1@@@{#4}\fi
}
%% \Fax@xsplit tries to split the args assuming that #1 contained no
%% \\ at all. If this is not true then something will be assigned to
%% #3 and we must repars #1 under the assumption that there where one
%% pair of \\ in #1. This is done by \Fax@ysplit. If #1 actually
%% contained 3 lines (two pairs of \\) then #4 is assigned a wrong
%% value by \Fax@ysplit (caused by the extra \\ in the call) thus we
%% have to parse #1 a third time using \Fax@zsplit.
\long\def\Fax@xsplit #1\\#2\\#3@@@#4#5{\def#4{#1}\def#5{#2}}
\long\def\Fax@ysplit #1\\#2\\#3@@@#4#5{\def#4{#2}\def#5{#3}}
\long\def\Fax@zsplit #1\\#2\\#3@@@#4{\def#4{#3}}
%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Put the fax message in a double framed box with the same width as
%% the page header.
\newcommand{\Fax@Message@Box}{\Double@Frame@Box{\headwidth}{\Fax@Message}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Create a box with a double frame. A thick outer line and a thin
%% inner one. First argument is the width of the material placed
%% inside the box, second is the box-contents.
\newcommand{\Double@Frame@Box}[2]{%
  \setlength{\fboxsep}{10pt}%
  \setlength{\fboxrule}{3pt}%\setlength{\fboxsep}{2pt}
  \fbox{%
  \setlength{\fboxrule}{.4pt}\setlength{\fboxsep}{10pt}%\fbox{%
  \parbox{#1}{#2}}%}
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% The following command prints the contents of the fax-message box.
%% First print the organization, then print the header including date
%% and number of pages. Then to and from address.
\newcommand{\Fax@Message}{%
  %% Set box using 10pt baseline
  \@setsize\normalsize{12pt}\xpt\@xpt
  \null\vspace{.2ex}
  \@IfEmpty{\@orglinec}
    {\@IfEmpty{\@orglineb}
       {%%\message{Only one line in the organization header}%
        \hbox to \headwidth{{\@bf\largeheadfont\ignorespaces\@orglinea}\hfil}%
       }{%%\message{Two lines in the organization header}%
        \hbox to \headwidth{{\@bf\largeheadfont\ignorespaces\@orglinea}\hfil}%
        \hbox to \headwidth{{\@bf\mediumheadfont\ignorespaces\@orglineb}\hfil}%
       }%
    }{%%\message{Three lines in the organization}%
      \hbox to \headwidth{{\@bf\largeheadfont\hfil\ignorespaces\@orglinea
                          \space\space
                          \largeheadfont\ignorespaces\@orglineb}\hfil}%
      \hbox to \headwidth{{\@bf\mediumheadfont\hfil\ignorespaces
                           \@orglinec}\hfil}%
    }%
  \vspace{4.8ex}
  %% Title and date line
  \hbox to \headwidth{\hfil\begin{tabular}[t]{@{}l@{}}
     {\@bf\hugeheadfont\FaxHeadTitleName}\\
     \smallheadfont\DateName\\
     {\@bf\largeheadfont\Letter@Date}%
  \end{tabular}\hfil\Fax@Pages}
  \vspace{1.0ex}
  %% To and from address
  \Fax@ThreePartLine{\headtoname}{\TelefaxName}{\To@FaxNumber}
  \Fax@ThreePartLine{\@empty}{\NameName}{\toname}
  \Fax@ThreePartLine{\@empty}{\CompanyName}{\To@Company}
  \Fax@ThreePartLine{\@empty}{\DepartmentName}{\To@Department}
  \vspace{2.4ex}
  \Fax@ThreePartLine{\FromName}{\NameName}{\From@Name}
  \vspace{2.4ex}
  \hbox to \headwidth{%
    \hspace{\FaxColFrom@Width}%
    %Postal Address
    \Fax@footbox{\PostalAddressName}{\From@Address}
    %Telephone number
    \Fax@footbox{\TelephoneName}{\From@PhoneNumber}
    %Telefax number and  Electronic mail address
    \Fax@footbox@two{\TelefaxName}{\From@FaxNumber}{\EmailName}{\From@Email}
  }
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% The to and from part in the fax-message box is typeset in a three
%% column mode. The first column contains either "From" or "To"  and
%% has width \FaxColFrom@Width. The second column contains
%% sub-headings and are of width \FaxColSubheadins@Width. The third
%% column occupies the rest of the line (\FaxData@Width) and contains
%% the data.
\newlength{\FaxColFrom@Width}
\settowidth{\FaxColFrom@Width}{\hugeheadfont\headtoname}
\settowidth{\@tempdima}{\hugeheadfont\FromName}
\ifdim\@tempdima>\FaxColFrom@Width
  \setlength{\FaxColFrom@Width}{\@tempdima}\fi
%% Add some inter column space.
\addtolength{\FaxColFrom@Width}{10pt}
%% The second part
\newlength{\FaxColSubheadins@Width}
\settowidth{\FaxColSubheadins@Width}{\smallheadfont\TelefaxName}
\settowidth{\@tempdima}{\smallheadfont\NameName}
\ifdim\@tempdima>\FaxColSubheadins@Width
  \setlength{\FaxColSubheadins@Width}{\@tempdima}\fi
\settowidth{\@tempdima}{\smallheadfont\CompanyName}
\ifdim\@tempdima>\FaxColSubheadins@Width
  \setlength{\FaxColSubheadins@Width}{\@tempdima}\fi
\settowidth{\@tempdima}{\smallheadfont\DepartmentName}
\ifdim\@tempdima>\FaxColSubheadins@Width
  \setlength{\FaxColSubheadins@Width}{\@tempdima}\fi
%% Add some inter column space
\addtolength{\FaxColSubheadins@Width}{10pt}
%% The third part
\newlength{\FaxData@Width}
\setlength{\FaxData@Width}{\headwidth}
\addtolength{\FaxData@Width}{-\FaxColFrom@Width}
\addtolength{\FaxData@Width}{-\FaxColSubheadins@Width}
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% A three part line with widths as above is typeset by
%% \Fax@ThreePartLine defined as
\newcommand{\Fax@ThreePartLine}[3]{\hbox to \hsize{%
  \hbox to \FaxColFrom@Width{\@IfEmpty{#1}{\hfil}
     {{\@bf\hugeheadfont\ignorespaces#1}\hfil}}%
  \hbox to \FaxColSubheadins@Width{\@IfEmpty{#2}{%
     \vrule\@height 10mm \@width0\p@
     \vrule\@height\fboxrule\@width0.95\FaxColSubheadins@Width\hfil
     }{%
     \smallheadfont\ignorespaces#2\hfil}}%
  \parbox[t]{\FaxData@Width}{\@IfEmpty{#3}
    {\vrule\@height 10mm \@width0\p@
     \vrule\@height\fboxrule\@width0.95\FaxData@Width\hfil}
    {{\@bf\mediumheadfont\ignorespaces #3}\hfil}}%
  }%
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% We implement a special macro to check if an existing macro is empty
%% or not. Normally it would suffice to use \ifx#1\@empty... but if #1
%% is defined as a long this will not work.
%%
%% Format: \@IfEmpty{macro}{true}{false}
%%
\newcommand{\@IfEmpty}[3]{%
  \ifx #1\relax \else
  \ifx #1\@empty #2\else
    \ifx #1\long@empty #2\else #3\fi
  \fi\fi}
%% Where \long@empty is a empty long macro as given by \newcommand
\newcommand{\long@empty}{}
%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% The macro \Fax@footbox typesets its arguments in tabular
%% environment. The first argument is a headline typeset wiht small
%% letters, the second argument is the text which are printed using a
%% somewhat lager font.
%% Syntax:
%%         \Fax@footbox{Head text}{Main text}
%% If the second argument expands to nothing, no text is produced. 
%%
\newcommand{\Fax@footbox}[2]{%
  \@IfEmpty{#2}{}{%
    {\@bf\mediumheadfont
    \begin{tabular}[t]{@{}l@{}} 
      {\@unbf\smallheadfont\ignorespaces#1}\\[0.6ex]%
      \ignorespaces#2
    \end{tabular}\hfil}}}
%%
%% We shall also use a variant of the fax footbox that prints two
%% fields atop of each other.
%% Syntax:
%%      \Fax@footbox@two{Head text 1}{Main text 1}{Head text 2}{Main text 2}
%% If the second argument expands to nothing, no text is produced. 
%%
\newcommand{\Fax@footbox@two}[4]{%
    {\@bf\mediumheadfont
    \begin{tabular}[t]{@{}l@{}} 
      \@IfEmpty{#2}{}{{\@unbf\smallheadfont\ignorespaces#1}\\[0.6ex]%
                      \ignorespaces#2\\[0.8ex]}%
      \@IfEmpty{#4}{}{{\@unbf\smallheadfont\ignorespaces#3}\\[0.6ex]%
                      \ignorespaces#4}%
    \end{tabular}\hfil}}
%%

%%%%%% Standard headers %%%%%%
%%
%%%%% Chalmers and GU %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\cthgu{ % \organization{\iflanguage{swedish}
 %   {CHALMERS TEKNISKA H\"OGSKOLA}
 %   {CHALMERS UNIVERSITY OF TECHNOLOGY}\\
 %   \iflanguage{swedish}
 %   {G\"OTEBORGS UNIVERSITET}
 %   {G\"OTEBORG UNIVERSITY}\\
 %   \iflanguage{swedish}
 %   {Matematiska institutionen}
 %   {Department of Mathematics}
 %   }
 %  \CTHlogotrue
 %  \GUlogotrue
}
%%%%% Chalmers %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\cth{ % \organization{\iflanguage{swedish}
 %      {CHALMERS TEKNISKA H\"OGSKOLA}
 %      {CHALMERS UNIVERSITY OF TECHNOLOGY}\\
 %   \iflanguage{swedish}
 %      {Matematiska institutionen}
 %      {Department of Mathematics}
 %   }
 %  \CTHlogotrue
}
%%%%% GU %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\gu{ % \organization{\iflanguage{swedish}
 %   {G\"OTEBORGS UNIVERSITET}
 %   {G\"OTEBORG UNIVERSITY}\\
 %   \iflanguage{swedish}
 %   {Matematiska institutionen}
 %   {Department of Mathematics}
 %   }
 %  \GUlogotrue
}
%%%%% Centrum f|r till. mat. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\centrum{ % \organization{%
 %   \mediumheadfont\iflanguage{swedish}
 %   {CENTRUM F\"OR}
 %   {CENTRE FOR}\\
 %   \iflanguage{swedish}
 %   {TILL\"AMPAD MATEMATIK OCH STATISTIK}
 %   {APPLIED MATHEMATICS AND STATISTICS}\\
 %   \iflanguage{swedish}
 %   {Chalmers tekniska h\"ogskola och G\"oteborgs universitet}
 %   {Chalmers University of Technology and the University of G\"oteborg}
 %   }
 %   \CTHlogotrue
 %   \GUlogotrue
 %   \def\From@PhoneNumber{%
 %      \iflanguage{swedish}
 %      {031 - 772\,10\,00 vx}
 %      {+46 31 772\,10\,00}\\
 %      \iflanguage{swedish}{031 - 772\,35\,72 (konsulter, statistik)}{}\\
 %      \iflanguage{swedish}{031 - 772\,35\,81 (konsulter, matematik)}{}
 %   }%
}
%%%%% Matematikesamfundet %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\sms{ % \organization{\iflanguage{swedish}
 %   {Svenska Matematikersamfundet}
 %   {Swedish Mathematical Society}
 %  }%
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Default values for user data %%
\cthgu
%% Default from address
\def\From@Address{%
  \ifswedish 
    J\"orgen Grahn\\
    Wetterlinsgatan 13e\\
    521 34 FALK\"OPING
  \else
    J\"orgen Grahn\\
    Wetterlinsgatan 13e\\
    S-521 34 Falk\"oping\\
	SVERIGE
  \fi}
%% Default Phone-number
\def\From@PhoneNumber{%
  \ifswedish 0515-157\,26%
  \else     +46 515 157\,26%
  \fi}
%% Default  Fax-number
%\def\From@FaxNumber{%
%  \ifswedish 031 - 16\,19\,73%
%  \else      +46 31 16\,19\,73%
%  \fi}
%%
\endinput