--- a/.emacs-my	Sun Oct 23 00:21:43 2011 +0300
+++ b/.emacs-my	Sun Oct 23 19:02:32 2011 +0300
@@ -888,7 +888,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "unknown")
 
-;; mailcrypt gnus message sendmail bbdb pilot bibtex eiffel-mode emacs-w3m
+;; mailcrypt message sendmail bbdb pilot bibtex eiffel-mode emacs-w3m
 ;; eudc filladapt hugs-mode mpg123 php-mode ps-print
 ;; chord-mode - edit guitar music
 ;; discography - variant of BibTeX mode for discographies
@@ -1140,14 +1140,40 @@
 (setq fortune-file "~/XXX")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(message "mail, mh-e")
+(message "mail, gnus, mh-e")
 
 (setq mail-signature t)
 (setq mail-signature-file "~/.signature")
 ;; (add-hook 'mail-setup-hook 'fortune-to-signature)
 
+(setq
+ gnus-novice-user t
+ gnus-expert-user nil
+ gnus-interactive-catchup t
+ gnus-interactive-exit t
+ )
+
+(setq
+ gnus-read-active-file nil
+ gnus-check-new-newsgroups nil
+ gnus-check-bogus-newsgroups nil
+ )
+
 ;; (setq mail-user-agent 'mh-e-user-agent)
 
+;; (add-hook 'message-sent-hook 'gnus-score-followup-thread)
+;; `gnus-score-followup-thread'
+;; `gnus-score-followup-article'
+
+
+;; (setq gnus-use-adaptive-scoring t)
+
+;; (setq gnus-home-score-file
+;;       ;; All groups that match the regexp `"\\.emacs"'
+;;       '(("\\.emacs" "emacs.SCORE")
+;;         ;; All the comp groups in one score file
+;;         ("^comp" "comp.SCORE")))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "jabber")