r59570 - in /trunk/libmime-encwords-perl: Changes EncWords.pm EncWords/JA_JP.pod META.yml README debian/changelog debian/control debian/copyright debian/patches/ debian/patches/series debian/patches/spelling.patch debian/source/ debian/source/format

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Sat Jun 19 00:34:01 UTC 2010 

Author: ansgar-guest
Date: Sat Jun 19 00:33:53 2010
New Revision: 59570

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=59570
Log:
* New upstream release (1.012).
* debian/copyright: Update years of copyright.
* debian/copyright: Formatting changes for current DEP-5 proposal.
* Use source format 3.0 (quilt).
* Fix spelling errors in documentation.
  + new patch: spelling.patch
* Bump Standards-Version to 3.8.4 (no changes).
* Add myself to Uploaders.

Added:
    trunk/libmime-encwords-perl/debian/patches/
    trunk/libmime-encwords-perl/debian/patches/series
    trunk/libmime-encwords-perl/debian/patches/spelling.patch
    trunk/libmime-encwords-perl/debian/source/
    trunk/libmime-encwords-perl/debian/source/format
Modified:
    trunk/libmime-encwords-perl/Changes
    trunk/libmime-encwords-perl/EncWords.pm
    trunk/libmime-encwords-perl/EncWords/JA_JP.pod
    trunk/libmime-encwords-perl/META.yml
    trunk/libmime-encwords-perl/README
    trunk/libmime-encwords-perl/debian/changelog
    trunk/libmime-encwords-perl/debian/control
    trunk/libmime-encwords-perl/debian/copyright

Modified: trunk/libmime-encwords-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-encwords-perl/Changes?rev=59570&op=diff
==============================================================================
--- trunk/libmime-encwords-perl/Changes (original)
+++ trunk/libmime-encwords-perl/Changes Sat Jun 19 00:33:53 2010
@@ -1,3 +1,9 @@
+2010-06-17	Hatuka*nezumi - IKEDA Soji	<hatuka at nezumi.nu>
+
+	* Release 1.012.
+	* encode_mimewords(): New option Minimal => 'DISPNAME' to help
+	  encoding RFC5322 name-addr.
+
 2009-06-16	Hatuka*nezumi - IKEDA Soji	<hatuka at nezumi.nu>
 
 	* Release 1.011.1 - no new features.

Modified: trunk/libmime-encwords-perl/EncWords.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-encwords-perl/EncWords.pm?rev=59570&op=diff
==============================================================================
--- trunk/libmime-encwords-perl/EncWords.pm (original)
+++ trunk/libmime-encwords-perl/EncWords.pm Sat Jun 19 00:33:53 2010
@@ -121,7 +121,7 @@
 #------------------------------
 
 ### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = '1.011.1';
