bugfix: text expandable? (thanks Alexander Panek)

git-svn-id: svn://rubyforge.org/var/svn/sup/trunk@626 5c8cc53c-5e98-4d25-b20a-d8db53a31250

diff --git a/lib/sup/message-chunks.rb b/lib/sup/message-chunks.rb
index e96dab408240ebf331c263e829e6fd24dfaebd3b..bcd5775ecdea16586843f9dab30821991f7bd6a9 100644 (file)
--- a/lib/sup/message-chunks.rb
+++ b/lib/sup/message-chunks.rb
@@ -106,8 +106,10 @@ EOS
       lines.pop while lines.last =~ /^\s*$/ 
     end
 
-    def color; :none end
     def inlineable?; true end
+    def expandable?; false end
+    def viewable?; false end
+    def color; :none end
   end
 
   class Quote
@@ -118,6 +120,8 @@ EOS
     
     def inlineable?; @lines.length == 1 end
     def expandable?; !inlineable? end
+    def viewable?; false end
+
     def patina_color; :quote_patina_color end
     def patina_text; "(#{lines.length} quoted lines)" end
     def color; :quote_color end
@@ -131,6 +135,8 @@ EOS
 
     def inlineable?; @lines.length == 1 end
     def expandable?; !inlineable? end
+    def viewable?; false end
+
     def patina_color; :sig_patina_color end
     def patina_text; "(#{lines.length}-line signature)" end
     def color; :sig_color end
@@ -145,6 +151,7 @@ EOS
 
     def inlineable?; false end
     def expandable?; true end
+    def viewable?; false end
 
     def patina_color; :generic_notice_patina_color end
     def patina_text; "Begin enclosed message from #{@from.longname} (#{@lines.length} lines)" end