[elpa] externals/hyperbole c8655643ae: Insert kotl cells at the beginning of the mail body (#177)

[ELPA Syncer]

branch: externals/hyperbole
commit c8655643ae9019b4aefed194ac8a2644047a0f2b
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>

    Insert kotl cells at the beginning of the mail body (#177)
    
    bug#44487
---
 ChangeLog | 5 +++++
 hmail.el  | 7 +++----
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 50ec558f0c..3a98e6956b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2022-03-06  Mats Lidell  <matsl@gnu.org>
+
+* hmail.el (hmail:region): Insert kotl cell at the beginning of the mail
+    body. bug#44487 Suggestion by Jean Louis. Thanks Jean.
+
 2022-03-05  Mats Lidell  <matsl@gnu.org>
 
 * hypb-maintenance.el: Remove modified source buffers.
diff --git a/hmail.el b/hmail.el
index 2ae070aee0..4c059c5227 100644
--- a/hmail.el
+++ b/hmail.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:     9-Oct-91 at 18:38:05
-;; Last-Mod:      5-Feb-22 at 17:59:17 by Bob Weiner
+;; Last-Mod:      6-Mar-22 at 22:29:00 by Mats Lidell
 ;;
 ;; Copyright (C) 1991-2021  Free Software Foundation, Inc.
 ;; See the HY-COPY (Hyperbole) or BR-COPY (OO-Browser) file for license
@@ -211,9 +211,8 @@ buffer.  It may be a buffer or buffer name."
     (hmail:invoke)
     (setq mail-buf (current-buffer))
     (save-excursion
-      (when (search-forward mail-header-separator nil t)
-       ;; Within header, so move to body
-       (goto-char (point-max)))
+      (rfc822-goto-eoh)
+      (forward-line)
       (set-buffer buf)
       (hypb:insert-region mail-buf start end invisible-flag))))