diff --git a/src/Web/Tweet.hs b/src/Web/Tweet.hs
--- a/src/Web/Tweet.hs
+++ b/src/Web/Tweet.hs
@@ -64,7 +64,7 @@
 thread :: String -> [String] -> Maybe Int -> Int -> FilePath -> IO ()
 thread contents hs idNum num filepath = do
     let handleStr = concatMap ((++) " " . (++) "@") hs
-    let content = take num . chunksOf (140-length handleStr) $ contents
+    let content = take num . chunksOf (280-length handleStr) $ contents
     case idNum of
         (Just _) -> thread' content hs idNum filepath
         Nothing -> case content of
diff --git a/tweet-hs.cabal b/tweet-hs.cabal
--- a/tweet-hs.cabal
+++ b/tweet-hs.cabal
@@ -1,5 +1,5 @@
 name:                tweet-hs
-version:             1.0.1.21
+version:             1.0.1.27
 synopsis:            Command-line tool for twitter
 description:         a Command Line Interface Tweeter
 homepage:            https://github.com/vmchale/command-line-tweeter#readme