procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Delete old Date header in a simple way

Browse source 
* 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.
This commit is contained in:
Katsumi Yamaoka 2017-06-20 09:11:07 +00:00
parent de296e0d2e
commit efa2b08dcb
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/gnus/gnus-art.el
View file

@ -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)