--- a/.emacs-my	Fri Aug 26 00:02:33 2016 +0300
+++ b/.emacs-my	Fri Aug 26 00:09:57 2016 +0300
@@ -2080,30 +2080,34 @@
 
 ;; Especially highlight my message and replays to me.
 (my--eval-after-load gnus-sum
-  (defface my-gnus-own-unread-face nil
-    "Use this face to display own postings in Summary Buffer")
-  (copy-face 'gnus-summary-high-unread-face 'my-gnus-own-unread-face)
-  (set-face-background 'my-gnus-own-unread-face "linen")
+  (defface my/gnus-own-unread-face nil
+    "Use this face to display own postings in Summary Buffer"
+    :group 'my/gnus)
+  (copy-face 'gnus-summary-high-unread-face 'my/gnus-own-unread-face)
+  (set-face-background 'my/gnus-own-unread-face "linen")
   (add-to-list 'gnus-summary-highlight
-               '((and (> score 190) (eq mark gnus-unread-mark)) . my-gnus-own-unread-face))
-  (defface my-gnus-own-ancient-face nil
-    "Use this face to display own postings in Summary Buffer")
-  (copy-face 'gnus-summary-high-ancient-face 'my-gnus-own-ancient-face)
-  (set-face-background 'my-gnus-own-ancient-face "linen")
+               '((and (> score 190) (eq mark gnus-unread-mark)) . my/gnus-own-unread-face))
+  (defface my/gnus-own-ancient-face nil
+    "Use this face to display own postings in Summary Buffer"
+    :group 'my/gnus)
+  (copy-face 'gnus-summary-high-ancient-face 'my/gnus-own-ancient-face)
+  (set-face-background 'my/gnus-own-ancient-face "linen")
   (add-to-list 'gnus-summary-highlight
-               '((and (> score 190) (eq mark gnus-ancient-mark)) . my-gnus-own-ancient-face))
-  (defface my-gnus-own-ticked-face nil
-    "Use this face to display own postings in Summary Buffer")
-  (copy-face 'gnus-summary-high-ticked-face 'my-gnus-own-ticked-face)
-  (set-face-background 'my-gnus-own-ticked-face "linen")
+               '((and (> score 190) (eq mark gnus-ancient-mark)) . my/gnus-own-ancient-face))
+  (defface my/gnus-own-ticked-face nil
+    "Use this face to display own postings in Summary Buffer"
+    :group 'my/gnus)
+  (copy-face 'gnus-summary-high-ticked-face 'my/gnus-own-ticked-face)
+  (set-face-background 'my/gnus-own-ticked-face "linen")
   (add-to-list 'gnus-summary-highlight
-               '((and (> score 190) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . my-gnus-own-ticked-face))
-  (defface my-gnus-fup-face nil
-    "Use this face to display direct fups to my postings.")
-  (copy-face 'gnus-summary-high-unread-face 'my-gnus-fup-face)
-  (set-face-background 'my-gnus-fup-face "honeydew")
+               '((and (> score 190) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . my/gnus-own-ticked-face))
+  (defface my/gnus-fup-face nil
+    "Use this face to display direct fups to my postings."
+    :group 'my/gnus)
+  (copy-face 'gnus-summary-high-unread-face 'my/gnus-fup-face)
+  (set-face-background 'my/gnus-fup-face "honeydew")
   (add-to-list 'gnus-summary-highlight
-               '((and (<= 90 score) (<= score 110) (eq mark gnus-unread-mark)) . my-gnus-fup-face)) )
+               '((and (<= 90 score) (<= score 110) (eq mark gnus-unread-mark)) . my/gnus-fup-face)) )
 
 ;; (setq gnus-home-score-file
 ;;       ;; All groups that match the regexp `"\\.emacs"'