[Emacs-diffs] trunk r117037: lisp/gnus/gnus-art.el (gnus-mm-display-part): Highlight header attachment buttons

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 117037
revision-id: address@hidden
parent: address@hidden
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2014-05-01 07:59:33 +0000
message:
  lisp/gnus/gnus-art.el (gnus-mm-display-part): Highlight header attachment 
buttons
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-art.el          gnusart.el-20091113204419-o5vbwnq5f7feedwu-1108

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2014-04-30 04:05:27 +0000
+++ b/lisp/gnus/ChangeLog       2014-05-01 07:59:33 +0000
@@ -1,3 +1,8 @@
+2014-05-01  Katsumi Yamaoka  <address@hidden>
+
+       * gnus-art.el (gnus-mm-display-part):
+       Highlight header attachment buttons.
+
 2014-04-30  Katsumi Yamaoka  <address@hidden>
 
        * gnus-art.el (gnus-mm-display-part): Don't move point while toggling

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2014-04-30 09:21:09 +0000
+++ b/lisp/gnus/gnus-art.el     2014-05-01 07:59:33 +0000
@@ -5673,15 +5673,27 @@
                 (mm-handle-media-type handle))))))
       (goto-char point)
       ;; Toggle the button appearance between `[button]...' and `[button]'.
-      (let ((end (next-single-property-change point 'gnus-data)))
-       (delete-region (previous-single-property-change end 'gnus-data) end))
-      (gnus-insert-mime-button
-       handle id (list (mm-handle-displayed-p handle)))
-      (let ((pt (point)))
+      (let ((end (next-single-property-change point 'gnus-data))
+           start)
+       (delete-region
+        (setq start (previous-single-property-change end 'gnus-data))
+        end)
+       (gnus-insert-mime-button
+        handle id (list (mm-handle-displayed-p handle)))
+       (setq end (point))
        (if (search-backward "\n\n" nil t)
-           (goto-char pt)
+           (goto-char end)
          ;; We're in the article header.
-         (delete-char -1)))
+         (delete-char -1)
+         (dolist (ovl (gnus-overlays-in start (1- end)))
+           (gnus-overlay-put ovl 'gnus-button-attachment-extra t)
+           (gnus-overlay-put ovl 'face nil))
+         (save-restriction
+           (message-narrow-to-field)
+           (let ((gnus-treatment-function-alist
+                  '((gnus-treat-highlight-headers
+                     gnus-article-highlight-headers))))
+             (gnus-treat-article 'head)))))
       (goto-char point)
       (if (window-live-p window)
          (select-window window)))