mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 11:21:04 -08:00
Code Issues Projects Releases Wiki Activity

(message-auto-save-directory): Use

Browse source 
file-name-as-directory.
(message-set-auto-save-file-name): Create
message-auto-save-directory if necessary.
(message-replace-chars-in-string): Removed -- unused.
This commit is contained in:
Dave Love 2000-11-30 16:46:52 +00:00
parent 2c0b18983c
commit 8c6f6f4bf7
1 changed files with 4 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/gnus/message.el
View file

@ -655,7 +655,7 @@ The default is `abbrev', which uses mailabbrev. nil switches
mail aliases off.") mail aliases off.")
(defcustom message-auto-save-directory (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. "*Directory where Message auto-saves buffers if Gnus isn't running.
If nil, Message won't auto-save." If nil, Message won't auto-save."
:group 'message-buffers :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 () (defun message-set-auto-save-file-name ()
"Associate the message buffer with a file in the drafts directory." "Associate the message buffer with a file in the drafts directory."
(when message-auto-save-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) (if (gnus-alive-p)
(setq message-draft-article (setq message-draft-article
(nndraft-request-associate-buffer "drafts")) (nndraft-request-associate-buffer "drafts"))
@ -4477,24 +4480,6 @@ regexp varstr."
(cdr local))))) (cdr local)))))
locals))) 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 ;;; MIME functions
;;; ;;;