(report-emacs-bug): Make sure *Messages*

exists.  From Andy Petrusenco <andy@int.spb.ru>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2c2eb84ba64190600c54373590e227b0055d82cc..8ef46c40befde96323755d6c173abee4927770ef 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,11 @@
 2001-08-31  Eli Zaretskii  <eliz@is.elta.co.il>
 
+       * mail/emacsbug.el (report-emacs-bug): Make sure *Messages*
+       exists.  From Andy Petrusenco <andy@int.spb.ru>.
+
        * hi-lock.el (hi-lock-unface-buffer): Don't call x-popup-menu if
-       display-popup-menus-p returns nil.
+       display-popup-menus-p returns nil.  Suggested by Andy Petrusenco
+       <andy@int.spb.ru>.
 
 2001-08-31  Gerd Moellmann  <gerd@gnu.org>
 

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index ccccdddea586bd52aeef6df94d1b99a78b8c2f1b..8da08494addd64b93c0a725ecbcf77dd2a1ddde3 100644 (file)
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -77,7 +77,7 @@ Prompts for bug subject.  Leaves you in a mail buffer."
   (let ((pretest-p (string-match "\\..*\\..*\\." emacs-version))
        user-point message-end-point)
     (setq message-end-point
-         (with-current-buffer (get-buffer "*Messages*")
+         (with-current-buffer (get-buffer-create "*Messages*")
            (point-max-marker)))
     (compose-mail (if pretest-p
                      report-emacs-bug-pretest-address