From: Julien Danjou <julien@danjou.info>
Date: Wed, 24 Nov 2010 21:21:29 +0000 (+0100)
Subject: message-goto-body: Really return point
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=4ec149e93d1e982f635cb961d99ce6a394c7f6e0

message-goto-body: Really return point

Signed-off-by: Julien Danjou <julien@danjou.info>
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 67a083522..2292084a7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
 	* message.el (message-goto-body): Use called-interactively-p.
 	(message-in-body-p): message-goto-body returns point.
+	(message-goto-body): Really return point.
 
 2010-11-24  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
diff --git a/lisp/message.el b/lisp/message.el
index 25b5ae4a3..f87030e48 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3092,14 +3092,17 @@ M-RET    `message-newline-and-reformat' (break the line and reformat)."
   (message-position-on-field "Summary" "Subject"))
 
 (defun message-goto-body ()
-  "Move point to the beginning of the message body."
+  "Move point to the beginning of the message body.
+Return point."
   (interactive)
   (when (and (called-interactively-p)
 	     (looking-at "[ \t]*\n"))
     (expand-abbrev))
   (goto-char (point-min))
   (or (search-forward (concat "\n" mail-header-separator "\n") nil t)
-      (search-forward-regexp "[^:]+:\\([^\n]\\|\n[ \t]\\)+\n\n" nil t)))
+      (search-forward-regexp "[^:]+:\\([^\n]\\|\n[ \t]\\)+\n\n" nil t))
+  (while (looking-at "^<#secure") (forward-line 1))
+  (point))
 
 (defun message-in-body-p ()
   "Return t if point is in the message body."