From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 16 Jul 2001 01:50:49 +0000 (+0000)
Subject: (reporter-submit-bug-report):
X-Git-Tag: emacs-pretest-21.0.105~508
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1407571dbe26b5b484dbf4f3d434c788969eebb2;p=emacs.git

(reporter-submit-bug-report):
Don't abuse make-variable-buffer-local.  Fix call to add-hook.
---

diff --git a/lisp/mail/reporter.el b/lisp/mail/reporter.el
index 341ef8de2b2..60fabaebf0f 100644
--- a/lisp/mail/reporter.el
+++ b/lisp/mail/reporter.el
@@ -318,7 +318,7 @@ 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
+\(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