Make mail-source files/directories use gnus-home-directory?

Make mail-source files/directories use gnus-home-directory?

[David Z Maze]

lisp/mail-source.el has a couple of variable declarations that look
like

(defcustom mail-source-crash-box "~/.emacs-mail-crash-box" ...)
(defcustom mail-source-directory "~/Mail/" ...)

Shouldn't these be based on gnus-home-directory instead?  This would
give a little more consistency with the rest of Gnus; in my particular 
case, the place gnus-home-directory points to has a lot more quota
than $HOME does.  So, you'd have (starting at line 223 of mail-source.el):

(defcustom mail-source-crash-box
  (nnheader-concat gnus-home-directory ".emacs-mail-crash-box")
  "File where mail will be stored while processing it."
  :group 'mail-source
  :type 'file)

(defcustom mail-source-directory
  (nnheader-concat gnus-home-directory "Mail/")
  "Directory where files (if any) will be stored."
  :group 'mail-source
  :type 'directory)

The one other occurence of ~ is in mail-source-keyword-map; I *think*
it's the default directory for a maildir mail source if one appears.
I don't know a whole lot about how these sorts of systems usually
work, but I'd guess a subdirectory of the user's home directory is
more likely than wherever they told Gnus to start up.  Hmm.

-- 
David Maze             dmaze@mit.edu          http://www.mit.edu/~dmaze/
"Theoretical politics is interesting.  Politicking should be illegal."
	-- Abra Mitchell