[Emacs-diffs] Changes to emacs/lisp/mail/emacsbug.el

[Richard M. Stallman]

Index: emacs/lisp/mail/emacsbug.el
diff -c emacs/lisp/mail/emacsbug.el:1.60 emacs/lisp/mail/emacsbug.el:1.61
*** emacs/lisp/mail/emacsbug.el:1.60    Tue Sep 30 08:45:44 2003
--- emacs/lisp/mail/emacsbug.el Sun Oct  5 09:51:43 2003
***************
*** 79,84 ****
--- 79,85 ----
    ;; 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,152 ****
      (insert (format "  default-enable-multibyte-characters: %s\n"
                    default-enable-multibyte-characters))
      (insert "\n")
!     (insert (format "Major mode: %s\n" mode-name))
      (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)))))
      (insert "\n")
      (insert "Recent input:\n")
      (let ((before-keys (point)))
--- 142,155 ----
      (insert (format "  default-enable-multibyte-characters: %s\n"
                    default-enable-multibyte-characters))
      (insert "\n")
!     (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) (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)))