From 9168f771b9de06594ad3c81aa283b706266892b7 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 9 Mar 2014 21:09:50 -0400 Subject: Clean up gnus locations - Don't hardcode gnus locations. - Remove locations that are unused or that are already their default values. --- lisp/init-gnus.el | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) (limited to 'lisp') diff --git a/lisp/init-gnus.el b/lisp/init-gnus.el index 611d320..99d024c 100644 --- a/lisp/init-gnus.el +++ b/lisp/init-gnus.el @@ -2,19 +2,13 @@ (setq ;; Locations - gnus-directory "~/.gnus.d" gnus-home-directory "~/.gnus.d" - message-directory "~/.gnus.d/mail" - message-auto-save-directory "~/.gnus.d/drafts" - nnml-directory "~/.gnus.d/nnml-mail" - nnfolder-directory "~/.gnus.d/mail/archive" - nnfolder-active-file "~/.gnus.d/mail/archive/active" - gnus-article-save-directory "~/.gnus.d/saved" - gnus-kill-files-directory "~/.gnus.d/scores" - gnus-cache-directory "~/.gnus.d/cache" + gnus-directory gnus-home-directory + gnus-article-save-directory (expand-file-name "saved" gnus-directory) + gnus-kill-files-directory (expand-file-name "scores" gnus-directory) ;; Startup files - gnus-startup-file (nnheader-concat gnus-home-directory "newsrc") - gnus-init-file (nnheader-concat gnus-home-directory "gnus") + gnus-startup-file (expand-file-name "newsrc" gnus-home-directory) + gnus-init-file (expand-file-name "gnus" gnus-home-directory) gnus-save-newsrc-file nil gnus-read-newsrc-file nil ;; Select methods -- cgit v1.2.3