Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-move.el @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 43dd3413c7c7
children
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
57 57
58 (defun gnus-move-group-to-server (info from-server to-server) 58 (defun gnus-move-group-to-server (info from-server to-server)
59 "Move group INFO from FROM-SERVER to TO-SERVER." 59 "Move group INFO from FROM-SERVER to TO-SERVER."
60 (let ((group (gnus-info-group info)) 60 (let ((group (gnus-info-group info))
61 to-active hashtb type mark marks 61 to-active hashtb type mark marks
62 to-article to-reads to-marks article) 62 to-article to-reads to-marks article
63 act-articles)
63 (gnus-message 7 "Translating %s..." group) 64 (gnus-message 7 "Translating %s..." group)
64 (when (gnus-request-group group nil to-server) 65 (when (gnus-request-group group nil to-server)
65 (setq to-active (gnus-parse-active) 66 (setq to-active (gnus-parse-active)
66 hashtb (gnus-make-hashtable 1024)) 67 hashtb (gnus-make-hashtable 1024)
68 act-articles (gnus-uncompress-range to-active))
67 ;; Fetch the headers from the `to-server'. 69 ;; Fetch the headers from the `to-server'.
68 (when (and to-active 70 (when (and to-active
71 act-articles
69 (setq type (gnus-retrieve-headers 72 (setq type (gnus-retrieve-headers
70 (gnus-uncompress-range to-active) 73 act-articles
71 group to-server))) 74 group to-server)))
72 ;; Convert HEAD headers. I don't care. 75 ;; Convert HEAD headers. I don't care.
73 (when (eq type 'headers) 76 (when (eq type 'headers)
74 (nnvirtual-convert-headers)) 77 (nnvirtual-convert-headers))
75 ;; Create a mapping from Message-ID to article number. 78 ;; Create a mapping from Message-ID to article number.