;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:43:16 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/gnus-move.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (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 "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [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) "\306\307\211\310 \210+\212 \307\211  \211A @\211\2050\311\f@!\203\312\f\f #\210\202,\207" [nnmail-spool-file mail-sources gnus-activate-level gnus-newsrc-alist info nntp-nov-gap 0 nil gnus gnus-group-native-p gnus-move-group-to-server newsrc from-server to-server] 4 (#$ . 741) (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) "@\306\211\211\211\211\211\211\211\211\211!\"#$%&\307\310\311&#\210\312&\306'#\203\n\313 %\314\315!$\316%!%\203\n \203\n\317 &'#\211#\203\n#\320=\203\\\321 \210(q\210eb\210\322\323!\203}\324\325\224\325\225{$\"\326p!L\210\325y\210\202c\312&\306)#\203\n\327&*\"J\203\n\316\327&*\"J!\203\n\317\316\327&*\"J!&)#\211#\203\n\3308\306\211\211+#,--\203-\211.@@)#\316-\211A-@A!,,\203\300,@!\236\211+\203\371+#+AB\241\210\202,@#D!B!,\211A,@\210\202\333,#\320=\203\321 \210(q\210eb\210\322\323!\203^\327\325\224\325\225{$\"J\211\203! \fB\326p!!\236\211\"\203X\331\"!\"!\" \240\210\" B\325y\210\202!\332\333\331\306\f\"\211\205m\334\f\335\"\336\"\325%@SB\"AA\f\240\210/\306\211\2110,122\203\2402\211A2@AC1B1\202\212!\211A!@\211,\203\321,\211A,@,\203\240,\211A,@1\236\2110\n0AB\241\210\202\265100\2030@\3330\211.@A)\205\364\3340\211.@A)\335\"!\241\2100\211A0@\210\202\325\3371\330#\210,\307\310\340&#. \207" [info act-articles article to-marks to-reads to-article nil gnus-message 7 "Translating %s..." gnus-request-group gnus-parse-active gnus-make-hashtable 1024 gnus-uncompress-range gnus-retrieve-headers headers nnvirtual-convert-headers looking-at "^[0-9]+ [^ ]* [^ ]* [^ ]* \\([^ ]*\\) " intern 1 read intern-soft 3 delq gnus-range-add gnus-compress-sequence sort < t gnus-info-set-entry "Translating %s...done" marks mark type hashtb to-active group to-server nntp-server-buffer from-server gnus-active-hashtb m ms mark-lists x gnus-article-mark-lists a lists mlists] 12 (#$ . 1266)]) #@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) "\212\306 \n#\210\307\n\310#\210@\311 \312\313\f\"\203\"\f\314\225\315O\202#\f)\n\" \240\210\316 \"\317 \"JL\210\316 \"\315L+\207" [info from-server to-server group gname new-name gnus-move-group-to-server gnus-info-set-entry 4 gnus-group-prefixed-name string-match "^[^:]+:" 0 nil intern intern-soft gnus-newsrc-hashtb] 4 (#$ . 3016) (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 'gnus-move)