From b8e576afc4ca016a3e928cf00e466f488fd52b2a Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 22 Apr 2005 13:09:26 +0000 Subject: [PATCH] Synch to No Gnus 200504221308. --- 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 f155e5f..48816b1 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -3031,16 +3031,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) -- 1.7.10.4