Index: openacs-4/packages/notifications/tcl/notification-email-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-email-procs.tcl,v diff -u -N -r1.35 -r1.35.6.1 --- openacs-4/packages/notifications/tcl/notification-email-procs.tcl 2 Apr 2009 15:57:03 -0000 1.35 +++ openacs-4/packages/notifications/tcl/notification-email-procs.tcl 27 May 2011 21:11:20 -0000 1.35.6.1 @@ -135,6 +135,12 @@ set content $content_html } + # DAVEB convert relative URLs to fully qualified URLs + set host "[string trimright [ad_url] "/"]/" + set re {(href|src)=['\"][^(http|https|mailto:)]/?([^'\"]+?)['\"]} + set subspec "\\1='${host}\\2'" + set content [regsub -all $re $content $subspec] + # Use this to build up extra mail headers set extra_headers [list]