2001-07-29 Simon Josefsson <jas@extundo.com>

	* mail-source.el (top-level): Require message for message-directory.
	(mail-source-directory): Change default to message-directory.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4017fda..44a5673 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-07-29  Simon Josefsson  <jas@extundo.com>
 
+       * mail-source.el (top-level): Require message for message-directory.
+       (mail-source-directory): Change default to message-directory.
+
        * smime.el (smime-keys, smime-CA-directory, smime-CA-file) 
        (smime-certificate-directory, smime-openssl-program) 
        (smime-encrypt-cipher, smime-dns-server): Fix doc (leading "*").

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index 84ecbce..badd3a1 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -36,6 +36,7 @@
   (autoload 'nnheader-run-at-time "nnheader"))
 (require 'format-spec)
 (require 'mm-util)
+(require 'message) ;; for `message-directory'
 
 (defgroup mail-source nil
   "The mail-fetching library."
@@ -228,7 +229,7 @@ If non-nil, this maildrop will be checked periodically for new mail."
   :group 'mail-source
   :type 'file)
 
-(defcustom mail-source-directory "~/Mail/"
+(defcustom mail-source-directory message-directory
   "Directory where files (if any) will be stored."
   :group 'mail-source
   :type 'directory)