diff --git a/source/HailPanel.cpp b/source/HailPanel.cpp
index 1adf001db18b..948d6c7d663d 100644
--- a/source/HailPanel.cpp
+++ b/source/HailPanel.cpp
@@ -53,16 +53,16 @@ HailPanel::HailPanel(PlayerInfo &player, const shared_ptr<Ship> &ship, function<
 	if(!ship->Name().empty())
 		header = gov->GetName() + " " + ship->Noun() + " \"" + ship->Name() + "\":";
 	else
-		header = ship->DisplayModelName() + " (" + gov->GetName() + "): ";
+		header = ship->DisplayModelName() + " (" + gov->GetName() + "):";
 	// Drones are always unpiloted, so they never respond to hails.
 	bool isMute = ship->GetPersonality().IsMute() || (ship->Attributes().Category() == "Drone");
 	hasLanguage = !isMute && (gov->Language().empty() || player.Conditions().Get("language: " + gov->Language()));
 	canAssistPlayer = !ship->CanBeCarried();
 
 	if(isMute)
-		message = "(There is no response to your hail.)";
+		SetMessage("(There is no response to your hail.)");
 	else if(!hasLanguage)
-		message = "(An alien voice says something in a language you do not recognize.)";
+		SetMessage("(An alien voice says something in a language you do not recognize.)");
 	else if(gov->IsEnemy())
 	{
 		// Enemy ships always show hostile messages.
@@ -75,7 +75,7 @@ HailPanel::HailPanel(PlayerInfo &player, const shared_ptr<Ship> &ship, function<
 	{
 		const Ship *flagship = player.Flagship();
 		if(flagship->NeedsFuel(false) || flagship->IsDisabled())
-			message = "Sorry, we can't help you, because our ship is disabled.";
+			SetMessage("Sorry, we can't help you, because our ship is disabled.");
 	}
 	else
 	{
@@ -101,24 +101,25 @@ HailPanel::HailPanel(PlayerInfo &player, const shared_ptr<Ship> &ship, function<
 		}
 
 		if(ship->GetShipToAssist() == player.FlagshipPtr())
-			message = "Hang on, we'll be there in a minute.";
+			SetMessage("Hang on, we'll be there in a minute.");
 		else if(canGiveFuel || canRepair)
 		{
-			message = "Looks like you've gotten yourself into a bit of trouble. "
+			string helpOffer = "Looks like you've gotten yourself into a bit of trouble. "
 				"Would you like us to ";
 			if(canGiveFuel && canRepair)
-				message += "patch you up and give you some fuel?";
+				helpOffer += "patch you up and give you some fuel?";
 			else if(canGiveFuel)
-				message += "give you some fuel?";
+				helpOffer += "give you some fuel?";
 			else if(canRepair)
-				message += "patch you up?";
+				helpOffer += "patch you up?";
+			SetMessage(helpOffer);
 		}
 		else if(playerNeedsHelp && !canAssistPlayer)
-			message = "Sorry, my ship is too small to have the right equipment to assist you.";
+			SetMessage("Sorry, my ship is too small to have the right equipment to assist you.");
 	}
 
 	if(message.empty())
-		message = ship->GetHail(player.GetSubstitutions());
+		SetMessage(ship->GetHail(player.GetSubstitutions()));
 }
 
 
@@ -141,26 +142,26 @@ HailPanel::HailPanel(PlayerInfo &player, const StellarObject *object)
 			if(mission.HasClearance(planet) && mission.ClearanceMessage() != "auto")
 			{
 				planet->Bribe(mission.HasFullClearance());
-				message = mission.ClearanceMessage();
+				SetMessage(mission.ClearanceMessage());
 				return;
 			}
 
 	if(!hasLanguage)
-		message = "(An alien voice says something in a language you do not recognize.)";
+		SetMessage("(An alien voice says something in a language you do not recognize.)");
 	else if(planet && player.Flagship())
 	{
 		if(planet->CanLand())
-			message = "You are cleared to land, " + player.Flagship()->Name() + ".";
+			SetMessage("You are cleared to land, " + player.Flagship()->Name() + ".");
 		else
 		{
 			SetBribe(planet->GetBribeFraction());
 			if(bribe)
-				message = "If you want to land here, it'll cost you "
-					+ Format::CreditString(bribe) + ".";
+				SetMessage("If you want to land here, it'll cost you "
+					+ Format::CreditString(bribe) + ".");
 			else if(gov->IsEnemy())
-				message = "You are not welcome here.";
+				SetMessage("You are not welcome here.");
 			else
-				message = "I'm afraid we can't permit you to land here.";
+				SetMessage("I'm afraid we can't permit you to land here.");
 		}
 	}
 }
@@ -299,16 +300,16 @@ bool HailPanel::KeyDown(SDL_Keycode key, Uint16 mod, const Command &command, boo
 			GameData::GetPolitics().DominatePlanet(planet, false);
 			// Set payment 0 to erase the tribute.
 			player.SetTribute(planet, 0);
-			message = "Thank you for granting us our freedom!";
+			SetMessage("Thank you for granting us our freedom!");
 		}
 		else if(!planet->IsDefending())
-			GetUI()->Push(new Dialog([this]() { message = planet->DemandTribute(player); },
+			GetUI()->Push(new Dialog([this]() { SetMessage(planet->DemandTribute(player)); },
 				"Demanding tribute may cause this planet to launch defense fleets to fight you. "
 				"After battling the fleets, you can demand tribute again for the planet to relent.\n"
 				"This act may hurt your reputation severely. Do you want to proceed?",
 				Truncate::NONE, true, false));
 		else
-			message = planet->DemandTribute(player);
+			SetMessage(planet->DemandTribute(player));
 		return true;
 	}
 	else if(key == 'h' && hasLanguage && ship && canAssistPlayer)
@@ -318,23 +319,23 @@ bool HailPanel::KeyDown(SDL_Keycode key, Uint16 mod, const Command &command, boo
 		if(playerNeedsHelp)
 		{
 			if(ship->GetPersonality().IsSurveillance())
-				message = "Sorry, I'm too busy to help you right now.";
+				SetMessage("Sorry, I'm too busy to help you right now.");
 			else if(canGiveFuel || canRepair)
 			{
 				ship->SetShipToAssist(player.FlagshipPtr());
-				message = "Hang on, we'll be there in a minute.";
+				SetMessage("Hang on, we'll be there in a minute.");
 			}
 			else if(ship->Fuel())
-				message = "Sorry, but if we give you fuel we won't have enough to make it to the next system.";
+				SetMessage("Sorry, but if we give you fuel we won't have enough to make it to the next system.");
 			else
-				message = "Sorry, we don't have any fuel.";
+				SetMessage("Sorry, we don't have any fuel.");
 		}
 		else
 		{
 			if(bribe)
-				message = "Yeah, right. Don't push your luck.";
+				SetMessage("Yeah, right. Don't push your luck.");
 			else
-				message = "You don't seem to be in need of repairs or fuel assistance.";
+				SetMessage("You don't seem to be in need of repairs or fuel assistance.");
 		}
 	}
 	else if((key == 'b' || key == 'o') && hasLanguage)
@@ -344,20 +345,20 @@ bool HailPanel::KeyDown(SDL_Keycode key, Uint16 mod, const Command &command, boo
 			return true;
 
 		if(bribe > player.Accounts().Credits())
-			message = "Sorry, but you don't have enough money to be worth my while.";
+			SetMessage("Sorry, but you don't have enough money to be worth my while.");
 		else if(bribe)
 		{
 			if(!ship || requestedToBribeShip)
 			{
 				player.Accounts().AddCredits(-bribe);
-				message = "It's a pleasure doing business with you.";
+				SetMessage("It's a pleasure doing business with you.");
 			}
 			if(ship)
 			{
 				if(!requestedToBribeShip)
 				{
-					message = "If you want us to leave you alone, it'll cost you "
-						+ Format::CreditString(bribe) + ".";
+					SetMessage("If you want us to leave you alone, it'll cost you "
+						+ Format::CreditString(bribe) + ".");
 					requestedToBribeShip = true;
 				}
 				else
@@ -378,7 +379,7 @@ bool HailPanel::KeyDown(SDL_Keycode key, Uint16 mod, const Command &command, boo
 			}
 		}
 		else
-			message = "I do not want your money.";
+			SetMessage("I do not want your money.");
 	}
 
 	return true;
@@ -398,3 +399,13 @@ void HailPanel::SetBribe(double scale)
 
 	bribe = 1000 * static_cast<int64_t>(sqrt(value) * scale);
 }
+
+
+
+void HailPanel::SetMessage(const string &text)
+{
+	message = text;
+	if(!message.empty())
+		Messages::AddLog("(Response to your hail) " + header + " " + message,
+			Messages::Importance::High);
+}
diff --git a/source/HailPanel.h b/source/HailPanel.h
index 3ea6f14b0dd4..e079a309e1b0 100644
--- a/source/HailPanel.h
+++ b/source/HailPanel.h
@@ -52,6 +52,7 @@ class HailPanel : public Panel {
 
 private:
 	void SetBribe(double scale);
+	void SetMessage(const std::string &text);
 
 
 private:
diff --git a/source/Messages.cpp b/source/Messages.cpp
index 95274472f22f..1d6da2f58802 100644
--- a/source/Messages.cpp
+++ b/source/Messages.cpp
@@ -39,6 +39,15 @@ void Messages::Add(const string &message, Importance importance)
 {
 	lock_guard<mutex> lock(incomingMutex);
 	incoming.emplace_back(message, importance);
+	AddLog(message, importance);
+}
+
+
+
+// Add a message to the log. For messages meant to be shown
+// also on the main panel, use Add instead.
+void Messages::AddLog(const string &message, Importance importance)
+{
 	if(logged.empty() || message != logged.front().first)
 	{
 		logged.emplace_front(message, importance);
diff --git a/source/Messages.h b/source/Messages.h
index 416ae2451df9..90f65f7a432f 100644
--- a/source/Messages.h
+++ b/source/Messages.h
@@ -55,6 +55,9 @@ class Messages {
 public:
 	// Add a message to the list along with its level of importance
 	static void Add(const std::string &message, Importance importance = Importance::Low);
+	// Add a message to the log. For messages meant to be shown
+	// also on the main panel, use Add instead.
+	static void AddLog(const std::string &message, Importance importance = Importance::Low);
 
 	// Get the messages for the given game step. Any messages that are too old
 	// will be culled out, and new ones that have just been added will have