Avoid using 8bit characters.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c1f7c8f..90802f0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2000-09-17 01:13:46  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * rfc2047.el (rfc2047-q-encoding-alist): Remove = and _ from the
+       pattern. Avoid using 8 bit chars.
+       * qp.el (quoted-printable-encode-region): Avoid using 8 bit chars.
+
 2000-09-16 15:57:42  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * smiley.el (smiley-buffer-ems, smiley-create-glyph-ems,

diff --git a/lisp/qp.el b/lisp/qp.el
index ea2a818..5979006 100644 (file)
--- a/lisp/qp.el
+++ b/lisp/qp.el
@@ -98,7 +98,9 @@ encode lines starting with \"From\"."
       ;; Encode all the non-ascii and control characters.
       (goto-char (point-min))
       (while (and (skip-chars-forward
-                  (or class "^\000-\007\013\015-\037\200-\377="))
+                  ;; Avoid using 8bit characters. = is \075.
+                  ;; Equivalent to "^\000-\007\013\015-\037\200-\377="
+                  (or class "\010-\012\014\040-\074\076-\177"))
                  (not (eobp)))
        (insert
         (prog1

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index 7a86311..0b10d04 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -79,8 +79,11 @@ Valid encodings are nil, `Q' and `B'.")
   "Alist of RFC2047 encodings to encoding functions.")
 
 (defvar rfc2047-q-encoding-alist
-  '(("\\(From\\|Cc\\|To\\|Bcc\||Reply-To\\):" . "-A-Za-z0-9!*+/=_")
-    ("." . "^\000-\007\011\013\015-\037\200-\377=_?"))
+  '(("\\(From\\|Cc\\|To\\|Bcc\||Reply-To\\):" . "-A-Za-z0-9!*+/") 
+    ;; = (\075), _ (\137), ? (\077) are used in the encoded word.
+    ;; Avoid using 8bit characters. Some versions of Emacs has bug!
+    ;; Equivalent to "^\000-\007\011\013\015-\037\200-\377=_?"
+    ("." . "\010\012\014\040-\074\076\100-\136\140-\177"))
   "Alist of header regexps and valid Q characters.")
 
 ;;;