(report-emacs-bug-hook): Do another save-excursion.

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 667a352f6d6466487cb2b011f937f12ecf8448f3..2e6e3c6b2966905df244667f69026fa3fc440511 100644 (file)
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -203,13 +203,14 @@ Type SPC to scroll through this section and its subsections."))))
 
 (defun report-emacs-bug-hook ()
   (save-excursion
-    (goto-char (point-max))
-    (skip-chars-backward " \t\n")
-    (if (and (= (- (point) (point-min))
-               (length report-emacs-bug-orig-text))
-            (equal (buffer-substring (point-min) (point))
-                   report-emacs-bug-orig-text))
-       (error "No text entered in bug report"))
+    (save-excursion
+      (goto-char (point-max))
+      (skip-chars-backward " \t\n")
+      (if (and (= (- (point) (point-min))
+                 (length report-emacs-bug-orig-text))
+              (equal (buffer-substring (point-min) (point))
+                     report-emacs-bug-orig-text))
+         (error "No text entered in bug report")))
 
     ;; Check the buffer contents and reject non-English letters.
     (save-excursion