Mercurial > emacs
changeset 8576:3e97c809ace1
(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 | 2d50d249caf4 |
| children | e4f634a14441 |
| files | lisp/mail/rnews.el |
| diffstat | 1 files changed, 9 insertions(+), 8 deletions(-) [+] |
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 ()