Use home to determine self link host

git-svn-id: http://svn.automattic.com/wordpress/trunk@9769 1a063a9b-81f0-0310-95a4-ce76da25c4cd

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'])
 		);
 }