2001-08-09 15:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* nndraft.el (nndraft-request-group): Use
	nndraft-auto-save-file-name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2210b61..3d737e3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-09 15:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * nndraft.el (nndraft-request-group): Use
+       nndraft-auto-save-file-name.
+
 2001-08-09  Simon Josefsson  <jas@extundo.com>
 
        * mm-view.el (mm-view-pkcs7-decrypt): Operate in current buffer.

diff --git a/lisp/nndraft.el b/lisp/nndraft.el
index 789d8e7..379c0ab 100644 (file)
--- a/lisp/nndraft.el
+++ b/lisp/nndraft.el
@@ -181,8 +181,7 @@
       (dolist (n dir)
        (unless (file-exists-p
                 (setq file (expand-file-name (int-to-string n) pathname)))
-         (rename-file (let ((buffer-file-name file))
-                        (make-auto-save-file-name)) file)))))
+         (rename-file (nndraft-auto-save-file-name file) file)))))
   (nnoo-parent-function 'nndraft
                        'nnmh-request-group
                        (list group server dont-check)))