--- a/.emacs-my	Wed Jan 29 22:36:56 2014 +0200
+++ b/.emacs-my	Tue Feb 04 21:52:43 2014 +0200
@@ -1511,6 +1511,10 @@
          (field-to (my-clean-filename (or (message-fetch-field "Newsgroups") (message-fetch-field "To"))))
          (field-subject (my-clean-filename (message-fetch-field "Subject")))
          file )
+    (when (> (length field-to) 32)
+      (setq field-to (substring field-to 0 32)))
+    (when (> (length field-subject) 64)
+      (setq field-subject (substring field-subject 0 64)))
     (setq file (concat gnus-article-save-directory "/" (format-time-string "%F_%T") "_" field-to "_" field-subject))
     (with-temp-file file
       (insert-buffer buf)