2001-11-29 12:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

[gnus] / lisp / nnfolder.el

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index 1de4e52..e678140 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -963,7 +963,7 @@ deleted.  Point is left where the deleted region was."
              (nnfolder-insert-newsgroup-line
               (cons nil
                     (setq newnum
-                          (nnfolder-active-number nnfolder-current-group))))
+                          (nnfolder-active-number group))))
              (when novbuf
                (let ((headers (nnfolder-parse-head newnum (point-min)
                                                    (point-max))))
@@ -981,7 +981,7 @@ deleted.  Point is left where the deleted region was."
          (setq newscantime (visited-file-modtime))
          (if scantime
              (setcdr scantime (list newscantime))
-           (push (list nnfolder-current-group newscantime)
+           (push (list group newscantime)
                  nnfolder-scantime-alist))
          ;; Save nov.
          (when novbuf
@@ -1215,7 +1215,7 @@ This command does not work if you use short group names."
        (progn
          (with-temp-file file
            (erase-buffer)
-           (princ nnfolder-marks (current-buffer))
+           (gnus-prin1 nnfolder-marks)
            (insert "\n"))
          (gnus-sethash file
                        (nth 5 (file-attributes file))