From 494424e3c1142605934669c6f987aaa16f9d25d5 Mon Sep 17 00:00:00 2001
From: ullgren <ullgren@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Date: Tue, 15 Jan 2002 16:53:12 +0000
Subject: [PATCH] Fixed [ #500024 ] HREF is wrong on ssl server base href
 didn't contain protocol.

git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@2139 7612ce4b-ef26-0410-bec9-ea0150e637f0
---
 functions/mime.php | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/functions/mime.php b/functions/mime.php
index 263d55fc..02e69fc5 100644
--- a/functions/mime.php
+++ b/functions/mime.php
@@ -411,6 +411,7 @@ function mime_fetch_body ($imap_stream, $id, $ent_id ) {
                 $k++;
             }
             if ( $base <> '' )
+                
                 $ret = "<base href=\"$base\">" . $ret;
         }
     } else if (ereg('"([^"]*)"', $topline, $regs)) {
@@ -1023,7 +1024,7 @@ function MagicHTML( $body, $id ) {
 return( "\n\n<!-- HTML Output ahead -->\n" .
         $ret .
         "\n<!-- END of HTML Output --><base href=\"".
-        $HTTP_SERVER_VARS["SERVER_NAME"] . substr( $PHP_SELF, 0, strlen( $PHP_SELF ) - 13 ) .
+        get_location() . '/'.
         "\">\n\n" );
 }
 
-- 
2.25.1