[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master f376a4b: Gnus: Improve parts deletion and stripping
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] master f376a4b: Gnus: Improve parts deletion and stripping behavior |
Date: |
Thu, 26 Feb 2015 03:25:08 +0000 |
branch: master
commit f376a4b747421b4c6456500051489ae162d21957
Author: Katsumi Yamaoka <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>
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 671e171..7f8971d 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,11 @@
+2015-02-26 Katsumi Yamaoka <address@hidden>
+
+ * 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 <address@hidden>
* mm-decode.el (mm-shr)
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 83a2f94..f88e7d5 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master f376a4b: Gnus: Improve parts deletion and stripping behavior,
Katsumi Yamaoka <=