TeX capacity exceeded, sorry [input stack size=30000]

% Letter template for TeXLive 2014 (Linux Mint 17 Cinnamon)
% 2015-11-19 (last edited: 2015-11-19)
% Compile: pdflatex datei.tex
% Optimize PDF: ps2pdf -dOptimize=true -dEmbedAllFonts=true -dUseFlateCompression=true datei.pdf datei2.pdf

\def\bfLANG{english}    % Language of letter
\def\bfDEST{intl}   % natl (national) or intl (international)

\documentclass[%
    \bfLANG,
    paper=a4,
    DIN,    % or DINmtext
    enlargefirstpage=false,
    fontsize=11pt,
    pagenumber=headright,
    parskip=full,   % or half
    pdftex  % or dvips or...
    ]{scrlttr2}

% Packages needed
\usepackage[autogenerated]{ucs}
\usepackage[utf8x]{inputenc}
\usepackage[T1]{fontenc}
%\usepackage[noamsmath, notextcomp]{kpfonts}
%\usepackage{Baskervaldx}
\usepackage[nf]{libertine}
\renewcommand*\oldstylenums[1]{{\fontfamily{fxlj}\selectfont#1}}
\usepackage{textcomp}
\usepackage{relsize}
\usepackage{setspace}
\usepackage{textcase}
\usepackage{marvosym}
\usepackage{lastpage}
\usepackage{babel}
\usepackage[margin=3cm]{geometry}

% Microtype stuff
\usepackage[%
    expansion=false,
    protrusion=true,
    %factor=500,    % to reduce protrusion to half
    babel=true,
    kerning=true,
    spacing=true,
    tracking=true%
    ]{microtype}

% Quoting format
\def\bfQQ#1{``#1''}
\def\bfQ#1{`#1'}

% Smaller size for text in all caps
\def\bfAC#1{\textsc{\larger\MakeTextLowercase{#1}}}
\def\bfACb#1{\textsc{\smaller\MakeTextUppercase{#1}}}

% Sender's name, address, etc.
\def\bfFN{Test Testman}
\def\bfFNlc{\MakeTextLowercase{\bfFN}}
\def\bfFA{%
    Teststraat 100\\
    1000\,AA Amsterdam%
}
\def\bfFAde{%
    \bfFA%
    \\\bfAC{NIEDERLANDE}%
}
\def\bfFAnl{%
    \bfFA%
    \\\bfAC{NEDERLAND}%
}
\def\bfFAes{%
    \bfFA%
    \\\bfAC{PA\'ISES BAJOS}%
}
\def\bfFAen{%
    \bfFA%
    \\\bfAC{NETHERLANDS}%
}
\def\bfFAeo{%
    \bfFA%
    \\\bfAC{NEDERLANDO}%
}
\let\bfBA=\bfFA
\def\bfBAxx{%
    \bfBA%
    \\\bfACb{NL}%
}
\def\bfFP{06~00000000}
\def\bfFPxx{+31~6~00000000}
\def\bfFE{testman@example.com}

% Set some language-specific parameters
\def\bfPANenglish{Postal address}
\def\bfPHNenglish{Phone}
\def\bfEMNenglish{E-mail}
\let\bfFAenglishnatl=\bfFA
\let\bfFAenglishintl=\bfFAen
\let\bfBAenglishnatl=\bfBA
\let\bfBAenglishintl=\bfBAxx
\let\bfFPenglishnatl=\bfFP
\let\bfFPenglishintl=\bfFPxx

\let\bfPANUSenglish=\bfPANenglish
\let\bfPHNUSenglish=\bfPHNenglish
\let\bfEMNUSenglish=\bfEMNenglish
\let\bfFAUSenglishnatl=\bfFAenglishnatl
\let\bfFAUSenglishintl=\bfFAenglishintl
\let\bfBAUSenglishnatl=\bfBAenglishnatl
\let\bfBAUSenglishintl=\bfBAenglishintl
\let\bfFPUSenglishnatl=\bfFPenglishnatl
\let\bfFPUSenglishintl=\bfFPenglishintl

\def\bfPANgerman{Postanschrift}
\def\bfPHNgerman{Telefon}
\def\bfEMNgerman{E-Mail}
\let\bfFAgermannatl=\bfFAde
\let\bfFAgermanintl=\bfFAde
\let\bfBAgermannatl=\bfBAxx
\let\bfBAgermanintl=\bfBAxx
\let\bfFPgermannatl=\bfFPxx
\let\bfFPgermanintl=\bfFPxx

\let\bfPANngerman=\bfPANgerman
\let\bfPHNngerman=\bfPHNgerman
\let\bfEMNngerman=\bfEMNgerman
\let\bfFAngermannatl=\bfFAgermannatl
\let\bfFAngermanintl=\bfFAgermanintl
\let\bfBAngermannatl=\bfBAgermannatl
\let\bfBAngermanintl=\bfBAgermanintl
\let\bfFPngermannatl=\bfFPgermannatl
\let\bfFPngermanintl=\bfFPgermanintl

\def\bfPANdutch{Postadres}
\def\bfPHNdutch{Telefoon}
\def\bfEMNdutch{E-Mail}
\let\bfFAdutchnatl=\bfFAnl
\let\bfFAdutchintl=\bfFAnl
\let\bfBAdutchnatl=\bfBAxx
\let\bfBAdutchintl=\bfBAxx
\let\bfFPdutchnatl=\bfFPxx
\let\bfFPdutchintl=\bfFPxx

\def\bfPANspanish{Dirección de correo}
\def\bfPHNspanish{Teléfono}
\def\bfEMNspanish{E-mail}
\let\bfFAspanishnatl=\bfFAes
\let\bfFAspanishintl=\bfFAes
\let\bfBAspanishnatl=\bfBAxx
\let\bfBAspanishintl=\bfBAxx
\let\bfFPspanishnatl=\bfFPxx
\let\bfFPspanishintl=\bfFPxx

\def\bfPANesperanto{Poŝtadreso}
\def\bfPHNesperanto{Telefono}
\def\bfEMNesperanto{Retpoŝtadreso}
\let\bfFAesperantonatl=\bfFAeo
\let\bfFAesperantointl=\bfFAeo
\let\bfBAesperantonatl=\bfBAxx
\let\bfBAesperantointl=\bfBAxx
\let\bfFPesperantonatl=\bfFPxx
\let\bfFPesperantointl=\bfFPxx

% Here comes the magic
\def\bfPostaddressname{\csname bfPAN\bfLANG\endcsname}
\providecaptionname{\bfLANG}\phonename{\csname bfPHN\bfLANG\endcsname}
\providecaptionname{\bfLANG}\emailname{\csname bfEMN\bfLANG\endcsname}
\def\bfFA{\csname bfFA\bfLANG\bfDEST\endcsname}
\def\bfBA{\csname bfBA\bfLANG\bfDEST\endcsname}
\def\bfFP{\csname bfFP\bfLANG\bfDEST\endcsname}

% More settings
\setkomavar{backaddressseparator}{\,·\,}
\setkomavar{emailseparator}{}
\setkomavar{phoneseparator}{}
\setkomavar{fromname}{\expandafter\bfFN}
\setkomavar{fromaddress}{\expandafter\bfFA}
\setkomavar{fromphone}{\expandafter\bfFP}
%\setkomavar{fromemail}{\texttt{\expandafter\bfFE}}
\setkomavar{fromemail}{{\expandafter\bfFE}}

% Date in short ISO format w/ middots (YYYY·MM·DD)
\def\bfDATE#1#2#3{{%
    \number#1·%
    \ifnum\number#2<10 0\fi%
    \number#2·%
    \ifnum\number#3<10 0\fi%
    \number#3%
}}

\def\bfTODAY{\bfDATE{\number\year}{\number\month}{\number\day}}

\date{\bfTODAY}

% Define letterhead v3.0
\setkomavar{firsthead}{{%
  \parbox[t][0cm][t]{\textwidth}{%
    \noindent\sffamily\scshape%
    {%
      \Huge\strut\hfill%
      \usekomavar[\MakeTextLowercase]{fromname}%
    }%
    \strut\\\mbox{}\hrulefill\mbox{}%
  }%
}}
\setkomavar{firstfoot}{{%
  \parbox[b][0cm][b]{\textwidth}{%
    \noindent\strut\\\mbox{}\hrulefill\mbox{}\\%
    {%
      \def\\{~·~\ignorespaces}%
      \sffamily\footnotesize\strut%
      \Letter~%
      \usekomavar{fromaddress}%
      \hfill%
      \thepage\,/\,\pageref{LastPage}%
      \newline%
      \Mobilefone~%
      \usekomavar{fromphone}\\%
      \Email~%
      \usekomavar{fromemail}%
      \hfill\strut%
    }%
  }%
}}
\setkomavar{nexthead}{{%
  \noindent\sffamily%
  \parbox[t]{\textwidth}{%
    \footnotesize%
    \bfAC{\bfFNlc}\,·~%
    \usekomavar{subject}\hfill%
    \bfTODAY~·~%
    \thepage\,/\,\pageref{LastPage}%
    \linebreak\mbox{}\hrulefill\mbox{}%
    \linebreak\strut%
  }%
}}
\setkomavar{nextfoot}{{%
}}

% Set letterhead on subsequent pages
\setkomafont{pagehead}{\scriptsize\sffamily}
\setkomafont{pagenumber}{\scriptsize\sffamily}

% Adjust address window
\makeatletter
\@addtoplength{toaddrwidth}{-0.5cm}
\makeatother

% Make sender line in window wider
\setkomavar{backaddress}{%
  \makebox[\useplength{toaddrwidth}]{%
    \smaller%
    \ifkomavarempty{fromname}{}{%
      \strut\ignorespaces\usekomavar{fromname}%
      \ifkomavarempty{fromaddress}{}{\\}}%
    \ifkomavarempty{fromaddress}{}{%
      \strut\ignorespaces\bfBA}}}

% More space for letter text
%\makeatletter
%\@addtoplength{firstfootvpos}{4cm}
%\makeatother

% More space before signature
\makeatletter
\@setplength{sigbeforevskip}{3\baselineskip}
\makeatother

% Signature flushleft
\let\raggedsignature=\raggedright

% Recipient address indented
\makeatletter
\@setplength{toaddrindent}{0.5cm}
\makeatother

% Subject in boldface
\addtokomafont{subject}{\bfseries}

% Headings on subsequent pages
\pagestyle{headings}

% Less line spread (because of 11pt)
\setstretch{0.9}%

\begin{document}

% this is where the letter starts
\begin{letter}{%
    % Recipient address
    Testie Testwoman\\
    1 Test Street
    Dublin 1\\
    \bfAC{IRELAND}%
}

\setkomavar{subject}{This is a test letter}
%\setkomavar{yourref}{}
%\setkomavar{yourmail}{}
%\setkomavar{myref}{}

\opening{Dear Testie,}

% Letter text
this is a test. Please test accordingly.

Thank you!

\closing{Best regards,}

%\encl{}

\end{letter}

\end{document}