From: Dave Love <fx@gnu.org>
Date: Tue, 9 Jul 2002 22:35:42 +0000 (+0000)
Subject: (mm-find-mime-charset-region): Fix :mime-charset
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~581
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f615c3bbeac251e2a5669faf2ca3d598f2c6445c;p=emacs.git

(mm-find-mime-charset-region): Fix :mime-charset
part.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 83da327041d..8b6e35a5a02 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-09  Dave Love  <fx@gnu.org>
+
+	* mm-util.el (mm-find-mime-charset-region): Fix :mime-charset
+	part.
+
 2002-06-26  Dave Love  <fx@gnu.org>
 
 	* rfc2047.el (rfc2047-encodable-p): Avoid mm-find-charset-region.
diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el
index 3ae754c2462..c7866e8ca6c 100644
--- a/lisp/gnus/mm-util.el
+++ b/lisp/gnus/mm-util.el
@@ -504,9 +504,9 @@ charset, and a longer list means no appropriate charset."
 	       (setq systems (delq 'compound-text systems))
 	       (unless (equal systems '(undecided))
 		 (while systems
-		   (let ((cs (or (coding-system-get (pop systems)
-						    :mime-charset)
-				 (coding-system-get systems 'mime-charset))))
+		   (let* ((head (pop systems))
+			  (cs (or (coding-system-get head :mime-charset)
+				  (coding-system-get head 'mime-charset))))
 		     (if cs
 			 (setq systems nil
 			       charsets (list cs))))))
@@ -537,7 +537,7 @@ Use unibyte mode for this."
 (put 'mm-with-unibyte-buffer 'edebug-form-spec '(body))
 
 (defmacro mm-with-unibyte-current-buffer (&rest forms)
-  "Evaluate FORMS with current current buffer temporarily made unibyte.
+  "Evaluate FORMS with current buffer temporarily made unibyte.
 Also bind `default-enable-multibyte-characters' to nil.
 Equivalent to `progn' in XEmacs"
   (let ((multibyte (make-symbol "multibyte"))
@@ -632,7 +632,7 @@ Equivalent to `progn' in XEmacs"
 A buffer may be modified in several ways after reading into the buffer due
 to advanced Emacs features, such as file-name-handlers, format decoding,
 find-file-hooks, etc.
-If INHIBIT is non-nil, inhibit mm-inhibit-file-name-handlers.
+If INHIBIT is non-nil, inhibit `mm-inhibit-file-name-handlers'.
   This function ensures that none of these modifications will take place."
   (let ((format-alist nil)
 	(auto-mode-alist (if inhibit nil (mm-auto-mode-alist)))