tm 7.77.

[elisp/tm.git] / gnus / gnus-sum-mime.el

diff --git a/gnus/gnus-sum-mime.el b/gnus/gnus-sum-mime.el
index 1da1760..bbbe8f3 100644 (file)
--- a/gnus/gnus-sum-mime.el
+++ b/gnus/gnus-sum-mime.el
@@ -7,7 +7,7 @@
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1996/8/6
 ;;; Version:
-;;;    $Id: gnus-sum-mime.el,v 0.1 1996/08/06 12:00:53 morioka Exp $
+;;;    $Id: gnus-sum-mime.el,v 0.2 1996/08/09 12:29:10 morioka Exp $
 ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is not part of GNU Emacs yet.
@@ -36,24 +36,31 @@
 ;;;
 
 (defun gnus-set-summary-default-charset ()
-  (decode-mime-charset-region
-   (point-min)(point-max)
-   (save-excursion
-     (set-buffer gnus-summary-buffer)
-     (let ((rest gnus-newsgroup-default-charset-alist)
-          cell)
-       (catch 'tag
-        (while (setq cell (car rest))
-          (if (string-match (car cell) gnus-newsgroup-name)
-              (throw 'tag
-                     (progn
-                       (make-local-variable 'default-mime-charset)
-                       (setq default-mime-charset (cdr cell))
-                       )))
-          (setq rest (cdr rest))
-          )))
-     default-mime-charset)
-   ))
+  (let ((charset
+        (save-excursion
+          (set-buffer gnus-summary-buffer)
+          (let ((rest gnus-newsgroup-default-charset-alist)
+                cell)
+            (catch 'tag
+              (while (setq cell (car rest))
+                (if (string-match (car cell) gnus-newsgroup-name)
+                    (throw 'tag
+                           (progn
+                             (make-local-variable 'default-mime-charset)
+                             (setq default-mime-charset (cdr cell))
+                             )))
+                (setq rest (cdr rest))
+                )))
+          default-mime-charset)))
+    (goto-char (point-min))
+    (while (< (point)(point-max))
+      (decode-mime-charset-region (point)
+                                 (progn
+                                   (end-of-line)
+                                   (point))
+                                 default-mime-charset)
+      (forward-char)
+      )))
 
 
 ;;; @ command functions