From: Katsumi Yamaoka Date: Thu, 26 Feb 2015 03:24:48 +0000 (+0000) Subject: Gnus: Improve parts deletion and stripping behavior X-Git-Tag: emacs-25.0.90~2564^2~289 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f376a4b747421b4c6456500051489ae162d21957;p=emacs.git 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. --- 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))