diff options
| -rw-r--r-- | lisp/gnus/gnus-art.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 66c9fbea871..602f627d5ea 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el | |||
| @@ -3455,9 +3455,14 @@ possible values." | |||
| 3455 | (when (looking-at "[^:]+:[\t ]*") | 3455 | (when (looking-at "[^:]+:[\t ]*") |
| 3456 | (setq bface (get-text-property (match-beginning 0) 'face) | 3456 | (setq bface (get-text-property (match-beginning 0) 'face) |
| 3457 | eface (get-text-property (match-end 0) 'face))) | 3457 | eface (get-text-property (match-end 0) 'face))) |
| 3458 | (delete-region pos (or (text-property-any pos (point-max) | 3458 | ;; Note: a feature like `gnus-treat-unfold-headers' breaks |
| 3459 | 'gnus-date-type nil) | 3459 | ;; the continuity of text props of a multi-line Date header, |
| 3460 | (point-max)))) | 3460 | ;; that a user-defined date format might create, by adding |
| 3461 | ;; spaces. So, don't rely on gnus-date-type or original-date | ||
| 3462 | ;; text prop in case of searching the header boundary. | ||
| 3463 | (delete-region pos (progn | ||
| 3464 | (gnus-article-forward-header) | ||
| 3465 | (point)))) | ||
| 3461 | (unless date ;; the 1st time | 3466 | (unless date ;; the 1st time |
| 3462 | (goto-char (point-min)) | 3467 | (goto-char (point-min)) |
| 3463 | (while (re-search-forward "^Date:[\t ]*" nil t) | 3468 | (while (re-search-forward "^Date:[\t ]*" nil t) |