Mercurial > emacs

changeset 89000:56933b338052

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rfc2047-encode): Fix last change.
author Dave Love <fx@gnu.org>
date Sun, 18 Aug 2002 16:56:23 +0000
parents cef3d7401a42
children f595663c7323
files lisp/gnus/rfc2047.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/rfc2047.el	Sun Aug 18 13:51:26 2002 +0000
+++ b/lisp/gnus/rfc2047.el	Sun Aug 18 16:56:23 2002 +0000
@@ -265,10 +265,11 @@
   (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))