Mercurial > emacs

comparison lisp/mail/emacsbug.el @ 39067:781a740a46a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(report-emacs-bug): Make sure *Messages* exists. From Andy Petrusenco <andy@int.spb.ru>.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 31 Aug 2001 17:59:42 +0000
parents 253f761ad37b
children 448873845bcc
comparison
equal deleted inserted replaced
39066:ed3408a1ca8b 39067:781a740a46a0
75 ;; If there are four numbers in emacs-version, this is a pretest 75 ;; If there are four numbers in emacs-version, this is a pretest
76 ;; version. 76 ;; version.
77 (let ((pretest-p (string-match "\\..*\\..*\\." emacs-version)) 77 (let ((pretest-p (string-match "\\..*\\..*\\." emacs-version))
78 user-point message-end-point) 78 user-point message-end-point)
79 (setq message-end-point 79 (setq message-end-point
80 (with-current-buffer (get-buffer "*Messages*") 80 (with-current-buffer (get-buffer-create "*Messages*")
81 (point-max-marker))) 81 (point-max-marker)))
82 (compose-mail (if pretest-p 82 (compose-mail (if pretest-p
83 report-emacs-bug-pretest-address 83 report-emacs-bug-pretest-address
84 report-emacs-bug-address) 84 report-emacs-bug-address)
85 topic) 85 topic)