(rmail-get-new-mail): Remove extra format string

[gnu-emacs] / lisp / mail / reporter.el

diff --git a/lisp/mail/reporter.el b/lisp/mail/reporter.el
index 341ef8de2b26335e48af2baad7859bfe7206d324..6e609a1f365043cbc0c6375498097e0ef2a6022c 100644 (file)
--- a/lisp/mail/reporter.el
+++ b/lisp/mail/reporter.el
@@ -317,8 +317,8 @@ This function prompts for a summary if `reporter-prompt-for-summary-p'
 is non-nil.
 
 This function does not send a message; it uses the given information
-to initialize a a messagem, which the user can then edit and finally send
-(or decline to send).  The variable `mail-user-agent' controls which
+to initialize a message, which the user can then edit and finally send
+\(or decline to send).  The variable `mail-user-agent' controls which
 mail-sending package is used for editing and sending the message."
   (let ((reporter-eval-buffer (current-buffer))
        final-resting-place
@@ -370,9 +370,7 @@ mail-sending package is used for editing and sending the message."
       (skip-chars-backward " \t\n")
       (setq reporter-initial-text (buffer-substring after-sep-pos (point))))
     (if (setq hookvar (get agent 'hookvar))
-       (progn
-         (make-variable-buffer-local hookvar)
-         (add-hook hookvar 'reporter-bug-hook)))
+       (add-hook hookvar 'reporter-bug-hook nil t))
 
     ;; compose the minibuf message and display this.
     (let* ((sendkey-whereis (where-is-internal
@@ -409,4 +407,6 @@ mail-sending package is used for editing and sending the message."
 
 \f
 (provide 'reporter)
+
+;;; arch-tag: 33612ff4-fbbc-4be2-b183-560ce9e0199b
 ;;; reporter.el ends here