shorthand

ptbletter/ptbletter.cls

@@ -88,14 +88,6 @@
   \RequirePackage[ttdefault=true,scale=1.034]{AnonymousPro}
 \fi
 
-\def\tiny{\@setfontsize\tiny{7}{8.17}}
-
-\ifptb@serif
-  \renewcommand*\familydefault{\rmdefault}
-\else
-  \renewcommand*\familydefault{\sfdefault}
-\fi
-
 %\RequirePackage{etoolbox}
 %\preto\@classoptionslist{ngerman,}
 % Ohne Sprachangabe "deutsch" verwenden. Bessere Lösung?
@@ -103,16 +95,24 @@
 \RequirePackage[\ptb@lang]{babel}
 \RequirePackage{iflang}
 \IfLanguageName{ngerman}{%
-  \typeout{german}
   \RequirePackage[babel=once,german=guillemets]{csquotes}
-  \AtEndOfClass{\shorthandon{"}}
-  \defineshorthand{"`}{\openautoquote}
-  \defineshorthand{"'}{\closeautoquote}
-%  \MakeAutoQuote{»}{«}
 }{%
-  \typeout{english}
   \RequirePackage[babel=once]{csquotes}
+  \useshorthands*{"}
 }
+\MakeAutoQuote{»}{«}
+\defineshorthand{"`}{\openautoquote}
+\defineshorthand{"'}{\closeautoquote}
+\AtEndOfClass{\shorthandon{"}}
+
+\def\tiny{\@setfontsize\tiny{7}{8.17}}
+
+\ifptb@serif
+  \renewcommand*\familydefault{\rmdefault}
+\else
+  \renewcommand*\familydefault{\sfdefault}
+\fi
+
 \@setplength{toaddrhpos}{72bp}
 \@setplength{toaddrvpos}{124bp}
 %\@setplength{toaddrwidth}{85mm}
@@ -158,7 +158,7 @@
     \usekomavar*{handledby} & \usekomavar{handledby}\\
     \usekomavar*{myphone} & \usekomavar{myphone}\\
     \usekomavar*{myfax} & \usekomavar{myfax}\\
-    \usekomavar*{fromemail} & \usekomavar{fromemail}\\
+    \usekomavar*{emailseparator} & \usekomavar{fromemail}\\
     \multicolumn{2}{@{}l@{}}{} \\
     \usekomavar*{date} & \usekomavar{date}
   \end{tabular}