From 515f9062d505485163fd992d12fcf86fa4d51da2 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 1 Oct 1999 11:08:37 +0000 Subject: [PATCH] (gnus-read-move-group-name): Returns nil instead of signaling an error if the destination group is not newly created. (gnus-summary-move-article): Do nothing if the destination group is not newly created. --- lisp/gnus-sum.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index b10afd3..66b1d1a 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -7411,6 +7411,10 @@ and `request-accept' functions." (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... @@ -7586,6 +7590,7 @@ and `request-accept' functions." (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. @@ -9132,7 +9137,7 @@ save those articles instead." (gnus-group-name-to-method to-newsgroup))) (error "Couldn't create group %s" to-newsgroup))) - (error "No such group: %s" to-newsgroup))) + (setq to-newsgroup nil))) to-newsgroup)) (defun gnus-summary-save-parts (type dir n reverse) -- 1.7.10.4