;;; Code:
-(require 'gnus-load)
+(require 'gnus)
(require 'gnus-start)
(require 'gnus-int)
(require 'gnus-range)
-(require 'gnus)
;;;
;;; Moving by comparing Message-ID's.
(when (gnus-group-native-p (gnus-info-group info))
(gnus-move-group-to-server info from-server to-server))))))
-(defun gnus-move-group-to-server (info from-server to-server)
+(defun gnus-move-group-to-server (info from-server to-server)
"Move group INFO from FROM-SERVER to TO-SERVER."
(let ((group (gnus-info-group info))
to-active hashtb type mark marks