Function: reporter-bug-hook

reporter-bug-hook is a byte-compiled function defined in reporter.el.gz.

Signature

(reporter-bug-hook)

Documentation

Prohibit sending mail if empty bug report.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/reporter.el.gz
(defun reporter-bug-hook ()
  "Prohibit sending mail if empty bug report."
  (let ((after-sep-pos
	 (save-excursion
	   (rfc822-goto-eoh)
	   (forward-line 1)
	   (point))))
    (save-excursion
      (goto-char (point-max))
      (skip-chars-backward " \t\n")
      (if (and (= (- (point) after-sep-pos)
		  (length reporter-initial-text))
	       (string= (buffer-substring after-sep-pos (point))
			reporter-initial-text))
	  (error "Empty bug report cannot be sent"))
      )))