From: yamaoka <yamaoka>
Date: Fri, 22 Dec 2000 07:03:07 +0000 (+0000)
Subject: * lisp/gnus-msg.el (gnus-debug): Use `sit-for' in the inside of
X-Git-Tag: t-gnus-6_15_0-01-quimby~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b6ca5efc9ad6cb7bb8384960ee73e608091d50c7;p=elisp%2Fgnus.git-

* lisp/gnus-msg.el (gnus-debug): Use `sit-for' in the inside of
 `save-excursion'.
(gnus-bug): Pop up the sending buffer first.
---

diff --git a/ChangeLog b/ChangeLog
index 28ab211..240634d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2000-12-22  Katsumi Yamaoka <yamaoka@jpl.org>
 
+	* lisp/gnus-msg.el (gnus-debug): Use `sit-for' in the inside of
+	`save-excursion'.
+	(gnus-bug): Pop up the sending buffer first.
+
 	* lisp/gnus-art.el (article-treat-dumbquotes): Quote backslashes in
 	doc-string.
 
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 6615b7e..486229f 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -983,13 +983,15 @@ If YANK is non-nil, include the original article."
     (error "Gnus has been shut down"))
   (gnus-setup-message (if (message-mail-user-agent) 'message 'bug)
     (unless (message-mail-user-agent)
+      (message-pop-to-buffer "*Gnus Bug*")
       (delete-other-windows)
       (when gnus-bug-create-help-buffer
 	(switch-to-buffer "*Gnus Help Bug*")
 	(erase-buffer)
 	(insert gnus-bug-message)
-	(goto-char (point-min)))
-      (message-pop-to-buffer "*Gnus Bug*"))
+	(goto-char (point-min))
+	(sit-for 0)
+	(set-buffer "*Gnus Bug*")))
     (let ((message-this-is-mail t))
       (message-setup `((To . ,gnus-maintainer) (Subject . ""))))
     (when gnus-bug-create-help-buffer
@@ -1006,6 +1008,8 @@ If YANK is non-nil, include the original article."
 	       (stringp nntp-server-type))
       (insert nntp-server-type))
     (insert "\n\n\n\n\n")
+    (let (mime-content-types)
+      (mime-edit-insert-tag "text" "plain" "; type=emacs-lisp"))
     (insert (with-temp-buffer
 	      (gnus-debug)
 	      (buffer-string)))
@@ -1063,9 +1067,9 @@ The source file has to be in the Emacs load path."
 	(point (point))
 	file expr olist sym)
     (gnus-message 4 "Please wait while we snoop your variables...")
-    (sit-for 0)
     ;; Go through all the files looking for non-default values for variables.
     (save-excursion
+      (sit-for 0)
       (set-buffer (gnus-get-buffer-create " *gnus bug info*"))
       (while files
 	(erase-buffer)