Author: Alexander Zangerl <az@debian.org>
Subject: use appropriate hostname command for finding the FQDN

--- a/lib/receipt.tcl
+++ b/lib/receipt.tcl
@@ -10,7 +10,7 @@ proc MDNAskReceipt { draft t } {
     if {[info exists mime(mdnTo)] && $mime(mdnTo) != {}} {
 	set mdnTo $mime(mdnTo)
     } else {
-	set host [exec hostname]
+	set host [exec hostname --fqdn]
 	set domain $faces(defaultDomain)
 
 	if {$domain == ""} {
@@ -460,7 +460,7 @@ which means:
 
 proc MDNBuildDraft { draft address doit choice} {
     global env mimeHdr faces exmh
-    set host [exec hostname]
+    set host [exec hostname --fqdn]
 
     # If /bin/hostname has a '.' in it, assume it's already a FQDN.
     if [ regexp {\.} $host ] {
