Synch to No Gnus 200504221308.

[elisp/gnus.git-] / lisp / gnus-art.el

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index f155e5f..48816b1 100644 (file)
--- 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)