# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1026254130 0
# Node ID a442639ed7a045eb9f9dfac3e7c759eb29402177
# Parent  0a02d452fece3e4d6863539288aa18807f7dba5c
(mm-find-mime-charset-region): Fix :mime-charset
part.

diff -r 0a02d452fece -r a442639ed7a0 lisp/gnus/mm-util.el
--- a/lisp/gnus/mm-util.el	Sat Jul 06 16:47:15 2002 +0000
+++ b/lisp/gnus/mm-util.el	Tue Jul 09 22:35:30 2002 +0000
@@ -504,9 +504,9 @@
 	       (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 @@
 (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 @@
 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)))