--- loncom/interface/lonmsg.pm	2022/01/19 03:33:46	1.239.2.4
+++ loncom/interface/lonmsg.pm	2023/01/23 17:52:06	1.239.2.4.2.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.239.2.4 2022/01/19 03:33:46 raeburn Exp $
+# $Id: lonmsg.pm,v 1.239.2.4.2.1 2023/01/23 17:52:06 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -512,10 +512,8 @@ sub sendnotification {
 
     $text=~s/\&lt\;/\</gs;
     $text=~s/\&gt\;/\>/gs;
-    my $homeserver = &Apache::lonnet::homeserver($touname,$toudom);
-    my $protocol = $Apache::lonnet::protocol{$homeserver};
-    $protocol = 'http' if ($protocol ne 'https');
-    my $url = $protocol.'://'.&Apache::lonnet::hostname($homeserver).
+    my $touhome = &Apache::lonnet::homeserver($touname,$toudom);
+    my $url = &Apache::lonnet::url_prefix('',$toudom,$touhome,'email').
               '/adm/email?username='.$touname.'&domain='.$toudom.
               '&display='.&escape($msgid);
     my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid,