From: Dave Love Date: Sun, 18 Aug 2002 16:57:27 +0000 (+0000) Subject: (rfc2047-encode): Fix last change. X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~435 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=27acb5b67d5633c35f306e0a8d6167ae50197b03;p=emacs.git (rfc2047-encode): Fix last change. --- 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))