X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fnnml.el;h=89c97ee9b95edc4883104726baa08e30604f044e;hp=cdc5ef5429adda8bac643d534d138f057dd36192;hb=a3628c5a6916f7584ac6c1e8177140dd5cbd9680;hpb=d5714bdba27dddaccae0c88a472cbc1a0513cabc

diff --git a/lisp/nnml.el b/lisp/nnml.el
index cdc5ef542..89c97ee9b 100644
--- 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