diff --git a/mail/Makefile b/mail/Makefile
index d4dae2149b8c..4478be4eb899 100644
--- a/mail/Makefile
+++ b/mail/Makefile
@@ -432,6 +432,7 @@
     SUBDIR += sylpheed-gtk2
     SUBDIR += sympa
     SUBDIR += sympa-elixus
+    SUBDIR += t-prot
     SUBDIR += teapop
     SUBDIR += teapop-devel
     SUBDIR += thunderbird
diff --git a/mail/t-prot/Makefile b/mail/t-prot/Makefile
new file mode 100644
index 000000000000..73a7b07e652c
--- /dev/null
+++ b/mail/t-prot/Makefile
@@ -0,0 +1,34 @@
+# New ports collection makefile for:	t-prot
+# Date created:		2004-10-03
+# Whom:			Sergei Kolobov <sergei@FreeBSD.org>
+#
+# $FreeBSD$
+#
+
+PORTNAME=	t-prot
+PORTVERSION=	1.44
+CATEGORIES=	mail
+MASTER_SITES=	http://www.escape.de/users/tolot/mutt/t-prot/downloads/
+
+MAINTAINER=	sergei@FreeBSD.org
+COMMENT=	TOFU Protection - Display Filter for RFC822 messages
+
+RUN_DEPENDS=	${SITE_PERL}/Getopt/Mixed.pm:${PORTSDIR}/devel/p5-Getopt-Mixed
+
+USE_PERL5=	yes
+NO_BUILD=	yes
+
+MAN1=		t-prot.1
+DOCS=		BUGS ChangeLog README TODO
+
+do-install:
+	${INSTALL_SCRIPT} ${WRKSRC}/t-prot ${PREFIX}/bin
+	${INSTALL_MAN} ${WRKSRC}/t-prot.1 ${MAN1PREFIX}/man/man1
+	@${MKDIR} ${EXAMPLESDIR}
+	${INSTALL_DATA} ${WRKSRC}/contrib/* ${EXAMPLESDIR}
+.if !defined(NOPORTDOCS)
+	@${MKDIR} ${DOCSDIR}
+	cd ${WRKSRC} && ${INSTALL_DATA} ${DOCS} ${DOCSDIR}
+.endif
+
+.include <bsd.port.mk>
diff --git a/mail/t-prot/distinfo b/mail/t-prot/distinfo
new file mode 100644
index 000000000000..fb8649587be0
--- /dev/null
+++ b/mail/t-prot/distinfo
@@ -0,0 +1,2 @@
+MD5 (t-prot-1.44.tar.gz) = 1c739341c2ae29e7c972249a5a2dbc6a
+SIZE (t-prot-1.44.tar.gz) = 44887
diff --git a/mail/t-prot/pkg-descr b/mail/t-prot/pkg-descr
new file mode 100644
index 000000000000..56c29b1fceec
--- /dev/null
+++ b/mail/t-prot/pkg-descr
@@ -0,0 +1,14 @@
+This program is a filter which shall improve the readability for messages
+(emails and posts) by *hiding* some annoying parts, including:
+- mailing list footers
+- excessive quoting 
+- overlong signatures
+- Outlook-style "TOFU" (text above - full quote below)
+- squeeze sequences of blank lines or punctuation
+
+Its primary mode of operation is a display filter in MUA (it has special
+support for Mutt), but it can also be used in MTA/MDA - e.g. for immediately
+bouncing "improper" messages.
+
+Author:	Jochen Striepe <t-prot@tolot.escape.de>
+WWW:	http://www.escape.de/users/tolot/mutt/
diff --git a/mail/t-prot/pkg-plist b/mail/t-prot/pkg-plist
new file mode 100644
index 000000000000..08479ed328b6
--- /dev/null
+++ b/mail/t-prot/pkg-plist
@@ -0,0 +1,15 @@
+@comment $FreeBSD$
+bin/t-prot
+%%PORTDOCS%%%%DOCSDIR%%/BUGS
+%%PORTDOCS%%%%DOCSDIR%%/ChangeLog
+%%PORTDOCS%%%%DOCSDIR%%/README
+%%PORTDOCS%%%%DOCSDIR%%/TODO
+%%PORTDOCS%%@dirrm %%DOCSDIR%%
+%%EXAMPLESDIR%%/README.examples
+%%EXAMPLESDIR%%/README.patches
+%%EXAMPLESDIR%%/filter_innd.pl
+%%EXAMPLESDIR%%/muttrc.t-prot
+%%EXAMPLESDIR%%/t-prot-r1.190-gpg125.diff
+%%EXAMPLESDIR%%/t-prot-r1.191-gpg124.diff
+%%EXAMPLESDIR%%/t-prot-r1.199-mutt156.diff
+%%EXAMPLESDIR%%/t-prot.sl