diff lisp/gnus/message.el @ 23379:cfa9bc8ed327

(message-auto-save-directory): Renamed from message-autosave-directory. All references changed.

--- a/lisp/gnus/message.el	Tue Oct 06 22:54:20 1998 +0000
+++ b/lisp/gnus/message.el	Tue Oct 06 23:16:37 1998 +0000
@@ -269,10 +269,10 @@
   :type 'file
   :group 'message-headers)
 
-(defcustom message-autosave-directory "~/"
+(defcustom message-auto-save-directory "~/"
   ; (concat (file-name-as-directory message-directory) "drafts/")
-  "*Directory where message autosaves buffers.
-If nil, message won't autosave."
+  "*Directory where message auto-saves buffers.
+If nil, message won't auto-save."
   :group 'message-buffers
   :type 'directory)
 
@@ -1546,7 +1546,7 @@
 		       (read-string "New buffer name: " name-default)
 		     name-default))
 	     (default-directory
-	       (file-name-as-directory message-autosave-directory)))
+	       (file-name-as-directory message-auto-save-directory)))
 	(rename-buffer name t)))))
 
 (defun message-fill-yanked-message (&optional justifyp)
@@ -1790,7 +1790,7 @@
 	;; (mail-hist-put-headers-into-history))
 	(run-hooks 'message-sent-hook)
 	(message "Sending...done")
-	;; If buffer has no file, mark it as unmodified and delete autosave.
+	;; If buffer has no file, mark it as unmodified and delete auto-save.
 	(unless buffer-file-name
 	  (set-buffer-modified-p nil)
 	  (delete-auto-save-file-if-necessary t))
@@ -1988,7 +1988,7 @@
   (let ((mh-previous-window-config nil)
 	(name (make-temp-name
 	       (concat (file-name-as-directory
-			(expand-file-name message-autosave-directory))
+			(expand-file-name message-auto-save-directory))
 		       "msg."))))
     (setq buffer-file-name name)
     ;; MH wants to generate these headers itself.
@@ -3024,12 +3024,12 @@
 
 (defun message-set-auto-save-file-name ()
   "Associate the message buffer with a file in the drafts directory."
-  (when message-autosave-directory
-    (unless (file-exists-p message-autosave-directory)
-      (make-directory message-autosave-directory t))
+  (when message-auto-save-directory
+    (unless (file-exists-p message-auto-save-directory)
+      (make-directory message-auto-save-directory t))
     (let ((name (make-temp-name
 		 (expand-file-name
-		  (concat (file-name-as-directory message-autosave-directory)
+		  (concat (file-name-as-directory message-auto-save-directory)
 			  "msg."
 			  (nnheader-replace-chars-in-string
 			   (nnheader-replace-chars-in-string