;; 1) emacs -Q f.el -f eval-buffer
;; 2) M-x gnus RET q y
;;    M-x gnus RET q y
;; 3) M-! killall -9 aspell RET
;; 4) M-x gnus RET q y


(defun reactivate-flyspell ()
  (unless (memq 'flyspell-post-command-hook post-command-hook)
    (flyspell-mode 1)))

(setq my-idle (run-with-idle-timer 0.1 t 'reactivate-flyspell))

;; (defun my-error (&rest r)
;;   (interactive)
;;   (message "hi")
;;   (error "hi"))

;(add-hook 'before-change-functions 'my-error nil t)
;(add-hook 'pre-command-hook 'my-error nil t)