From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 26 Jan 2017 14:07:38 +0000 (+0100)
Subject: Don't allow message-newline-and-reformat to be run outside the body
X-Git-Tag: emacs-26.0.90~870^2~46
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eff6c6ac8503d44cf1d4cb2406fc57148b6a1844;p=emacs.git

Don't allow message-newline-and-reformat to be run outside the body

* lisp/gnus/message.el (message-newline-and-reformat): Error
out if run outside the body of a message (bug#18820).
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 4f9dd093fa2..043ebbc579b 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -3330,6 +3330,8 @@ of lines before the signature intact."
   "Insert four newlines, and then reformat if inside quoted text.
 Prefix arg means justify as well."
   (interactive (list (if current-prefix-arg 'full)))
+  (unless (message-in-body-p)
+    (error "This command only works in the body of the message"))
   (let (quoted point beg end leading-space bolp fill-paragraph-function)
     (setq point (point))
     (beginning-of-line)