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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 74ab737..d86df5c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-01-13  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (article-date-ut): Fix end point of narrowing.
+
 2009-01-11  Aidan Kehoe  <kehoea@parhasard.net>
 
        * nnfolder.el (nnfolder-read-folder): The (lsh -1 -1) trick to generate

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index a5d09f4..54b3c0e 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -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 <larsi@gnus.org>
 ;; Keywords: news
@@ -3404,9 +3404,13 @@ should replace the \"Date:\" one, or should be added below it."
                                    (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)