(rfc2047-encode): Fix last change.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 447ae696dc78e70e6c51bfe11015e3c5502b8590..302259dfae7aa4dbef4166b5e26ce27fb457e5e1 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2002-08-18  Dave Love  <fx@gnu.org>
+
+       * rfc2047.el (rfc2047-encode): Fix last change.
+
 2002-07-30  Dave Love  <fx@gnu.org>
 
        * rfc2047.el (rfc2047-charset-encoding-alist): Use B for Hebrew.

diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el
index d09534a27c19454a967e8321496c716068c5ed36..c1dad4197dc99e6ff686dc315f845f47aa08ce50 100644 (file)
--- a/lisp/gnus/rfc2047.el
+++ b/lisp/gnus/rfc2047.el
@@ -265,10 +265,11 @@ The buffer may be narrowed."
   (let* ((buff (current-buffer))
         (mime-charset (with-temp-buffer
                         (insert-buffer-substring buff b e)
-                        (mm-find-mime-charset-region b e)))
+                        (mm-find-mime-charset-region 1 (point-max))))
         (cs (if (> (length mime-charset) 1)
-                (mm-charset-to-coding-system mime-charset)
-              (error "Can't encode word: %s" (buffer-substring b e))))
+                (error "Can't encode word: %s" (buffer-substring b e))
+              (setq mime-charset (car mime-charset))
+              (mm-charset-to-coding-system mime-charset)))
         (encoding (or (cdr (assq mime-charset
                                  rfc2047-charset-encoding-alist))
                       'B))