--- loncom/interface/lonmsgdisplay.pm	2006/12/18 00:16:27	1.53
+++ loncom/interface/lonmsgdisplay.pm	2006/12/23 06:19:10	1.56
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging display
 #
-# $Id: lonmsgdisplay.pm,v 1.53 2006/12/18 00:16:27 raeburn Exp $
+# $Id: lonmsgdisplay.pm,v 1.56 2006/12/23 06:19:10 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -178,7 +178,7 @@ sub folderlist {
     my %userfolders;
 
     foreach my $key (keys(%gotfolders)) {
-        $key =~ s/(['"])/\$1/g;
+        $key =~ s/(['"])/\$1/g; #' stupid emacs
         $userfolders{$key} = $key;
     }
     my @userorder = sort(keys(%userfolders));
@@ -381,18 +381,18 @@ sub deletefolder {
     my ($folder)=@_;
     my %permfolders = &get_permanent_folders();
     if (defined($permfolders{$folder})) {
-        return &mt('The folder [_1] may not be deleted',$folder); 
+        return &mt('The folder "[_1]" may not be deleted',$folder); 
     }
     my %userfolders = &Apache::lonmsg::get_user_folders();
     if (!defined($userfolders{$folder})) {
-        return &mt('The folder [_1] does not exist so deletion is not required.',
+        return &mt('The folder "[_1]" does not exist so deletion is not required.',
                    $folder);
     }
     # check folder is empty;
     my $suffix=&Apache::lonmsg::foldersuffix($folder);
     my @messages = &Apache::lonnet::getkeys('nohist_email'.$suffix);
     if (@messages > 0) {
-        return &mt('The folder [_1] contains messages so it may not be deleted.').
+        return &mt('The folder "[_1]" contains messages so it may not be deleted.',$folder).
                '<br />'.
                &mt('Delete or move the messages to a different folder first.');
     }
@@ -960,8 +960,7 @@ sub disfolder {
 
 </script>
 ENDDISHEADER
-    my %gotfolders = &Apache::lonmsg::get_user_folders();
-    my %userfolders;
+
     my $fsqs='&folder='.$folder;
     my @temp=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder,$msgstatus);
     my $totalnumber=$#temp+1;
@@ -971,7 +970,7 @@ ENDDISHEADER
         } elsif ($msgstatus eq 'replied') {
             $r->print('<h2>'.&mt('You have not replied to any messages in this folder.').'</h2>');
         } else { 
-            $r->print('<h2>'.&mt('There are no [_1] messages in this folder',lc($statushash{$msgstatus})).'</h2>');
+            $r->print('<h2>'.&mt('There are no '.lc($statushash{$msgstatus}).' messages in this folder.').'</h2>');
         }
 	return;
     }
@@ -1108,16 +1107,17 @@ ENDDISHEADER
         $r->print('    <option value="markedunread">'.&mt('Mark Unread').'</option>'."\n");
     }
     $r->print('   <option value="markedforward">'.&mt('Forward').'</option>'."\n");
+
+    my %gotfolders = &Apache::lonmsg::get_user_folders();
     if (keys(%gotfolders) > 0) {
         $r->print('   <option value="markedmove">'.&mt('Move to Folder ->').
                   '</option>');
     }
     $r->print("\n".'</select></td>'."\n");
-    foreach my $key (keys(%gotfolders)) {
-        $userfolders{$key} = $key;
-    }
+
     if (keys(%gotfolders) > 0) {
         $r->print('<td align="center"><b>'.&mt('Destination folder').'<b><br />');
+	my %userfolders;
         foreach my $key (keys(%gotfolders)) {
             $userfolders{$key} = $key;
         }