--- a/lisp/gnus/nnfolder.el	Mon Aug 13 09:23:08 2007 +0200
+++ b/lisp/gnus/nnfolder.el	Mon Aug 13 09:24:17 2007 +0200
@@ -381,7 +381,8 @@
 			(list (cons group (nnfolder-active-number group)))
 		      (setq art-group
 			    (nnmail-article-group 'nnfolder-active-number))))
-       (if (null result)
+       (if (and (null result)
+		(yes-or-no-p "Moved to `junk' group; delete article? "))
 	   (setq result 'junk)
 	 (setq result
 	       (car (nnfolder-save-mail result)))))
@@ -578,12 +579,13 @@
 	      (end (point-max))
 	      (obuf (current-buffer)))
 	  (nnfolder-possibly-change-folder (car group-art))
-	  (goto-char (point-max))
-	  (unless (eolp)
-	    (insert "\n"))
-	  (unless (bobp)
-	    (insert "\n"))
-	  (insert-buffer-substring obuf beg end))))
+	  (let ((buffer-read-only nil))
+	    (goto-char (point-max))
+	    (unless (eolp)
+	      (insert "\n"))
+	    (unless (bobp)
+	      (insert "\n"))
+	    (insert-buffer-substring obuf beg end)))))
 
     ;; Did we save it anywhere?
     save-list))