From b6ca5efc9ad6cb7bb8384960ee73e608091d50c7 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 22 Dec 2000 07:03:07 +0000 Subject: [PATCH] * lisp/gnus-msg.el (gnus-debug): Use `sit-for' in the inside of `save-excursion'. (gnus-bug): Pop up the sending buffer first. --- ChangeLog | 4 ++++ lisp/gnus-msg.el | 10 +++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 28ab211..240634d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2000-12-22 Katsumi Yamaoka + * 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) -- 1.7.10.4