+$VERSION = '1.012';
 
 ### Public Configuration Attributes
 $Config = {
@@ -137,13 +137,13 @@
 
 ### Private Constants
 
-### Nonprintables (controls + x7F + 8bit):
+my $PRINTABLE = "\\x21-\\x7E";
 #my $NONPRINT = "\\x00-\\x1F\\x7F-\\xFF";
-my $PRINTABLE = "\\x21-\\x7E";
 my $NONPRINT = qr{[^$PRINTABLE]}; # Improvement: Unicode support.
 my $UNSAFE = qr{[^\x01-\x20$PRINTABLE]};
 my $WIDECHAR = qr{[^\x00-\xFF]};
 my $ASCIITRANS = qr{^(?:HZ-GB-2312|UTF-7)$}i;
+my $DISPNAMESPECIAL = "\\x22(),:;<>\\x40\\x5C"; # RFC5322 name-addr specials.
 
 #------------------------------
 
@@ -625,13 +625,20 @@
 (if encoding needed) not regarding whitespaces;
 encoded-words exceeding line length will be splitted based only on their
 lengths.
-Default is C<"YES">.
+Default is C<"YES"> by which minimal portions of text are encoded.
+If C<"DISPNAME"> is specified, portions including special characters
+described in RFC5322 (former RFC2822, RFC822) address specification
+(section 3.4) are also encoded.
+This is useful for encoding display-name of address fields.
 
 B<Note>:
 As of release 0.040, default has been changed to C<"YES"> to ensure
 compatibility with MIME::Words.
 On earlier releases, this option was fixed to be C<"NO">.
 
+B<Note>:
+C<"DISPNAME"> option was introduced at release 1.012.
+
 =item Replacement
 B<**>
 
@@ -645,10 +652,11 @@
     my $words = shift;
     my %params = @_;
     my %Params = &_getparams(\%params,
-			     YesNo => [qw(Detect7bit Minimal)],
+			     YesNo => [qw(Detect7bit)],
 			     Others => [qw(Charset Encoding Field Folding
-					   Mapping MaxLineLen Replacement)],
-			     ToUpper => [qw(Charset Encoding Mapping
+					   Mapping MaxLineLen Minimal
+					   Replacement)],
+			     ToUpper => [qw(Charset Encoding Mapping Minimal
 					    Replacement)],
 			    );
     croak "unsupported encoding ``$Params{Encoding}''"
@@ -671,9 +679,18 @@
     my $firstlinelen = $Params{MaxLineLen} -
 	($Params{Field}? length("$Params{Field}: "): 0);
     my $maxrestlen = $Params{MaxLineLen} - length($fwsspc);
+    # minimal encoding flag
+    if (!$Params{Minimal}) {
+	$Params{Minimal} = 'NO';
+    } elsif ($Params{Minimal} !~ /^(NO|DISPNAME)$/) {
+	$Params{Minimal} = 'YES';
+    }
+    # unsafe ASCII sequences
     my $UNSAFEASCII = ($maxrestlen <= 1)?
 	qr{(?: =\? )}ox:
 	qr{(?: =\? | [$PRINTABLE]{$Params{MaxLineLen}} )}ox;
+    $UNSAFEASCII = qr{(?: [$DISPNAMESPECIAL] | $UNSAFEASCII )}ox
+	if $Params{Minimal} eq 'DISPNAME';
 
     unless (ref($words) eq "ARRAY") {
 	my @words = ();
@@ -681,7 +698,7 @@
 	$words =~ s/(?:[\r\n]+[\t ])*[\r\n]+([\t ]|\Z)/$1? " ": ""/eg;
 	$words =~ s/[\r\n]+/ /g;
 	# split if required
-	if ($Params{Minimal} eq "YES") {
+	if ($Params{Minimal} =~ /YES|DISPNAME/) {
 	    my ($spc, $unsafe_last) = ('', 0);
 	    foreach my $w (split(/([\t ]+)/, $words)) {
 		next unless scalar(@words) or length($w); # skip garbage

Modified: trunk/libmime-encwords-perl/EncWords/JA_JP.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-encwords-perl/EncWords/JA_JP.pod?rev=59570&op=diff
==============================================================================
--- trunk/libmime-encwords-perl/EncWords/JA_JP.pod (original)
+++ trunk/libmime-encwords-perl/EncWords/JA_JP.pod Sat Jun 19 00:33:53 2010
@@ -294,15 +294,22 @@
 
 エンコードするテキストの中の自然な語分離子 (要するに空白文字)
 に注意を払う。
-C<"NO"> を指定すると、このモジュールはテキストをまとめてエンコード
-(エンコードがå¿
要なら) し、空白文字を考æ
®ã—ない。
-行長をè¶
える「encoded-word」は単にその長さによって分割される。
-初期値は C<"YES">。
+C<"NO"> を指定すると、
+このモジュールは空白文字を考æ
®ã›ãšã«ãƒ†ã‚­ã‚¹ãƒˆå
¨ä½“をエンコード
+(エンコードがå¿
要なら)
+し、行長をè¶
える「encoded-word」は単にその長さによって分割される。
+初期値は C<"YES"> で、最小限の部分だけエンコードする。
+C<"DISPNAME"> を指定すると、RFC5322 (旧 RFC2822、RFC822)
+のアドレス仕様 (3.4節) で述べている特殊文字を含む部分もエンコードする。
+これはアドレスフィールド中の display-name をエンコードする際に有用である。
 
 B<Note>:
 リリース 0.040 で、初期値が C<"YES"> に変わった。
 MIME::Words との互換性を保つためである。
 それ以前のリリースでは、このオプションは C<"NO"> 固定であった。
+
+B<Note>:
+C<"DISPNAME"> はリリース 1.012 で導å
¥ã•ã‚ŒãŸã€‚
 
 =item Replacement
 B<**>

Modified: trunk/libmime-encwords-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-encwords-perl/META.yml?rev=59570&op=diff
==============================================================================
--- trunk/libmime-encwords-perl/META.yml (original)
+++ trunk/libmime-encwords-perl/META.yml Sat Jun 19 00:33:53 2010
@@ -1,7 +1,7 @@
 --- #YAML:1.0
 name:         MIME-EncWords
 abstract:     deal with RFC 2047 encoded words (improved)
-version:      1.011.1
+version:      1.012
 author:
   - Hatuka*nezumi - IKEDA Soji <hatuka at nezumi.nu>
 license:      perl
@@ -16,7 +16,7 @@
 provides:
     MIME::EncWords:
         file:                      EncWords.pm
-        version:                   1.011.1
+        version:                   1.012
 resources:
     repository: http://hatuka.nezumi.nu/repos/MIME-EncWords/
 meta-spec:

Modified: trunk/libmime-encwords-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-encwords-perl/README?rev=59570&op=diff
==============================================================================
--- trunk/libmime-encwords-perl/README (original)
+++ trunk/libmime-encwords-perl/README Sat Jun 19 00:33:53 2010
@@ -1,6 +1,6 @@
 MIME-EncWords Package.
 
-Copyright (C) 2006-2009 by Hatuka*nezumi - IKEDA Soji <hatuka(at)nezumi.nu>.
+Copyright (C) 2006-2010 by Hatuka*nezumi - IKEDA Soji <hatuka(at)nezumi.nu>.
 
 This package is free software; you can redistribute it and/or modify it 
 under the same terms as Perl itself.

Modified: trunk/libmime-encwords-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-encwords-perl/debian/changelog?rev=59570&op=diff
==============================================================================
--- trunk/libmime-encwords-perl/debian/changelog (original)
+++ trunk/libmime-encwords-perl/debian/changelog Sat Jun 19 00:33:53 2010
@@ -1,8 +1,6 @@
-libmime-encwords-perl (1.011.1-1) UNRELEASED; urgency=low
+libmime-encwords-perl (1.012-1) UNRELEASED; urgency=low
 
-  No new features, fix for old Perls (<= 5.6.x)
-  IGNORE-VERSION: 1.011.1-1
-
+  [ Jonathan Yu ]
   * New upstream release
   * Added /me to Uploaders
   * Cleaned up copyright - the author's name was cited incorrectly
@@ -18,7 +16,17 @@
   * Update jawnsy's email address
   * Update ryan52's email address
 
- -- Ryan Niebur <ryan at debian.org>  Fri, 25 Sep 2009 00:25:29 -0700
+  [ Ansgar Burchardt ]
+  * New upstream release (1.012).
+  * debian/copyright: Update years of copyright.
+  * debian/copyright: Formatting changes for current DEP-5 proposal.
+  * Use source format 3.0 (quilt).
+  * Fix spelling errors in documentation.
+    + new patch: spelling.patch
+  * Bump Standards-Version to 3.8.4 (no changes).
+  * Add myself to Uploaders.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Sat, 19 Jun 2010 09:17:42 +0900
 
 libmime-encwords-perl (1.011-1) unstable; urgency=low
 

Modified: trunk/libmime-encwords-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-encwords-perl/debian/control?rev=59570&op=diff
==============================================================================
--- trunk/libmime-encwords-perl/debian/control (original)
+++ trunk/libmime-encwords-perl/debian/control Sat Jun 19 00:33:53 2010
@@ -4,14 +4,14 @@
 Build-Depends: debhelper (>= 7)
 Build-Depends-Indep: libmime-charset-perl (>= 1.007), libtest-pod-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Standards-Version: 3.8.2
+Standards-Version: 3.8.4
 Homepage: http://search.cpan.org/dist/MIME-EncWords/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libmime-encwords-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libmime-encwords-perl/
 Uploaders: Micah Anderson <micah at debian.org>, Damyan Ivanov <dmn at debian.org>,
  gregor herrmann <gregoa at debian.org>, Rene Mayorga <rmayorga at debian.org>,
  Ryan Niebur <ryan at debian.org>, Nathan Handler <nhandler at ubuntu.com>,
- Jonathan Yu <jawnsy at cpan.org>
+ Jonathan Yu <jawnsy at cpan.org>, Ansgar Burchardt <ansgar at 43-1.org>
 
 Package: libmime-encwords-perl
 Architecture: all

Modified: trunk/libmime-encwords-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-encwords-perl/debian/copyright?rev=59570&op=diff
==============================================================================
--- trunk/libmime-encwords-perl/debian/copyright (original)
+++ trunk/libmime-encwords-perl/debian/copyright Sat Jun 19 00:33:53 2010
@@ -1,13 +1,10 @@
-Format-Specification:
-    http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
-Upstream-Maintainer: IKEDA Soji <hatuka at nezumi.nu>
-Upstream-Source: http://search.cpan.org/dist/MIME-EncWords/
-Upstream-Name: MIME-EncWords
+Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=135
+Maintainer: IKEDA Soji <hatuka at nezumi.nu>
+Source: http://search.cpan.org/dist/MIME-EncWords/
+Name: MIME-EncWords
 
-Files: *
-Copyright: 2006-2009, IKEDA Soji <hatuka at nezumi.nu>
-License-Alias: Perl
-License: Artistic | GPL-1+
+Copyright: 2006-2010, IKEDA Soji <hatuka at nezumi.nu>
+License: Artistic or GPL-1+
 
 Files: debian/*
 Copyright: 2009, Jonathan Yu <jawnsy at cpan.org>
@@ -16,7 +13,7 @@
  2008, Rene Mayorga <rmayorga at debian.org.sv>
  2008, Damyan Ivanov <dmn at debian.org>
  2007, Micah Anderson <micah at debian.org>
-License: Artistic | GPL-1+
+License: Artistic or GPL-1+
 
 License: Artistic
     This program is free software; you can redistribute it and/or modify

Added: trunk/libmime-encwords-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-encwords-perl/debian/patches/series?rev=59570&op=file
==============================================================================
--- trunk/libmime-encwords-perl/debian/patches/series (added)
+++ trunk/libmime-encwords-perl/debian/patches/series Sat Jun 19 00:33:53 2010
@@ -1,0 +1,1 @@
+spelling.patch

Added: trunk/libmime-encwords-perl/debian/patches/spelling.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-encwords-perl/debian/patches/spelling.patch?rev=59570&op=file
==============================================================================
--- trunk/libmime-encwords-perl/debian/patches/spelling.patch (added)
+++ trunk/libmime-encwords-perl/debian/patches/spelling.patch Sat Jun 19 00:33:53 2010
@@ -1,0 +1,33 @@
+From: Ansgar Burchardt <ansgar at 43-1.org>
+Date: Sat, 19 Jun 2010 09:29:57 +0900
+Subject: Fix spelling errors
+
+--- libmime-encwords-perl.orig/EncWords.pm
++++ libmime-encwords-perl/EncWords.pm
+@@ -540,7 +540,7 @@
+ B<*>
+ When RAW is an arrayref,
+ adjacent encoded-words (i.e. elements having non-ASCII charset element)
+-are concatenated.  Then they are splitted taking
++are concatenated.  Then they are split taking
+ care of character boundaries of multibyte sequences when Unicode/multibyte
+ support is enabled.
+ Portions for unencoded data should include surrounding whitespace(s), or
+@@ -590,7 +590,7 @@
+ 
+ A Sequence to fold encoded lines.  The default is C<"\n">.
+ If empty string C<""> is specified, encoded-words exceeding line length
+-(see L</MaxLineLen> below) will be splitted by SPACE.
++(see L</MaxLineLen> below) will be split by SPACE.
+ 
+ B<Note>:
+ B<*>
+@@ -623,7 +623,7 @@
+ in the text to be encoded.
+ If C<"NO"> is specified, this module will encode whole text
+ (if encoding needed) not regarding whitespaces;
+-encoded-words exceeding line length will be splitted based only on their
++encoded-words exceeding line length will be split based only on their
+ lengths.
+ Default is C<"YES"> by which minimal portions of text are encoded.
+ If C<"DISPNAME"> is specified, portions including special characters

Added: trunk/libmime-encwords-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-encwords-perl/debian/source/format?rev=59570&op=file
==============================================================================
--- trunk/libmime-encwords-perl/debian/source/format (added)
+++ trunk/libmime-encwords-perl/debian/source/format Sat Jun 19 00:33:53 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)

More information about the Pkg-perl-cvs-commits mailing list