Improve parts deletion and stripping behavior

* gnus-art.el (gnus-article-edit-part): Make jumping to the next part
really work when deleting or stripping.
(gnus-mime-buttonize-attachments-in-header): Make header attachment
buttons identical to the one in the article body so as to work deleting
and stripping.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c4a43df..ca66a3f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2015-02-26  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (gnus-article-edit-part): Make jumping to the next part
+       really work when deleting or stripping.
+       (gnus-mime-buttonize-attachments-in-header): Make header attachment
+       buttons identical to the one in the article body so as to work deleting
+       and stripping.
+

 2015-02-25  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * mm-decode.el (mm-shr)
 2015-02-25  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * mm-decode.el (mm-shr)

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index e4456d9..9ecfd47 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -5065,6 +5065,7 @@ and `gnus-mime-delete-part', and not provided at run-time normally."
     (let ((gnus-mime-buttonized-part-id current-id))
       (gnus-article-edit-done))
     (gnus-configure-windows 'article)
     (let ((gnus-mime-buttonized-part-id current-id))
       (gnus-article-edit-done))
     (gnus-configure-windows 'article)

+    (sit-for 0)

     (when (and current-id (integerp gnus-auto-select-part))
       (gnus-article-jump-to-part
        (min (max (+ current-id gnus-auto-select-part) 1)
     (when (and current-id (integerp gnus-auto-select-part))
       (gnus-article-jump-to-part
        (min (max (+ current-id gnus-auto-select-part) 1)


@@ -6433,8 +6434,7 @@ in the body.  Use `gnus-header-face-alist' to highlight buttons."
              (dolist (button (nreverse buttons))
                (setq st (point))
                (insert " ")
              (dolist (button (nreverse buttons))
                (setq st (point))
                (insert " ")

-               (mm-handle-set-undisplayer
-                (setq handle (copy-sequence (cdr button))) nil)
+               (mm-handle-set-undisplayer (setq handle (cdr button)) nil)

                (gnus-insert-mime-button handle (car button))
                (skip-chars-backward "\t\n ")
                (delete-region (point) (point-max))
                (gnus-insert-mime-button handle (car button))
                (skip-chars-backward "\t\n ")
                (delete-region (point) (point-max))