[interchange-cvs] interchange - heins modified code/UserTag/email.tag

[interchange-cvs at icdevgroup.org]

User:      heins
Date:      2005-10-19 15:09:38 GMT
Modified:  code/UserTag email.tag
Log:
* Prevent double-setting of From: header.

Revision  Changes    Path
1.11      +2 -1      interchange/code/UserTag/email.tag


rev 1.11, prev_rev 1.10
Index: email.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/email.tag,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- email.tag	14 Oct 2005 13:04:05 -0000	1.10
+++ email.tag	19 Oct 2005 15:09:38 -0000	1.11
@@ -1,6 +1,6 @@
 # Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
 # Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: email.tag,v 1.10 2005/10/14 13:04:05 racke Exp $
+# $Id: email.tag,v 1.11 2005/10/19 15:09:38 mheins Exp $
 
 UserTag email Order to subject reply from extra
 UserTag email hasEndTag
@@ -74,6 +74,7 @@
 		for(@extra) {
 			m{(.*?):\s+(.*)};
 			my $name = $1 or next;
+			next if lc($name) eq 'from';
 			my $content = $2 or next;
 			$name =~ s/[-_]+/-/g;
 			$name =~ s/\b(\w)/\U$1/g;