Mercurial > emacs
comparison lisp/gnus/message.el @ 34059:c40dbebdad05
(message-set-auto-save-file-name): Use gnus-make-directory.
author | Dave Love <fx@gnu.org> |
---|---|
date | Thu, 30 Nov 2000 17:09:44 +0000 |
parents | 9f5e2364ef2b |
children | 072ecdc5d391 |
comparison
equal
deleted
inserted
replaced
34058:9f5e2364ef2b | 34059:c40dbebdad05 |
---|---|
3620 (defun message-set-auto-save-file-name () | 3620 (defun message-set-auto-save-file-name () |
3621 "Associate the message buffer with a file in the drafts directory." | 3621 "Associate the message buffer with a file in the drafts directory." |
3622 (when message-auto-save-directory | 3622 (when message-auto-save-directory |
3623 (unless (file-directory-p | 3623 (unless (file-directory-p |
3624 (directory-file-name message-auto-save-directory)) | 3624 (directory-file-name message-auto-save-directory)) |
3625 (make-directory message-auto-save-directory)) | 3625 (gnus-make-directory message-auto-save-directory)) |
3626 (if (gnus-alive-p) | 3626 (if (gnus-alive-p) |
3627 (setq message-draft-article | 3627 (setq message-draft-article |
3628 (nndraft-request-associate-buffer "drafts")) | 3628 (nndraft-request-associate-buffer "drafts")) |
3629 (setq buffer-file-name (expand-file-name "*message*" | 3629 (setq buffer-file-name (expand-file-name "*message*" |
3630 message-auto-save-directory)) | 3630 message-auto-save-directory)) |