Commit 4b9f9324 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka

Create a new overlay used to mark Attachment header (bug#37370)

* lisp/gnus/gnus-art.el (gnus-mime-inline-part)
(gnus-mm-display-part, gnus-mime-buttonize-attachments-in-header):
Create a new overlay used to mark Attachment header instead of
using existing overlays.
parent 3d442312
Pipeline #3095 failed with stage
in 53 minutes and 30 seconds
......@@ -5378,9 +5378,9 @@ Compressed files like .gz and .bz2 are decompressed."
'gnus-undeletable t))))
;; We're in the article header.
(delete-char -1)
(dolist (ovl (overlays-in btn (point)))
(let ((ovl (make-overlay btn (point))))
(overlay-put ovl 'gnus-button-attachment-extra t)
(overlay-put ovl 'face nil))
(overlay-put ovl 'evaporate t))
(save-restriction
(message-narrow-to-field)
(let ((gnus-treatment-function-alist
......@@ -5763,9 +5763,9 @@ all parts."
'gnus-undeletable t))))
;; We're in the article header.
(delete-char -1)
(dolist (ovl (overlays-in point (point)))
(let ((ovl (make-overlay point (point))))
(overlay-put ovl 'gnus-button-attachment-extra t)
(overlay-put ovl 'face nil))
(overlay-put ovl 'evaporate t))
(save-restriction
(message-narrow-to-field)
(let ((gnus-treatment-function-alist
......@@ -6379,9 +6379,9 @@ in the body. Use `gnus-header-face-alist' to highlight buttons."
(insert "\n")
(end-of-line)))
(insert "\n")
(dolist (ovl (overlays-in (point-min) (point)))
(let ((ovl (make-overlay (point-min) (point))))
(overlay-put ovl 'gnus-button-attachment-extra t)
(overlay-put ovl 'face nil))
(overlay-put ovl 'evaporate t))
(let ((gnus-treatment-function-alist
'((gnus-treat-highlight-headers
gnus-article-highlight-headers))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment