Mercurial > emacs

comparison lisp/mail/emacsbug.el @ 18608:9e7f6d074138

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(report-emacs-bug): Don't include messages in *Messages* generated by report-emacs-bug itself.
author Richard M. Stallman <rms@gnu.org>
date Fri, 04 Jul 1997 19:08:11 +0000
parents 19f99191b11d
children 3446ea06d63f
comparison
equal deleted inserted replaced
18607:a7dd2801b909 18608:9e7f6d074138
52 Prompts for bug subject. Leaves you in a mail buffer." 52 Prompts for bug subject. Leaves you in a mail buffer."
53 ;; This strange form ensures that (recent-keys) is the value before 53 ;; This strange form ensures that (recent-keys) is the value before
54 ;; the bug subject string is read. 54 ;; the bug subject string is read.
55 (interactive (reverse (list (recent-keys) (read-string "Bug Subject: ")))) 55 (interactive (reverse (list (recent-keys) (read-string "Bug Subject: "))))
56 (condition-case nil 56 (condition-case nil
57 (let (user-point) 57 (let (user-point message-end-point)
58 (setq message-end-point
59 (with-current-buffer (get-buffer "*Messages*")
60 (point-max-marker)))
58 (compose-mail (if (string-match "\\..*\\..*\\." emacs-version) 61 (compose-mail (if (string-match "\\..*\\..*\\." emacs-version)
59 ;; If there are four numbers in emacs-version, 62 ;; If there are four numbers in emacs-version,
60 ;; this is a pretest version. 63 ;; this is a pretest version.
61 report-emacs-bug-pretest-address 64 report-emacs-bug-pretest-address
62 bug-gnu-emacs) 65 bug-gnu-emacs)
91 (while (progn (move-to-column 50) (not (eobp))) 94 (while (progn (move-to-column 50) (not (eobp)))
92 (search-forward " " nil t) 95 (search-forward " " nil t)
93 (insert "\n")))) 96 (insert "\n"))))
94 (let ((message-buf (get-buffer "*Messages*"))) 97 (let ((message-buf (get-buffer "*Messages*")))
95 (if message-buf 98 (if message-buf
96 (progn 99 (let (beg-pos
100 (end-pos message-end-point))
101 (with-current-buffer message-buf
102 (goto-char end-pos)
103 (forward-line -10)
104 (setq beg-pos (point)))
97 (insert "\n\nRecent messages:\n") 105 (insert "\n\nRecent messages:\n")
98 (insert-buffer-substring message-buf 106 (insert-buffer-substring message-buf beg-pos end-pos))))
99 (save-excursion
100 (set-buffer message-buf)
101 (goto-char (point-max))
102 (forward-line -10)
103 (point))
104 (save-excursion
105 (set-buffer message-buf)
106 (point-max))))))
107 ;; This is so the user has to type something 107 ;; This is so the user has to type something
108 ;; in order to send easily. 108 ;; in order to send easily.
109 (use-local-map (nconc (make-sparse-keymap) (current-local-map))) 109 (use-local-map (nconc (make-sparse-keymap) (current-local-map)))
110 (define-key (current-local-map) "\C-c\C-i" 'report-emacs-bug-info) 110 (define-key (current-local-map) "\C-c\C-i" 'report-emacs-bug-info)
111 (with-output-to-temp-buffer "*Bug Help*" 111 (with-output-to-temp-buffer "*Bug Help*"