diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2017-06-20 09:11:07 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2017-06-20 09:11:07 +0000 |
| commit | efa2b08dcbf0177ef5bc21216ddd3876a9fc79e3 (patch) | |
| tree | 047fb6250945a1683491770bc98bf38b0f9be339 | |
| parent | de296e0d2e38b572617eb994ebcd2796316941f7 (diff) | |
| download | emacs-efa2b08dcbf0177ef5bc21216ddd3876a9fc79e3.tar.gz | |
Delete old Date header in a simple way
* lisp/gnus/gnus-art.el (article-date-ut): Don't rely on text prop
when searching the old Date header boundary in order to delete it.
| -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." (when (looking-at "[^:]+:[\t ]*") (setq bface (get-text-property (match-beginning 0) 'face) eface (get-text-property (match-end 0) 'face))) - (delete-region pos (or (text-property-any pos (point-max) - 'gnus-date-type nil) - (point-max)))) + ;; Note: a feature like `gnus-treat-unfold-headers' breaks + ;; the continuity of text props of a multi-line Date header, + ;; that a user-defined date format might create, by adding + ;; spaces. So, don't rely on gnus-date-type or original-date + ;; text prop in case of searching the header boundary. + (delete-region pos (progn + (gnus-article-forward-header) + (point)))) (unless date ;; the 1st time (goto-char (point-min)) (while (re-search-forward "^Date:[\t ]*" nil t) |