Changes committed gnus/lisp (gnus-art.el)

Modified: gnus-art.el

(article-date-ut): Fix previous commit.


Index: gnus-art.el
diff -u gnus/lisp/gnus-art.el:7.286 gnus/lisp/gnus-art.el:7.287
--- gnus-art.el:7.286	Tue Jan 13 10:21:58 2009
+++ gnus-art.el	Tue Jan 13 23:08:01 2009
@@ -3405,11 +3405,13 @@
 		     (setq date (get-text-property pos 'original-date))
 		     t))
 	  (narrow-to-region
-	   pos (if (goto-char (text-property-any pos (point-max)
-						 'original-date nil))
-		   (if (or (bolp) (eobp))
-		       (point)
-		     (1+ (point)))
+	   pos (if (setq pos (text-property-any pos (point-max)
+						'original-date nil))
+		   (progn
+		     (goto-char pos)
+		     (if (or (bolp) (eobp))
+			 (point)
+		       (1+ (point))))
 		 (point-max)))
 	  (goto-char (point-min))
 	  (when (re-search-forward tdate-regexp nil t)