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)) |