(gnus-summary-reparent-children): Make into command.
* gnus-sum.el (gnus-summary-reparent-thread): Factor out
reparenting code.
(gnus-summary-reparent-children): Refactored out code.
* 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.
* smiley.el (smiley-style): Default to `medium' if using a large
font.
"T" gnus-summary-toggle-threads
"t" gnus-summary-rethread-current
"^" gnus-summary-reparent-thread
"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
"s" gnus-summary-show-thread
"S" gnus-summary-show-all-threads
"h" gnus-summary-hide-thread
(gnus-summary-reparent-children parent (list child))))
(defun gnus-summary-reparent-children (parent children)
(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*"))
(dolist (child children)
(save-window-excursion
(let ((gnus-article-buffer " *reparent*"))