;ELC   
;;; compiled by amu@tux.mit.edu on Sun Nov 15 14:42:05 1998
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.6.44/lisp/gnus-move.el
;;; emacs version 19.34.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`gnus-move.el' was compiled for Emacs 19.29 or later"))


(byte-code "ÀÁ!ˆÀÂ!ˆÀÃ!ˆÀÄ!‡" [require gnus gnus-start gnus-int gnus-range] 2)
#@103 Move from FROM-SERVER to TO-SERVER.
Update the .newsrc.eld file to reflect the change of nntp server.
(defalias 'gnus-change-server #[(from-server to-server) "ÀÁÄ ˆ*ŠÁ‰‰A@‰…3 É@!ƒ Ê\f#ˆ‚ ,‡" [0 nil nnmail-spool-file gnus-activate-level gnus gnus-newsrc-alist info nntp-nov-gap newsrc gnus-group-native-p gnus-move-group-to-server from-server to-server] 4 (#$ . 580) (list gnus-select-method (gnus-read-method "Move to method: "))])
#@48 Move group INFO from FROM-SERVER to TO-SERVER.
(defalias 'gnus-move-group-to-server #[(info from-server to-server) "@Á‰‰‰‰‰‰‰‰‰	\n\fÍÎÏ\f#ˆÐ\fÁ#ƒôÒ ÓÔ!\nÕ!ƒô\nƒôÖ\n\f#‰	ƒô	×=ƒ] Ø ˆqˆebˆÚÛ!ƒ~ ÜÝ”Ý•{\n\"Þp!LˆÝyˆ‚d Ð\fÁ#ƒôà\f!\"JƒôÖÕà\f!\"J!\f#‰	ƒôâ8Á‰‰#	$%%ƒÿ %@@	Õ%‰A%@A!$$ƒµ $@ž‰#ƒê #	#AB¡ˆ‚õ $@	DB$‰A$ˆ‚Ì ,	×=ƒ\nØ ˆqˆebˆÚÛ!ƒQàÝ”Ý•{\n\"J‰ƒBÞp!ž‰ƒKæ\" ˆ\fBÝyˆ‚çèæÁ\"‰…`éê\"ë\"Ý@SB\"AA ˆ,Á‰‰-$.//ƒ“/‰A/@AC.B.‚}‰A@‰$ƒÄ$‰A$@$ƒ“$‰A$@.ž‰--AB¡ˆ‚¨.--ƒì-@è-@A…ßé-@Aê\"!¡ˆ-‰A-ˆ‚Èð.â#ˆ,ÍÎñ\f#.‡" [info nil act-articles article to-marks to-reads to-article marks mark type hashtb to-active group gnus-message 7 "Translating %s..." gnus-request-group to-server gnus-parse-active gnus-make-hashtable 1024 gnus-uncompress-range gnus-retrieve-headers headers nnvirtual-convert-headers nntp-server-buffer looking-at "^[0-9]+	[^	]*	[^	]*	[^	]*	\\([^	]*\\)	" intern 1 read from-server intern-soft gnus-active-hashtb 3 m ms mark-lists delq gnus-range-add gnus-compress-sequence sort < t gnus-article-mark-lists a lists mlists gnus-info-set-entry "Translating %s...done"] 11 (#$ . 1042)])
#@67 Move the group on the current line from FROM-SERVER to TO-SERVER.
(defalias 'gnus-group-move-group-to-server #[(info from-server to-server) "ŠÀ	\n#ˆÄ	Å#ˆ	@ÇÉÊ\"ƒ' Ë•ÌO‚) )\"	 ˆÎ\"Ð\"JLˆÎ\"ÌL+‡" [gnus-move-group-to-server info from-server to-server gnus-info-set-entry 4 group gnus-group-prefixed-name gname string-match "^[^:]+:" 0 nil new-name intern gnus-newsrc-hashtb intern-soft] 4 (#$ . 2285) (let ((info (gnus-get-info (gnus-group-group-name)))) (list info (gnus-find-method-for-group (gnus-info-group info)) (gnus-read-method (format "Move group %s to method: " (gnus-info-group info)))))])
(provide (quote gnus-move))
