105 |
|
|
106 |
(defvar news-mode-map nil) |
(defvar news-mode-map nil) |
107 |
(defvar news-read-first-time-p t) |
(defvar news-read-first-time-p t) |
108 |
;; Contains the (dotified) news groups of which you are a member. |
;; Contains the (dotified) news groups of which you are a member. |
109 |
(defvar news-user-group-list nil) |
(defvar news-user-group-list nil) |
110 |
|
|
111 |
(defvar news-current-news-group nil) |
(defvar news-current-news-group nil) |
133 |
;; association list in which we store lists of the form |
;; association list in which we store lists of the form |
134 |
;; (pointified-group-name (first last old-last)) |
;; (pointified-group-name (first last old-last)) |
135 |
(defvar news-group-article-assoc nil) |
(defvar news-group-article-assoc nil) |
136 |
|
|
137 |
(defvar news-current-message-number 0 "Displayed Article Number") |
(defvar news-current-message-number 0 "Displayed Article Number") |
138 |
(defvar news-total-current-group 0 "Total no of messages in group") |
(defvar news-total-current-group 0 "Total no of messages in group") |
139 |
|
|
337 |
g get new USENET news. |
g get new USENET news. |
338 |
f post a reply article to USENET. |
f post a reply article to USENET. |
339 |
a post an original news article. |
a post an original news article. |
340 |
A add a newsgroup. |
A add a newsgroup. |
341 |
o save the current article in the named file (append if file exists). |
o save the current article in the named file (append if file exists). |
342 |
C-o output this message to a Unix-format mail file (append it). |
C-o output this message to a Unix-format mail file (append it). |
343 |
c \"copy\" (actually link) current or prefix-arg msg to file. |
c \"copy\" (actually link) current or prefix-arg msg to file. |
435 |
(buffer-substring end endofline)))) |
(buffer-substring end endofline)))) |
436 |
(if (assoc tem news-group-article-assoc) |
(if (assoc tem news-group-article-assoc) |
437 |
(message "You are subscribed twice to %s; I ignore second" |
(message "You are subscribed twice to %s; I ignore second" |
438 |
tem) |
tem) |
439 |
(setq temp-user-groups (cons tem temp-user-groups) |
(setq temp-user-groups (cons tem temp-user-groups) |
440 |
news-group-article-assoc |
news-group-article-assoc |
441 |
(cons (list tem (list (car range) |
(cons (list tem (list (car range) |
442 |
(cdr range) |
(cdr range) |
443 |
(cdr range))) |
(cdr range))) |
444 |
news-group-article-assoc))))) |
news-group-article-assoc))))) |
445 |
(kill-buffer newsrcbuf))) |
(kill-buffer newsrcbuf))) |
446 |
(setq temp-user-groups (nreverse temp-user-groups)) |
(setq temp-user-groups (nreverse temp-user-groups)) |
447 |
(message "Prefrobnicating...") |
(message "Prefrobnicating...") |
448 |
(switch-to-buffer news-buffer) |
(switch-to-buffer news-buffer) |
528 |
(let ((file (concat news-path |
(let ((file (concat news-path |
529 |
(string-subst-char ?/ ?. news-current-news-group) |
(string-subst-char ?/ ?. news-current-news-group) |
530 |
"/" arg))) |
"/" arg))) |
531 |
(if (= arg |
(if (= arg |
532 |
(or (news-cadr (memq (news-cdar news-point-pdl) news-list-of-files)) |
(or (news-cadr (memq (news-cdar news-point-pdl) news-list-of-files)) |
533 |
0)) |
0)) |
534 |
(setcdr (car news-point-pdl) arg)) |
(setcdr (car news-point-pdl) arg)) |
552 |
If ARG is 1 or -1, moves to next or previous newsgroup if at end." |
If ARG is 1 or -1, moves to next or previous newsgroup if at end." |
553 |
(interactive "p") |
(interactive "p") |
554 |
(let ((no (+ arg news-current-message-number))) |
(let ((no (+ arg news-current-message-number))) |
555 |
(if (or (< no news-current-group-begin) |
(if (or (< no news-current-group-begin) |
556 |
(> no news-current-group-end)) |
(> no news-current-group-end)) |
557 |
(cond ((= arg 1) |
(cond ((= arg 1) |
558 |
(news-set-current-group-certification) |
(news-set-current-group-certification) |