[gnus git] branch master updated: m0-11-176-g5c703e4 =1= Improve parts deletion and stripping behavior

       via  5c703e45f585dc73e1a08f61d2776af8fb03397a (commit)
      from  d1bef1a8fa9255701fd8eda4eb670c7c31f21c9a (commit)


- Log -----------------------------------------------------------------
commit 5c703e45f585dc73e1a08f61d2776af8fb03397a
Author: Katsumi Yamaoka <[email protected]>
Date:   Thu Feb 26 03:24:28 2015 +0000

    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
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2015-02-26  Katsumi Yamaoka  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* mm-decode.el (mm-shr)
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index e4456d9..9ecfd47 100644
--- 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)
+    (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)
@@ -6433,8 +6434,7 @@ in the body.  Use `gnus-header-face-alist' to highlight buttons."
 	      (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))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    8 ++++++++
 lisp/gnus-art.el |    4 ++--
 2 files changed, 10 insertions(+), 2 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project