From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 5 Oct 2003 13:51:43 +0000 (+0000)
Subject: (report-emacs-bug): Fix previous change.
X-Git-Tag: ttn-vms-21-2-B4~8624
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3c3ba27b4b12c4f32b75661f9f69ff181dd03531;p=emacs.git

(report-emacs-bug): Fix previous change.
---

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index c4a52299d9a..e93f76c3042 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -79,6 +79,7 @@ Prompts for bug subject.  Leaves you in a mail buffer."
   ;; If there are four numbers in emacs-version, this is a pretest
   ;; version.
   (let ((pretest-p (string-match "\\..*\\..*\\." emacs-version))
+	(from-buffer (current-buffer))
 	user-point prompt-beg-point message-end-point)
     (setq message-end-point
 	  (with-current-buffer (get-buffer-create "*Messages*")
@@ -141,12 +142,14 @@ usually do not have translators to read other languages for them.\n\n")
     (insert (format "  default-enable-multibyte-characters: %s\n"
 		    default-enable-multibyte-characters))
     (insert "\n")
-    (insert (format "Major mode: %s\n" mode-name))
+    (insert (format "Major mode: %s\n"
+		    (buffer-local-value 'mode-name from-buffer)))
     (insert "\n")
     (insert "Minor modes in effect:\n")
     (dolist (mode minor-mode-list)
-      (and (boundp mode) (symbol-value mode)
-	   (insert (format "  %s: %s\n" mode (symbol-value mode)))))
+      (and (boundp mode) (buffer-local-value mode from-buffer)
+	   (insert (format "  %s: %s\n" mode
+			   (buffer-local-value mode from-buffer)))))
     (insert "\n")
     (insert "Recent input:\n")
     (let ((before-keys (point)))