If the ~/Mail directory doesn't exist, use ~ as the auto-save directory

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 604ec1d..f795e3f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-07-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * message.el (message-auto-save-directory): If the ~/Mail directory
+       doesn't exist, use ~ as the auto-save directory (bug#4432).
+
        * gnus-group.el (gnus-group-read-ephemeral-group): Start Gnus if it
        hasn't already been started.
 

diff --git a/lisp/message.el b/lisp/message.el
index 0386b20..cdc41ea 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1354,7 +1354,9 @@ text and it replaces `self-insert-command' with the other command, e.g.
   :type '(repeat function))
 
 (defcustom message-auto-save-directory
-  (file-name-as-directory (expand-file-name "drafts" message-directory))
+  (if (file-exists-p message-directory)
+      (file-name-as-directory (expand-file-name "drafts" message-directory))
+    "~/")
   "*Directory where Message auto-saves buffers if Gnus isn't running.
 If nil, Message won't auto-save."
   :group 'message-buffers