From: yamaoka <yamaoka>
Date: Wed, 28 Feb 2001 01:23:34 +0000 (+0000)
Subject: * gnus-art.el (gnus-article-mime-edit-article-setup): Leave the forwarded
X-Git-Tag: t-gnus-6_15_0-09-quimby~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c58c1fc4d7c691e4c9dde7a77ac8775cc9c9e035;p=elisp%2Fgnus.git-

* gnus-art.el (gnus-article-mime-edit-article-setup): Leave the forwarded
 parts undecoded.
(gnus-article-decode-article-as-default-mime-charset): Set the value of
 `default-mime-charset' buffer-locally.
---

diff --git a/ChangeLog b/ChangeLog
index 6eab742..f309258 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2001-02-28  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/gnus-art.el (gnus-article-mime-edit-article-setup): Leave
+	the forwarded parts undecoded.
+	(gnus-article-decode-article-as-default-mime-charset): Set the
+	value of `default-mime-charset' buffer-locally.
+
 2001-02-27  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* lisp/gnus.el: Add autoloads for
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 315d5e6..6ace398 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3585,9 +3585,11 @@ If ALL-HEADERS is non-nil, no headers are hidden."
   "Decode an article as `default-mime-charset'.  It won't work if the
 value of the variable `gnus-show-mime' is non-nil."
   (unless gnus-show-mime
+    (set (make-local-variable 'default-mime-charset)
+	 (with-current-buffer gnus-summary-buffer
+	   default-mime-charset))
     (decode-mime-charset-region (point-min) (point-max)
-				(with-current-buffer gnus-summary-buffer
-				  default-mime-charset))))
+				default-mime-charset)))
 
 ;;;
 ;;; Gnus MIME viewing functions
@@ -5103,7 +5105,18 @@ after replacing with the original article."
 			     gnus-article-edit-mode-map)
   (erase-buffer)
   (insert-buffer gnus-original-article-buffer)
-  (mime-edit-again)
+  (let ((ofn (symbol-function 'mime-edit-decode-single-part-in-buffer)))
+    (fset 'mime-edit-decode-single-part-in-buffer
+	  (lambda (&rest args)
+	    (if (let ((content-type (car args)))
+		  (and (eq 'message (mime-content-type-primary-type
+				     content-type))
+		       (eq 'rfc822 (mime-content-type-subtype content-type))))
+		(setcar (cdr args) 'not-decode-text))
+	    (apply ofn args)))
+    (unwind-protect
+	(mime-edit-again)
+      (fset 'mime-edit-decode-single-part-in-buffer ofn)))
   (when (featurep 'font-lock)
     (set (make-local-variable 'font-lock-defaults)
 	 '(message-font-lock-keywords t))