[elpa] externals/hyperbole 17969221cf 01/16: Use compose-mail-other-window for implicit mail address

[ELPA Syncer]

branch: externals/hyperbole
commit 17969221cf1643a67275cbbb6344d494b49b4c5b
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: Mats Lidell <mats.lidell@lidells.se>

    Use compose-mail-other-window for implicit mail address
---
 hibtypes.el              | 4 ++--
 test/demo-tests.el       | 5 +++--
 test/hibtypes-tests.el   | 5 +++--
 test/hmouse-drv-tests.el | 5 +++--
 test/hyrolo-tests.el     | 6 +++---
 5 files changed, 14 insertions(+), 11 deletions(-)

diff --git a/hibtypes.el b/hibtypes.el
index ed2156f614..fd8972c82d 100644
--- a/hibtypes.el
+++ b/hibtypes.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    19-Sep-91 at 20:45:31
-;; Last-Mod:     25-May-24 at 10:11:05 by Bob Weiner
+;; Last-Mod:     16-Jun-24 at 11:25:46 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -228,7 +228,7 @@ in all buffers."
     (let ((address (mail-address-at-p)))
       (when address
         (ibut:label-set address (match-beginning 1) (match-end 1))
-        (hact 'mail-other-window nil address)))))
+        (hact 'compose-mail-other-window address)))))
 
 ;;; ========================================================================
 ;;; Displays files and directories when a valid pathname is activated.
diff --git a/test/demo-tests.el b/test/demo-tests.el
index 6029f6d179..eebfe3b6bd 100644
--- a/test/demo-tests.el
+++ b/test/demo-tests.el
@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell <matsl@gnu.org>
 ;;
 ;; Orig-Date:    30-Jan-21 at 12:00:00
-;; Last-Mod:      1-Apr-24 at 17:35:46 by Mats Lidell
+;; Last-Mod:     16-Jun-24 at 18:38:13 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -297,7 +297,8 @@
       (with-temp-buffer
         (insert "receiver@mail.org")
         (goto-char 2)
-        (action-key)
+        (let ((mail-user-agent 'sendmail-user-agent))
+          (action-key))
         (should (string= "*mail*" (buffer-name))))
     (hy-test-helpers:kill-buffer "*mail*")))
 
diff --git a/test/hibtypes-tests.el b/test/hibtypes-tests.el
index 3a37f6cfa4..eddd39d0a6 100644
--- a/test/hibtypes-tests.el
+++ b/test/hibtypes-tests.el
@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell <matsl@gnu.org>
 ;;
 ;; Orig-Date:    20-Feb-21 at 23:45:00
-;; Last-Mod:     21-Feb-24 at 23:55:45 by Mats Lidell
+;; Last-Mod:     16-Jun-24 at 18:45:13 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -47,7 +47,8 @@
       (with-temp-buffer
         (insert "receiver@mail.org")
         (goto-char 2)
-        (ibtypes::mail-address)
+        (let ((mail-user-agent 'sendmail-user-agent))
+          (ibtypes::mail-address))
         (should (string= "*mail*" (buffer-name))))
     (kill-buffer "*mail*")))
 
diff --git a/test/hmouse-drv-tests.el b/test/hmouse-drv-tests.el
index 31042ddbf8..542a6aa277 100644
--- a/test/hmouse-drv-tests.el
+++ b/test/hmouse-drv-tests.el
@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell <matsl@gnu.org>
 ;;
 ;; Orig-Date:    28-Feb-21 at 22:52:00
-;; Last-Mod:      5-Apr-24 at 23:05:53 by Mats Lidell
+;; Last-Mod:     16-Jun-24 at 18:46:42 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -242,7 +242,8 @@
       (with-temp-buffer
         (insert "receiver@mail.org")
         (goto-char 2)
-        (action-key)
+        (let ((mail-user-agent 'sendmail-user-agent))
+          (action-key))
         (should (string= "*mail*" (buffer-name))))
     (hy-test-helpers:kill-buffer "*mail*")))
 
diff --git a/test/hyrolo-tests.el b/test/hyrolo-tests.el
index 609c98f433..493f4807a8 100644
--- a/test/hyrolo-tests.el
+++ b/test/hyrolo-tests.el
@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell <matsl@gnu.org>
 ;;
 ;; Orig-Date:    19-Jun-21 at 22:42:00
-;; Last-Mod:      1-Jun-24 at 16:49:47 by Mats Lidell
+;; Last-Mod:     16-Jun-24 at 15:46:18 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -1488,10 +1488,10 @@ body
     (unwind-protect
         (let ((hypb:mail-address-mode-list '(hyrolo-mode)))
           (hyrolo-grep "receiver\\.org")
-          (mocklet (((mail-other-window nil "first@receiver.org") => t))
+          (mocklet (((compose-mail-other-window "first@receiver.org") => t))
             (hyrolo-mail-to))
           (forward-line)
-          (mocklet (((mail-other-window nil "second@receiver.org") => t))
+          (mocklet (((compose-mail-other-window "second@receiver.org") => t))
             (hyrolo-mail-to)))
       (kill-buffer hyrolo-display-buffer)
       (hy-delete-files-and-buffers hyrolo-file-list))))