Redirect Targets are not Orphaned

A pages that is linked-to, via a redirect, is not orphaned.

app/models/page.rb

@@ -72,6 +72,10 @@ class Page < ActiveRecord::Base
     web.select.pages_that_link_to(name)
   end
 
+  def redirects
+    wiki_references.select { |ref| ref.redirected_page? }.map { |ref| ref.referenced_name }
+  end  
+
   def included_from
     web.select.pages_that_include(name)
   end

app/models/page_set.rb

@@ -67,8 +67,8 @@ class PageSet < Array
       if never_orphans.include? page.name
         false
       else
-#        references = pages_that_reference(page.name)
-        references = WikiReference.pages_that_reference(@web, page.name)
+        references = WikiReference.pages_that_reference(@web, page.name) +
+                     WikiReference.pages_redirected_to(@web, page.name)
         references.empty? or references == [page.name]
       end
     }

app/models/wiki_reference.rb

@@ -60,9 +60,12 @@ class WikiReference < ActiveRecord::Base
 
   def self.pages_redirected_to(web, page_name)
     names = []
+    redirected_pages = []
     page = web.page(page_name)
-    redirected_pages = Thread.current[:page_redirects][page.name]
-    redirected_pages.each { |name| names = names + self.pages_that_reference(web, name) } if redirected_pages
+    redirected_pages.concat page.redirects
+    redirected_pages.concat Thread.current[:page_redirects][page.name] if
+            Thread.current[:page_redirects] && Thread.current[:page_redirects][page.name]
+    redirected_pages.uniq.each { |name| names = names + self.pages_that_reference(web, name) }
     names.uniq    
   end