# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1341774819 -10800
# Node ID e895f2685f1e80066c12fd805f6986f8c206ad7a
# Parent  7558a3f8a3d96f82a7809dd909dedea9db9aba51
Add case of newsgroup.

diff -r 7558a3f8a3d9 -r e895f2685f1e .emacs-my
--- a/.emacs-my	Sun Jul 08 21:39:10 2012 +0300
+++ b/.emacs-my	Sun Jul 08 22:13:39 2012 +0300
@@ -1279,7 +1279,7 @@
   (make-directory gnus-article-save-directory t)
   (let ( (buf (current-buffer))
          (field-to (message-fetch-field "To"))
-         (field-subject (message-fetch-field "Subject"))
+         (field-subject (or (message-fetch-field "Newsgroups") (message-fetch-field "Subject")))
          file )
     (setq file (concat gnus-article-save-directory "/" (format-time-string "%F_%T") "_" field-to "_" field-subject))
     (with-temp-file file