/[emacs]/emacs/lisp/obsolete/rnews.el
ViewVC logotype

Diff of /emacs/lisp/obsolete/rnews.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pj, Sun Jul 15 16:15:35 2001 UTC revision 1.2.8.1 by miles, Fri Apr 4 06:20:31 2003 UTC
# Line 105  if its GROUP-REGEXP matches the current Line 105  if its GROUP-REGEXP matches the current
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)
# Line 133  Not currently used.") Line 133  Not currently used.")
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    
# Line 337  C-c C-r caesar rotate all letters by 13 Line 337  C-c C-r caesar rotate all letters by 13
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.
# Line 435  to a list (a . b)" Line 435  to a list (a . b)"
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)
# Line 528  to a list (a . b)" Line 528  to a list (a . b)"
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))
# Line 552  Negative ARG moves backward. Line 552  Negative ARG moves backward.
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)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.2.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26