--- a/.emacs-my	Thu Apr 18 23:35:53 2019 +0300
+++ b/.emacs-my	Sat Apr 20 02:38:52 2019 +0300
@@ -1763,13 +1763,16 @@
 ;; (setq-default ispell-extra-args  '("--sug-mode=ultra"))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(message "dict, dictd, dictionary, gadict")
+(message "dict, dictd, dictionary, gadict, gaphrase")
 
 (when (fboundp 'gadict-mode)
   (add-to-list 'auto-mode-alist '("\\.gadict$" . gadict-mode)) )
-
 (add-hook 'gadict-mode-hook 'whitespace-mode)
 
+(when (fboundp 'gaphrase-mode)
+  (add-to-list 'auto-mode-alist '("\\.gaphrase$" . gaphrase-mode)) )
+(add-hook 'gaphrase-mode-hook 'whitespace-mode)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "figlet")