From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 21 Aug 1994 17:26:15 +0000 (+0000)
Subject: (news-select-message): Do most of the work
X-Git-Tag: emacs-19.34~7277
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=20285524e1e20ea140de5232e96dfd055d82985b;p=emacs.git

(news-select-message): Do most of the work
even for nonexistent article.  (Code copied from 18.59).
---

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