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

Modified: ChangeLog gnus-art.el

(article-date-ut): Fix end point of narrowing.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1976 gnus/lisp/ChangeLog:7.1977
--- ChangeLog:7.1976	Sun Jan 11 14:43:07 2009
+++ ChangeLog	Tue Jan 13 10:21:58 2009
@@ -1,3 +1,7 @@
+2009-01-13  Katsumi Yamaoka  <[email protected]>
+
+	* gnus-art.el (article-date-ut): Fix end point of narrowing.
+
 2009-01-11  Aidan Kehoe  <[email protected]>
 
 	* nnfolder.el (nnfolder-read-folder): The (lsh -1 -1) trick to generate
Index: gnus-art.el
diff -u gnus/lisp/gnus-art.el:7.285 gnus/lisp/gnus-art.el:7.286
--- gnus-art.el:7.285	Thu Dec  4 11:53:38 2008
+++ gnus-art.el	Tue Jan 13 10:21:58 2009
@@ -1,7 +1,7 @@
 ;;; gnus-art.el --- article mode commands for Gnus
 
 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <[email protected]>
 ;; Keywords: news
@@ -3404,9 +3404,13 @@
 				    (point) 'original-date))
 		     (setq date (get-text-property pos 'original-date))
 		     t))
-	  (narrow-to-region pos (or (text-property-any pos (point-max)
-						       'original-date nil)
-				    (point-max)))
+	  (narrow-to-region
+	   pos (if (goto-char (text-property-any pos (point-max)
+						 'original-date nil))
+		   (if (or (bolp) (eobp))
+		       (point)
+		     (1+ (point)))
+		 (point-max)))
 	  (goto-char (point-min))
 	  (when (re-search-forward tdate-regexp nil t)
 	    (setq bface (get-text-property (point-at-bol) 'face)