* rfc2047.el (message-posting-charset): Defvar it.

	(rfc2047-charset-encoding-alist): Use B for iso-8859-7 and iso-8859-8. Fix doc.
	Suggested by Dave Love <fx@gnu.org>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 244b7f6..44d6ba8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2002-09-13  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * rfc2047.el (message-posting-charset): Defvar it.
+       (rfc2047-charset-encoding-alist): Use B for iso-8859-7 and iso-8859-8. Fix doc.
+       Suggested by Dave Love <fx@gnu.org>.
+
        * mail-source.el (mail-source-fetch): Hide password.
 
        * gnus-sum.el (gnus-summary-next-group): Semi-exit only when needed.

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index 1947b9e..cd54fa7 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -27,7 +27,9 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'cl))
+(eval-when-compile
+  (require 'cl)
+  (defvar message-posting-charset))
 
 (require 'qp)
 (require 'mm-util)
@@ -65,8 +67,8 @@ The values can be:
     (iso-8859-4 . Q)
     (iso-8859-5 . B)
     (koi8-r . B)
-    (iso-8859-7 . Q)
-    (iso-8859-8 . Q)
+    (iso-8859-7 . B)
+    (iso-8859-8 . B)
     (iso-8859-9 . Q)
     (iso-8859-14 . Q)
     (iso-8859-15 . Q)
@@ -81,7 +83,8 @@ The values can be:
     (iso-2022-jp-2 . B)
     (iso-2022-int-1 . B))
   "Alist of MIME charsets to RFC2047 encodings.
-Valid encodings are nil, `Q' and `B'.")
+Valid encodings are nil, `Q' and `B'.  These indicate binary (no) encoding,
+quoted-printable and base64 respectively.")
 
 (defvar rfc2047-encoding-function-alist
   '((Q . rfc2047-q-encode-region)