[Emacs-diffs] master 4b9f932: Create a new overlay used to mark Attachment header (bug#37370)

[Katsumi Yamaoka]

branch: master
commit 4b9f9324a87388ceb7ce1359feb5686efcb2523e
Author: Katsumi Yamaoka <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>

    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.
---
 lisp/gnus/gnus-art.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 04cb087..eba66c1c 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -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))))