Quotes

ptbletter/ptbletter.cls

@@ -3,7 +3,7 @@
 \setcounter{errorcontextlines}{100}  \listfiles
 
 \NeedsTeXFormat{LaTeX2e}[1999/12/01]
-\ProvidesClass{ptbletter}[2018/01/17 v0.3a-pre PTB-Brief-Klasse (RN)]
+\ProvidesClass{ptbletter}[2018/01/17 v0.3a PTB-Brief-Klasse (RN)]
 
 \let\ptb@tempdima=\@ovxx
 \let\ptb@tempdimb=\@ovyy
@@ -114,7 +114,8 @@
 \RequirePackage{etoolbox,iflang,trimspaces}
 \AtEndPreamble{%
   \IfLanguageName{ngerman}{
-    \RequirePackage[babel=once,german=guillemets]{csquotes}
+    \AtEndOfClass{\shorthandon{"}}
+    \RequirePackage[autostyle=true,german=guillemets,maxlevel=3]{csquotes}%
   }{%
     \RequirePackage[babel=once]{csquotes}
     \useshorthands*{"}
@@ -124,6 +125,13 @@
   \defineshorthand{"'}{\closeautoquote}
 }
 
+\AtEndOfClass{%
+  \@ifpackageloaded{inputenc}{}{%
+    \catcode`\»=\active
+    \catcode`\«=\active
+  }%
+}
+
 %%%\AtEndOfClass{\shorthandon{"}}
 
 \@setplength{toaddrhpos}{72bp}