From 4b29dd9b30340e7e0a86524b65039c50415d065d Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 13 Jan 2009 09:21:58 +0000 Subject: [PATCH] (article-date-ut): Fix end point of narrowing. --- lisp/ChangeLog | 4 ++++ lisp/gnus-art.el | 12 ++++++++---- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 74ab7377c..d86df5c65 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-01-13 Katsumi Yamaoka + + * gnus-art.el (article-date-ut): Fix end point of narrowing. + 2009-01-11 Aidan Kehoe * 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 a5d09f466..54b3c0e6f 100644 --- 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 ;; 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) -- 2.25.1