Mercurial > emacs
comparison lisp/gnus/message.el @ 48376:285ddf07e772
* message.el (message-set-auto-save-file-name): Use
make-directory, to avoid the dependence on gnus-util.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Sun, 17 Nov 2002 22:35:49 +0000 |
| parents | cdc6e9b808d6 |
| children | 52d99cc2e9e3 |
comparison
equal
deleted
inserted
replaced
| 48375:4d7b83cc03aa | 48376:285ddf07e772 |
|---|---|
| 3697 (defun message-set-auto-save-file-name () | 3697 (defun message-set-auto-save-file-name () |
| 3698 "Associate the message buffer with a file in the drafts directory." | 3698 "Associate the message buffer with a file in the drafts directory." |
| 3699 (when message-auto-save-directory | 3699 (when message-auto-save-directory |
| 3700 (unless (file-directory-p | 3700 (unless (file-directory-p |
| 3701 (directory-file-name message-auto-save-directory)) | 3701 (directory-file-name message-auto-save-directory)) |
| 3702 (gnus-make-directory message-auto-save-directory)) | 3702 (make-directory message-auto-save-directory t)) |
| 3703 (if (gnus-alive-p) | 3703 (if (gnus-alive-p) |
| 3704 (setq message-draft-article | 3704 (setq message-draft-article |
| 3705 (nndraft-request-associate-buffer "drafts")) | 3705 (nndraft-request-associate-buffer "drafts")) |
| 3706 (setq buffer-file-name (expand-file-name "*message*" | 3706 (setq buffer-file-name (expand-file-name "*message*" |
| 3707 message-auto-save-directory)) | 3707 message-auto-save-directory)) |