# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 777489975 0
# Node ID 3e97c809ace10a5ae917516ada6ffb23a42cf71c
# Parent  2d50d249caf4fd2ddbd783358dd2737057e21f4e
(news-select-message): Do most of the work
even for nonexistent article.  (Code copied from 18.59).

diff -r 2d50d249caf4 -r 3e97c809ace1 lisp/mail/rnews.el
--- a/lisp/mail/rnews.el	Sun Aug 21 03:54:45 1994 +0000
+++ b/lisp/mail/rnews.el	Sun Aug 21 17:26:15 1994 +0000
@@ -524,15 +524,16 @@
   (let ((file (concat news-path
 		      (string-subst-char ?/ ?. news-current-news-group)
 		      "/" arg)))
+    (if (= arg 
+	   (or (news-cadr (memq (news-cdar news-point-pdl) news-list-of-files))
+	       0))
+	(setcdr (car news-point-pdl) arg))
+    (setq news-current-message-number arg)
     (if (file-exists-p file)
-	(let ((buffer-read-only ()))
-	  (if (= arg 
-		 (or (news-cadr (memq (news-cdar news-point-pdl) news-list-of-files))
-		     0))
-	      (setcdr (car news-point-pdl) arg))
-	  (setq news-current-message-number arg)
-	  (news-read-in-file file)
-	  (news-set-mode-line))
+  	(let ((buffer-read-only nil))
+  	  (news-read-in-file file)
+  	  (news-set-mode-line))
+      (news-set-mode-line)
       (error "Article %d nonexistent" arg))))
 
 (defun news-force-update ()