Mercurial > emacs

diff lisp/mail/rnews.el @ 8576:3e97c809ace1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(news-select-message): Do most of the work even for nonexistent article. (Code copied from 18.59).
author Richard M. Stallman <rms@gnu.org>
date Sun, 21 Aug 1994 17:26:15 +0000
parents ec740be1ce7b
children 187735b53d52
line wrap: on
line diff
--- 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 ()