--- loncom/lonnet/perl/lonnet.pm	2020/07/19 15:12:04	1.1172.2.118.2.5
+++ loncom/lonnet/perl/lonnet.pm	2020/09/08 02:08:27	1.1172.2.118.2.7
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1172.2.118.2.5 2020/07/19 15:12:04 raeburn Exp $
+# $Id: lonnet.pm,v 1.1172.2.118.2.7 2020/09/08 02:08:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3110,12 +3110,7 @@ sub unsubscribe {
     } elsif (grep { $_ eq $home } &current_machine_ids()) {
         $answer = 'home';
     } else {
-        my $defdom = $perlvar{'lonDefDomain'};
-        if (&will_trust('content',$defdom,$udom)) {
-            $answer = reply("unsub:$fname",$home);
-        } else {
-            $answer = 'untrusted';
-        }
+        $answer = reply("unsub:$fname",$home);
     }
     return $answer;
 }
@@ -10287,14 +10282,19 @@ sub writecoursepref {
 
 sub createcourse {
     my ($udom,$description,$url,$course_server,$nonstandard,$inst_code,
-        $course_owner,$crstype,$cnum,$context,$category)=@_;
+        $course_owner,$crstype,$cnum,$context,$category,$callercontext)=@_;
     $url=&declutter($url);
     my $cid='';
     if ($context eq 'requestcourses') {
         my $can_create = 0;
         my ($ownername,$ownerdom) = split(':',$course_owner);
         if ($udom eq $ownerdom) {
-            if (&usertools_access($ownername,$ownerdom,$category,undef,
+            my $reload;
+            if (($callercontext eq 'auto') &&
+               ($ownerdom eq $env{'user.domain'}) && ($ownername eq $env{'user.name'})) {
+                $reload = 'reload';
+            }
+            if (&usertools_access($ownername,$ownerdom,$category,$reload,
                                   $context)) {
                 $can_create = 1;
             }