mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

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

Browse Source 
even for nonexistent article.  (Code copied from 18.59).
This commit is contained in:
Richard M. Stallman 1994-08-21 17:26:15 +00:00
parent 31cc18672a
commit 20285524e1
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/mail/rnews.el
View File

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