.emacs-my
changeset 841 68e40729a4f4
parent 840 e1f0a7f252c8
child 842 9da301f47799
equal deleted inserted replaced
840:e1f0a7f252c8 841:68e40729a4f4
  1265 
  1265 
  1266 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1266 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1267 (message "gnus, mh-e")
  1267 (message "gnus, mh-e")
  1268 
  1268 
  1269 (setq gnus-site-init-file "~/.gnus.el")
  1269 (setq gnus-site-init-file "~/.gnus.el")
       
  1270 
       
  1271 (defun my-kill-gnus ()
       
  1272   "Kill Gnus when exiting Emacs."
       
  1273   (let ( (gnus-interactive-exit nil) )
       
  1274     (gnus-group-exit)
       
  1275     ))
       
  1276 
       
  1277 (eval-after-load 'gnus
       
  1278   '(progn
       
  1279      (add-hook 'kill-emacs-hook 'my-kill-gnus)
       
  1280      ))
  1270 
  1281 
  1271 ;; Store gnus specific files to '~/.gnus'.
  1282 ;; Store gnus specific files to '~/.gnus'.
  1272 (setq
  1283 (setq
  1273  gnus-directory "~/.gnus"
  1284  gnus-directory "~/.gnus"
  1274  gnus-agent-directory "~/.gnus/agent/"
  1285  gnus-agent-directory "~/.gnus/agent/"