Abstand zwischen Anrede und Text formatieren

[Consilium]

Hallo,

ich habe ein Anschreiben in Latex mit der Klasse moderncv erstellt, dass soweit fast fertig ist. Als ich das Dokument ausgedruckt habe, ist mir jedoch aufgefallen, dass die Leerzeile zwischen Anrede und Text doppelt so groß dargestellt wird wie die Leerzeilen im Text.

Minimalbsp:

\documentclass[10pt,a4paper,sans]{moderncv} 

\moderncvstyle{classic} 
\moderncvcolor{red} 
\usepackage{ragged2e}
\usepackage{lipsum} 
\usepackage[utf8]{inputenc}
\usepackage[ngerman]{babel}
\usepackage[scale=0.75]{geometry}

\firstname{Max} 
\familyname{Mustermann} 

\title{Curriculum Vitae}
\address{Musterstadt}{Musterland}

\makeatletter

\makeatother

\begin{document}
\clearpage

\recipient{HR}{Muster Firma} 
\date{\today} 
\opening{Hallo} 
\closing{Mit freundlichen Grüßen,}
\enclosure[Anlagen]{I \\ \vspace{5cm} I}

\makelettertitle
\justifying
\lipsum[2]

\lipsum[3] 



\end{document}

Was muss geändernt bzw. hinzugefügt werden, damit man eine "normale" Leerzeile zwischen Anrede und Text erhält?


Gruss

[Bartman]

Sorge bitte für die Hervorhebung Deines Quelltextes.

Ändere für Dein Anliegen den Befehl \makeletterhead aus der Datei moderncvheadi.sty. Im folgenden Beispiel wurde bei @opening die Längenangabe 1.5em durch \baselineskip ersetzt.

\documentclass[10pt,a4paper,sans]{moderncv}

\moderncvstyle{classic}
\moderncvcolor{red}
\usepackage{ragged2e}
\usepackage{lipsum}
\usepackage[utf8]{inputenc}
\usepackage[ngerman]{babel}
\usepackage[scale=0.75]{geometry}

\firstname{Max}
\familyname{Mustermann}

\title{Curriculum Vitae}
\address{Musterstadt}{Musterland}

\makeatletter
\renewcommand*{\makeletterhead}{%
  % recompute lengths (in case we are switching from letter to resume, or vice versa)
  \recomputeletterlengths%
  % sender contact info
  \hfill%
  \begin{minipage}{.5\textwidth}%
    % optional detailed information
    \if@details%
      \raggedleft%
      \addressfont\textcolor{color2}{%
        {\bfseries\upshape\@firstname~\@lastname}\@firstdetailselementfalse%
        % optional detailed information
        \ifthenelse{\isundefined{\@addressstreet}}{}{\makenewline\addresssymbol\@addressstreet%
          \ifthenelse{\equal{\@addresscity}{}}{}{\makenewline\@addresscity}% if \addresstreet is defined, \addresscity and addresscountry will always be defined but could be empty
          \ifthenelse{\equal{\@addresscountry}{}}{}{\makenewline\@addresscountry}}%
        \collectionloop{phones}{% the key holds the phone type (=symbol command prefix), the item holds the number
          \makenewline\csname\collectionloopkey phonesymbol\endcsname\collectionloopitem}%
        \ifthenelse{\isundefined{\@email}}{}{\makenewline\emailsymbol\emaillink{\@email}}%
        \ifthenelse{\isundefined{\@homepage}}{}{\makenewline\homepagesymbol\httplink{\@homepage}}%
        \ifthenelse{\isundefined{\@extrainfo}}{}{\makenewline\@extrainfo}}\fi%
    \end{minipage}\\[1em]
  % recipient block
  \begin{minipage}[t]{.5\textwidth}
    \raggedright%
    \addressfont%
    {\bfseries\upshape\@recipientname}\\%
    \@recipientaddress%
  \end{minipage}
  % date
  \hfill% US style
%  \\[1em]% UK style
  \@date\\[2em]% US informal style: "January 1, 1900"; UK formal style: "01/01/1900"
  % opening
  \raggedright%
  \@opening\\[\baselineskip]% 
  % ensure no extra spacing after \makelettertitle due to a possible blank line
%  \ignorespacesafterend% not working
  \hspace{0pt}\par\vspace{-\baselineskip}\vspace{-\parskip}}
\makeatother

\begin{document}
\clearpage

\recipient{HR}{Muster Firma}
%\date{\today}
\opening{Hallo}
\closing{Mit freundlichen Grüßen,}

\makelettertitle
\justifying
\lipsum[2]

\lipsum[3]
\end{document}