diff options
Diffstat (limited to 'lisp/gnus/nndraft.el')
| -rw-r--r-- | lisp/gnus/nndraft.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/gnus/nndraft.el b/lisp/gnus/nndraft.el index 9e70bb62148..e636636a174 100644 --- a/lisp/gnus/nndraft.el +++ b/lisp/gnus/nndraft.el @@ -322,12 +322,10 @@ are generated if and only if they are also in `message-draft-headers'." args)) (defun nndraft-auto-save-file-name (file) - (save-excursion + (with-current-buffer (gnus-get-buffer-create " *draft tmp*") + (setq buffer-file-name file) (prog1 - (progn - (set-buffer (gnus-get-buffer-create " *draft tmp*")) - (setq buffer-file-name file) - (make-auto-save-file-name)) + (make-auto-save-file-name) (kill-buffer (current-buffer))))) (defun nndraft-articles () |