--- a/.emacs-my	Thu Aug 25 23:47:02 2016 +0300
+++ b/.emacs-my	Thu Aug 25 23:55:58 2016 +0300
@@ -1755,6 +1755,8 @@
    (lambda (ch) (or (when (string-match my--message-safe-filename-regex (char-to-string ch)) (char-to-string ch)) "-"))
    filename "") )
 
+(eval-when 'compile (require 'gnus))
+
 (defun my--message-save ()
   "Store message in `gnus-article-save-directory' after
 successful sending. It is possible that mail rejected and I lost
@@ -1796,8 +1798,12 @@
 
 (eval-when 'compile
   (require 'gnus)
+  (require 'gnus-agent)
   (require 'gnus-start)
-  (require 'gnus-score))
+  (require 'gnus-score)
+  (require 'gnus-topic)
+  (require 'gnus-spec)
+  (require 'spam))
 
 ;; (setq gnus-verbose 10)
 
@@ -3227,15 +3233,16 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "jsp")
 
+(defvar jsp-font-lock-syntactic-keywords
+  '(("\\(<\\)%--" (1 "< b"))
+    ("--%\\(>\\)" (1 "> b"))))
+
 (define-derived-mode jsp-mode html-mode "JSP"
   "JSP editing mode. Redefine HTML comment syntax to JSP."
   (setq comment-start "<%--")
   (setq comment-end "--%>")
   (setq comment-start-skip "<[!%]--[ \t]*")
   (setq comment-end-skip "[ \t]*--[% \t\n]*>")
-  (setq jsp-font-lock-syntactic-keywords
-        '(("\\(<\\)%--" (1 "< b"))
-          ("--%\\(>\\)" (1 "> b"))))
   (setcdr (assoc 'font-lock-syntactic-keywords font-lock-defaults) 'jsp-font-lock-syntactic-keywords) )
 
 (unless (featurep 'web-mode)