* 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 (file)
--- 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 (file)
--- 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)