From: yamaoka <yamaoka>
Date: Sat, 5 Jul 2003 00:08:02 +0000 (+0000)
Subject: Synch to Gnus 200307041838.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5a395315ff21e85e56afe0c38f9c92a663d21b88;p=elisp%2Fgnus.git-

Synch to Gnus 200307041838.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2bb2b9e..1ada58a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-04  Dave Love  <fx@gnu.org>
+
+	* rfc2047.el (rfc2047-q-encode-region): Exclude especials from
+	characters not encoded, and make the list more legible.
+
 2003-07-04  Jesper Harder  <harder@ifa.au.dk>
 
 	* message.el (message-make-from): Revert change from 2002-01-08.
diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index 6530aaa..8e3523e 100644
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -562,8 +562,13 @@ By default, the region is treated as containing addresses (see
 	 b e nil
 	 ;; = (\075), _ (\137), ? (\077) are used in the encoded word.
 	 ;; Avoid using 8bit characters.
-	 ;; Equivalent to "^\000-\007\011\013\015-\037\200-\377=_?"
-	 "\010\012\014\040-\074\076\100-\136\140-\177")
+	 ;; This list excludes `especials' (see the RFC2047 syntax),
+	 ;; meaning that some characters in non-structured fields will
+	 ;; get encoded when they con't need to be.  The following is
+	 ;; what it used to be.
+;;;  	 ;; Equivalent to "^\000-\007\011\013\015-\037\200-\377=_?"
+;;;  	 "\010\012\014\040-\074\076\100-\136\140-\177")
+	 "-\b\n\f !#-'*+0-9A-Z\\^`-~\d")
 	(subst-char-in-region (point-min) (point-max) ?  ?_)
 	;; The size of QP encapsulation is about 20, so set limit to
 	;; 56=76-20.