From: yamaoka <yamaoka>
Date: Fri, 1 Oct 1999 11:08:37 +0000 (+0000)
Subject: (gnus-read-move-group-name): Returns nil instead of signaling an error if the
X-Git-Tag: t-gnus-6_13_2-01~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=515f9062d505485163fd992d12fcf86fa4d51da2;p=elisp%2Fgnus.git-

(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.
---

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)