From 27acb5b67d5633c35f306e0a8d6167ae50197b03 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 18 Aug 2002 16:57:27 +0000 Subject: [PATCH] (rfc2047-encode): Fix last change. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/rfc2047.el | 7 ++++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 447ae696dc7..302259dfae7 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2002-08-18 Dave Love + + * rfc2047.el (rfc2047-encode): Fix last change. + 2002-07-30 Dave Love * rfc2047.el (rfc2047-charset-encoding-alist): Use B for Hebrew. diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el index d09534a27c1..c1dad4197dc 100644 --- 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)) -- 2.39.2