From 012dfa4207e6c4756d015953e098fb085c633943 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 15 Apr 2006 11:57:00 +0000 Subject: [PATCH] (gnus-summary-thread-map): New keystroke. (gnus-summary-reparent-children): Make into command. --- lisp/ChangeLog | 2 ++ lisp/gnus-sum.el | 7 +++++++ 2 files changed, 9 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 61cb0949e..53609f788 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -3,6 +3,8 @@ * gnus-sum.el (gnus-summary-reparent-thread): Factor out reparenting code. (gnus-summary-reparent-children): Refactored out code. + (gnus-summary-thread-map): New keystroke. + (gnus-summary-reparent-children): Make into command. * smiley.el (smiley-style): Default to `medium' if using a large font. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 1f275612d..277d170e4 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -1889,6 +1889,7 @@ increase the score of each group you read." "T" gnus-summary-toggle-threads "t" gnus-summary-rethread-current "^" gnus-summary-reparent-thread + "\M-^" gnus-summary-reparent-children "s" gnus-summary-show-thread "S" gnus-summary-show-all-threads "h" gnus-summary-hide-thread @@ -10829,6 +10830,12 @@ is non-nil or the Subject: of both articles are the same." (gnus-summary-reparent-children parent (list child)))) (defun gnus-summary-reparent-children (parent children) + "Make PARENT the parent of CHILDREN. +When called interactively, PARENT is is current article and +CHILDREN are the process-marked articles." + (interactive + (list (gnus-summary-article-number) + (gnus-summary-work-articles nil))) (dolist (child children) (save-window-excursion (let ((gnus-article-buffer " *reparent*")) -- 2.34.1