diff options
author | Dave Love <[email protected]> | 2000-11-30 16:46:52 +0000 |
---|---|---|
committer | Dave Love <[email protected]> | 2000-11-30 16:46:52 +0000 |
commit | 8c6f6f4bf7c9ef750204b866fbd58cd1eec2e721 (patch) | |
tree | 10b931b61a802019d34797d6773bfc07e3af1b98 | |
parent | 2c0b18983cd98bc6f3fa627b0c3e59ab67603ef1 (diff) |
(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.
-rw-r--r-- | lisp/gnus/message.el | 23 |
1 files changed, 4 insertions, 19 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 4cb5363070..ba003faae5 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 ;;; |