(news-select-message): Do most of the work

even for nonexistent article.  (Code copied from 18.59).

1 files changed, 9 insertions, 8 deletions

diff --git a/lisp/mail/rnews.el b/lisp/mail/rnews.el
index d3e76dc1903..c793fa150eb 100644
--- a/lisp/mail/rnews.el
+++ b/lisp/mail/rnews.el
@@ -524,15 +524,16 @@ to a list (a . b)"
   (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 ()