--- a/.emacs-my	Wed Jan 08 22:23:31 2020 +0200
+++ b/.emacs-my	Mon Feb 10 00:56:19 2020 +0200
@@ -1774,7 +1774,7 @@
 ;; (setq-default ispell-extra-args  '("--sug-mode=ultra"))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(message "dict, dictd, dictionary, gadict, gaphrase")
+(message "dict, dictd, dictionary, gadict, gaphrase, gadialog")
 
 (when (fboundp 'gadict-mode)
   (add-to-list 'auto-mode-alist '("\\.gadict$" . gadict-mode)) )
@@ -1784,6 +1784,10 @@
   (add-to-list 'auto-mode-alist '("\\.gaphrase$" . gaphrase-mode)) )
 (add-hook 'gaphrase-mode-hook 'whitespace-mode)
 
+(when (fboundp 'gadialog-mode)
+  (add-to-list 'auto-mode-alist '("\\.gadialog$" . gadialog-mode)) )
+(add-hook 'gadialog-mode-hook 'whitespace-mode)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "figlet")