Mercurial > emacs

diff lisp/gnus/gnus-art.el @ 101165:a22ed49b5bef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from gnus--devo--0 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1517
author Miles Bader <miles@gnu.org>
date Wed, 14 Jan 2009 07:51:26 +0000
parents ba087903e9ba
children 868efb35abc9
line wrap: on
line diff
--- a/lisp/gnus/gnus-art.el	Wed Jan 14 03:50:46 2009 +0000
+++ b/lisp/gnus/gnus-art.el	Wed Jan 14 07:51:26 2009 +0000
@@ -3404,9 +3404,15 @@
 				    (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 (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)
 	    (setq bface (get-text-property (point-at-bol) 'face)