* expand mu4e-maildir and mu4e-attachment-dir (so ~/abc will work)

This commit is contained in:
djcb
2012-03-14 21:35:29 +02:00
parent e62292cb1d
commit 0cddc06ec1

View File

@ -57,7 +57,8 @@ PATH, you can specify the full path."
:safe 'stringp) :safe 'stringp)
(defcustom mu4e-maildir (expand-file-name "~/Maildir") (defcustom mu4e-maildir (expand-file-name "~/Maildir")
"Your Maildir directory; by default, mu4e assumes ~/Maildir." "Your Maildir directory; by default, mu4e assumes
~/Maildir."
:type 'directory :type 'directory
:safe 'stringp :safe 'stringp
:group 'mu4e) :group 'mu4e)
@ -422,6 +423,10 @@ dir already existed, or has been created, nil otherwise."
(unless mu4e-maildir (unless mu4e-maildir
(error "Please set `mu4e-maildir' to the full path to your (error "Please set `mu4e-maildir' to the full path to your
Maildir directory.")) Maildir directory."))
;; expand mu4e-maildir, mu4e-attachment-dir
(setq
mu4e-maildir (expand-file-name mu4e-maildir)
mu4e-attachment-dir (expand-file-name mu4e-attachment-dir))
(unless (mu4e-create-maildir-maybe mu4e-maildir) (unless (mu4e-create-maildir-maybe mu4e-maildir)
(error "%s is not a valid maildir directory" mu4e-maildir)) (error "%s is not a valid maildir directory" mu4e-maildir))
(dolist (var '( mu4e-sent-folder (dolist (var '( mu4e-sent-folder