From: yamaoka <yamaoka>
Date: Fri, 1 Oct 1999 11:08:21 +0000 (+0000)
Subject: (gnus-bug): Use text/plain for the snooped environment part.
X-Git-Tag: t-gnus-6_13_2-01~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ae3e7dcb2b19197956d1a5b86daa2b7fc8748683;p=elisp%2Fgnus.git-

(gnus-bug): Use text/plain for the snooped environment part.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 13a1a51..ca8dc13 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -952,10 +952,11 @@ If YANK is non-nil, include the original article."
 	       (stringp nntp-server-type))
       (insert nntp-server-type))
     (insert "\n\n\n\n\n")
-    (save-excursion
-      (set-buffer (gnus-get-buffer-create " *gnus environment info*"))
-      (gnus-debug))
-    (insert "<#part type=application/x-emacs-lisp buffer=\" *gnus environment info*\" disposition=inline description=\"User settings\"><#/part>")
+    (let (mime-content-types)
+      (mime-edit-insert-tag "text" "plain" "; type=emacs-lisp"))
+    (insert (with-temp-buffer
+	      (gnus-debug)
+	      (buffer-string)))
     (goto-char (point-min))
     (search-forward "Subject: " nil t)
     (message "")))