*** empty log message ***

[gnus] / lisp / nnml.el

diff --git a/lisp/nnml.el b/lisp/nnml.el
index 8f2c494..89c97ee 100644 (file)
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -318,6 +318,7 @@ all. This may very well take some time.")
 
 (deffoo nnml-request-accept-article (group &optional server last)
   (nnml-possibly-change-directory group server)
+  (nnmail-check-syntax)
   (let (result)
     (if (stringp group)
        (and 
@@ -342,17 +343,17 @@ all. This may very well take some time.")
   (save-excursion
     (set-buffer buffer)
     (nnml-possibly-create-directory group)
-    (when (condition-case ()
-                (progn
-                  (write-region 
-                   (point-min) (point-max)
-                   (concat nnml-current-directory (int-to-string article))
-                   nil (if (nnheader-be-verbose 5) nil 'nomesg))
-                  t)
-              (error nil))
-      (let ((chars (nnmail-insert-lines))
-           (art (concat (int-to-string article) "\t"))
-           headers)
+    (let ((chars (nnmail-insert-lines))
+         (art (concat (int-to-string article) "\t"))
+         headers)
+      (when (condition-case ()
+               (progn
+                 (write-region 
+                  (point-min) (point-max)
+                  (concat nnml-current-directory (int-to-string article))
+                  nil (if (nnheader-be-verbose 5) nil 'nomesg))
+                 t)
+             (error nil))
        (setq headers (nnml-parse-head chars article))
        ;; Replace the NOV line in the NOV file.
        (save-excursion 
@@ -681,7 +682,7 @@ all. This may very well take some time.")
        dir)
     (while dirs 
       (setq dir (pop dirs))
-      (when (and (not (member (file-name-nondirectory file) '("." "..")))
+      (when (and (not (member (file-name-nondirectory dir) '("." "..")))
                 (file-directory-p dir))
        (nnml-generate-nov-databases-1 dir))))
   ;; Do this directory.