From f376a4b747421b4c6456500051489ae162d21957 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 26 Feb 2015 03:24:48 +0000 Subject: [PATCH] Gnus: 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. --- lisp/gnus/ChangeLog | 8 ++++++++ lisp/gnus/gnus-art.el | 4 ++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 671e171e93e..7f8971de1d5 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,11 @@ +2015-02-26 Katsumi Yamaoka + + * 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 * mm-decode.el (mm-shr) diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 83a2f941e9c..f88e7d5eec3 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -5064,6 +5064,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) @@ -6432,8 +6433,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)) -- 2.39.2