(interactive)
(if (not (gnus-buffer-live-p gnus-article-buffer))
(error "There is no article buffer for this summary buffer")
- (select-window (get-buffer-window gnus-article-buffer))
- (gnus-configure-windows 'only-article t)))
+ (unless (get-buffer-window gnus-article-buffer)
+ (gnus-summary-show-article))
+ (gnus-configure-windows 'article t)
+ (select-window (get-buffer-window gnus-article-buffer))))
(defun gnus-summary-universal-argument (arg)
"Perform any operation on all articles that are process/prefixed."
((null split-name)
(gnus-group-completing-read
prom
- (gnus-remove-if-not 'gnus-valid-move-group-p gnus-active-hashtb)
+ (remove-if-not 'gnus-valid-move-group-p gnus-active-hashtb)
nil prefix nil default))
((= 1 (length split-name))
(gnus-group-completing-read
- prom (gnus-remove-if-not 'gnus-valid-move-group-p gnus-active-hashtb)
+ prom (remove-if-not 'gnus-valid-move-group-p gnus-active-hashtb)
nil prefix 'gnus-group-history (car split-name)))
(t
(gnus-completing-read