Use ./ as the auto-save directory if the message directory isn't writable

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 03b6808..fa78c59 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,8 @@
        * message.el (message-is-yours-p): Allow disabling canlock checking
        (bug#9295).
        (message-shoot-gnksa-feet): Add `canlock-verify'.
+       (message-auto-save-directory): Use ~/ as the auto-save directory if the
+       message directory isn't writable (bug#9304).
 
        * auth-source.el (auth-source-netrc-saver): Make the .authinfo file
        non-world-readable.

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