From 3976ff50268478f610f4200f796241e812f708e7 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 22 Apr 2005 13:08:55 +0000 Subject: [PATCH] (article-date-ut): Fix previous commit. --- lisp/gnus-art.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 82613fd76..3c1488e75 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -2891,16 +2891,19 @@ should replace the \"Date:\" one, or should be added below it." 'original-date)) (and (setq pos (next-single-property-change (point) 'original-date)) - (progn - (goto-char pos) - (bolp)) (setq date (get-text-property pos 'original-date)))) (not (string-equal date ""))) - (narrow-to-region - pos - (or (text-property-any pos (point-max) 'original-date nil) - (point-max))) + (goto-char (or (text-property-any pos (point-max) + 'original-date nil) + (point-max))) + ;; Skip Face or X-Face. + (unless (bolp) + (end-of-line) + (goto-char (or (text-property-any pos (point-max) + 'original-date nil) + (point-max)))) + (narrow-to-region pos (point)) (goto-char (point-min)) (when (re-search-forward tdate-regexp nil t) (setq bface (get-text-property (point-at-bol) 'face) -- 2.25.1