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

[Thien-Thi Nguyen]

Index: emacs/lisp/mail/emacsbug.el
diff -c emacs/lisp/mail/emacsbug.el:1.51 emacs/lisp/mail/emacsbug.el:1.52
*** emacs/lisp/mail/emacsbug.el:1.51    Fri Aug 31 13:59:42 2001
--- emacs/lisp/mail/emacsbug.el Wed Mar 20 21:09:51 2002
***************
*** 128,134 ****
                    default-enable-multibyte-characters))
      (insert "\n")
      (insert "Please describe exactly what actions triggered the bug\n"
!           "and the precise symptoms of the bug:\n\n") 
      (setq user-point (point))
      (insert "\n\n\n"
            "Recent input:\n")
--- 128,134 ----
                    default-enable-multibyte-characters))
      (insert "\n")
      (insert "Please describe exactly what actions triggered the bug\n"
!           "and the precise symptoms of the bug:\n\n")
      (setq user-point (point))
      (insert "\n\n\n"
            "Recent input:\n")
***************
*** 236,242 ****
  please insert the proper e-mail address after \"To: \",
  and send the mail again using \\[mail-send-and-exit].")))
        (error "M-x report-emacs-bug was cancelled, please read *Bug Help* 
buffer"))
!     ))
  
  (provide 'emacsbug)
  
--- 236,250 ----
  please insert the proper e-mail address after \"To: \",
  and send the mail again using \\[mail-send-and-exit].")))
        (error "M-x report-emacs-bug was cancelled, please read *Bug Help* 
buffer"))
! 
!     ;; Unclutter
!     (mail-text)
!     (let ((p (point)))
!       (re-search-forward (concat "^In " (emacs-version)))
!       (delete-region p (match-beginning 0)))
!     (re-search-forward "Please describe.+\n.+precise symptoms.+bug:\n*"
!                        (point-max) t)
!     (replace-match "Symptoms:\n")))
  
  (provide 'emacsbug)