Mercurial > hg > xemacs-beta
comparison lisp/gnus/message.el @ 112:48d667d6f17f r20-1b8
Import from CVS: tag r20-1b8
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:20:48 +0200 |
| parents | fe104dbd9147 |
| children | 8619ce7e4c50 |
comparison
equal
deleted
inserted
replaced
| 111:164ab62060bf | 112:48d667d6f17f |
|---|---|
| 2903 "Associate the message buffer with a file in the drafts directory." | 2903 "Associate the message buffer with a file in the drafts directory." |
| 2904 (when message-autosave-directory | 2904 (when message-autosave-directory |
| 2905 (unless (file-exists-p message-autosave-directory) | 2905 (unless (file-exists-p message-autosave-directory) |
| 2906 (make-directory message-autosave-directory t)) | 2906 (make-directory message-autosave-directory t)) |
| 2907 (let ((name (make-temp-name | 2907 (let ((name (make-temp-name |
| 2908 (concat (file-name-as-directory message-autosave-directory) | 2908 (expand-file-name |
| 2909 "msg.")))) | 2909 (concat (file-name-as-directory message-autosave-directory) |
| 2910 "msg."))))) | |
| 2910 (setq buffer-auto-save-file-name | 2911 (setq buffer-auto-save-file-name |
| 2911 (save-excursion | 2912 (save-excursion |
| 2912 (prog1 | 2913 (prog1 |
| 2913 (progn | 2914 (progn |
| 2914 (set-buffer (get-buffer-create " *draft tmp*")) | 2915 (set-buffer (get-buffer-create " *draft tmp*")) |