From 920b968be8ed1776a5340983b3870a337b2cb9b5 Mon Sep 17 00:00:00 2001
From: Ryan Boren <ryan@git.wordpress.org>
Date: Tue, 18 Nov 2008 23:04:42 +0000
Subject: [PATCH] Use home to determine self link host

git-svn-id: https://develop.svn.wordpress.org/trunk@9769 602fd350-edb4-49c9-b593-d223f7449a82
---
 wp-includes/feed.php | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/wp-includes/feed.php b/wp-includes/feed.php
index dd1c39d6cb..69df9281e6 100644
--- a/wp-includes/feed.php
+++ b/wp-includes/feed.php
@@ -498,10 +498,12 @@ function prep_atom_text_construct($data) {
  * @since 2.5
  */
 function self_link() {
+	$host = @parse_url(get_option('home'));
+	$host = $host['host'];
 	echo clean_url( 
 		'http'
 		. ( (isset($_SERVER['https']) && $_SERVER['https'] == 'on') ? 's' : '' ) . '://'
-		. $_SERVER['HTTP_HOST']
+		. $host
 		. stripslashes($_SERVER['REQUEST_URI'])
 		);
 }