Index: mutt-orphan
===================================================================
--- mutt-orphan	(revision 2075)
+++ mutt-orphan	(working copy)
@@ -13,7 +13,7 @@
     echo ""
     echo "    -h print this help"
     echo "    -b specify the BCC address yourself instead of generate it with mia-*@qa.debian.org"
-    echo "    -r give the reason of orphaning (orphan or mia)"
+    echo "    -r give the reason of orphaning (orphan, mia or retired)"
     echo ""
     exit 1
   }
@@ -29,7 +29,7 @@
       shift
     ;;
     -r)
-      if [ "$2" = "mia" -o "$2" = "orphan" ] ; then
+      if [ "$2" = "mia" -o "$2" = "orphan" -o "$2" = "retired" ] ; then
        REASON=$2
        shift
       else
@@ -56,11 +56,11 @@
   exit 1
 fi
 
-if [ $REASON = "orphan" ]; then
-       reason_text="has orphaned this package."
-else
-       reason_text="is apparently not active anymore.  Therefore, I orphan this package now."
-fi
+case "$REASON" in
+  orphan) reason_text="has orphaned this package.";;
+  mia) reason_text="is apparently not active anymore.  Therefore, I orphan this package now.";;
+  retired) reason_text="has retired.  Therefore, I orphan this package now."
+esac
 
 (
 cat <<EOF