From: yamaoka <yamaoka>
Date: Sun, 12 Oct 2003 12:31:33 +0000 (+0000)
Subject: Synch to Gnus 200310120236.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ed20e3fa960b57b8dd408224af259dde9449630d;p=elisp%2Fgnus.git-

Synch to Gnus 200310120236.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 03368e4..360088e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-12  Jesper Harder  <harder@ifa.au.dk>
+
+	* gnus-uu.el (gnus-uu-grab-articles): Fix misplaced parens.
+	From Mark Hood <markhood@speakeasy.net> (tiny change)
+
 2003-10-10  Jesper Harder  <harder@ifa.au.dk>
 
 	* mm-decode.el (mm-file-name-delete-gotchas): Avoid infloop in
diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index 5cb9f64..d4c6cba 100644
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -1329,23 +1329,23 @@ When called interactively, prompt for REGEXP."
 	      (setq process-state (list 'error))
 	      (gnus-message 2 "No begin part at the beginning")
 	      (sleep-for 2))
-	  (setq state 'middle)))
-
+	  (setq state 'middle))))
+    
       ;; When there are no result-files, then something must be wrong.
-      (if result-files
-	  (message "")
-	(cond
-	 ((not has-been-begin)
-	  (gnus-message 2 "Wrong type file"))
-	 ((memq 'error process-state)
-	  (gnus-message 2 "An error occurred during decoding"))
-	 ((not (or (memq 'ok process-state)
-		   (memq 'end process-state)))
-	  (gnus-message 2 "End of articles reached before end of file")))
-	;; Make unsuccessfully decoded articles unread.
-	(when gnus-uu-unmark-articles-not-decoded
-	  (while article-series
-	    (gnus-summary-tick-article (pop article-series) t)))))
+    (if result-files
+	(message "")
+      (cond
+       ((not has-been-begin)
+	(gnus-message 2 "Wrong type file"))
+       ((memq 'error process-state)
+	(gnus-message 2 "An error occurred during decoding"))
+       ((not (or (memq 'ok process-state)
+		 (memq 'end process-state)))
+	(gnus-message 2 "End of articles reached before end of file")))
+      ;; Make unsuccessfully decoded articles unread.
+      (when gnus-uu-unmark-articles-not-decoded
+	(while article-series
+	  (gnus-summary-tick-article (pop article-series) t))))
 
     ;; The original article buffer is hosed, shoot it down.
     (gnus-kill-buffer gnus-original-article-buffer)