From: Dave Love <fx@gnu.org>
Date: Thu, 30 Nov 2000 16:46:52 +0000 (+0000)
Subject: (message-auto-save-directory): Use
X-Git-Tag: emacs-pretest-21.0.93~335
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8c6f6f4bf7c9ef750204b866fbd58cd1eec2e721;p=emacs.git

(message-auto-save-directory): Use
file-name-as-directory.
(message-set-auto-save-file-name): Create
message-auto-save-directory if necessary.
(message-replace-chars-in-string): Removed -- unused.
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 4cb53630703..ba003faae57 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -655,7 +655,7 @@ The default is `abbrev', which uses mailabbrev.  nil switches
 mail aliases off.")
 
 (defcustom message-auto-save-directory
-  (nnheader-concat message-directory "drafts/")
+  (file-name-as-directory (nnheader-concat message-directory "drafts"))
   "*Directory where Message auto-saves buffers if Gnus isn't running.
 If nil, Message won't auto-save."
   :group 'message-buffers
@@ -3620,6 +3620,9 @@ than 988 characters long, and if they are not, trim them until they are."
 (defun message-set-auto-save-file-name ()
   "Associate the message buffer with a file in the drafts directory."
   (when message-auto-save-directory
+    (unless (file-directory-p
+	     (directory-file-name message-auto-save-directory))
+      (make-directory message-auto-save-directory))
     (if (gnus-alive-p)
 	(setq message-draft-article
 	      (nndraft-request-associate-buffer "drafts"))
@@ -4477,24 +4480,6 @@ regexp varstr."
 		(cdr local)))))
      locals)))
 
-;;; Miscellaneous functions
-
-;; stolen (and renamed) from nnheader.el
-(if (fboundp 'subst-char-in-string)
-    (defsubst message-replace-chars-in-string (string from to)
-      (subst-char-in-string from to string))
-  (defun message-replace-chars-in-string (string from to)
-    "Replace characters in STRING from FROM to TO."
-    (let ((string (substring string 0))	;Copy string.
-	  (len (length string))
-	  (idx 0))
-      ;; Replace all occurrences of FROM with TO.
-      (while (< idx len)
-	(when (= (aref string idx) from)
-	  (aset string idx to))
-	(setq idx (1+ idx)))
-      string)))
-
 ;;;
 ;;; MIME functions
 ;;;