+1999-10-06 Yoshiki Hayashi <t90553@mail.ecc.u-tokyo.ac.jp>
+
+ * lisp/gnus-sum.el (gnus-read-move-group-name): Revert
+ to previous version until problem of respooling from
+ nnimap to nnml is solved.
+ (gnus-summary-move-article): Ditto.
+
1999-10-05 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus.el (gnus-revision-number): Increment to 02.
(symbol-value (intern (format "gnus-current-%s-group" action)))
articles prefix))
(set (intern (format "gnus-current-%s-group" action)) to-newsgroup))
- (if (null to-newsgroup)
- (message "Nothing to be done")
- ;; We don't dare to indent below to make future sync'ing easier.
-
(setq to-method (or select-method
(gnus-group-name-to-method to-newsgroup)))
;; Check the method we are to move this article to...
(gnus-kill-buffer copy-buf)
(gnus-summary-position-point)
(gnus-set-mode-line 'summary)))
- )
(defun gnus-summary-copy-article (&optional n to-newsgroup select-method)
"Move the current article to a different newsgroup.
(gnus-group-name-to-method
to-newsgroup)))
(error "Couldn't create group %s" to-newsgroup)))
- (setq to-newsgroup nil)))
+ (error "No such group: %s" to-newsgroup)))
to-newsgroup))
(defun gnus-summary-save-parts (type dir n reverse)