[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/obsolete/rnews.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/obsolete/rnews.el |
Date: |
Fri, 04 Apr 2003 01:22:44 -0500 |
Index: emacs/lisp/obsolete/rnews.el
diff -c emacs/lisp/obsolete/rnews.el:1.2 emacs/lisp/obsolete/rnews.el:1.3
*** emacs/lisp/obsolete/rnews.el:1.2 Sun Jul 15 12:15:35 2001
--- emacs/lisp/obsolete/rnews.el Tue Feb 4 08:18:33 2003
***************
*** 105,111 ****
(defvar news-mode-map nil)
(defvar news-read-first-time-p t)
! ;; Contains the (dotified) news groups of which you are a member.
(defvar news-user-group-list nil)
(defvar news-current-news-group nil)
--- 105,111 ----
(defvar news-mode-map nil)
(defvar news-read-first-time-p t)
! ;; Contains the (dotified) news groups of which you are a member.
(defvar news-user-group-list nil)
(defvar news-current-news-group nil)
***************
*** 133,139 ****
;; association list in which we store lists of the form
;; (pointified-group-name (first last old-last))
(defvar news-group-article-assoc nil)
!
(defvar news-current-message-number 0 "Displayed Article Number")
(defvar news-total-current-group 0 "Total no of messages in group")
--- 133,139 ----
;; association list in which we store lists of the form
;; (pointified-group-name (first last old-last))
(defvar news-group-article-assoc nil)
!
(defvar news-current-message-number 0 "Displayed Article Number")
(defvar news-total-current-group 0 "Total no of messages in group")
***************
*** 337,343 ****
g get new USENET news.
f post a reply article to USENET.
a post an original news article.
! A add a newsgroup.
o save the current article in the named file (append if file exists).
C-o output this message to a Unix-format mail file (append it).
c \"copy\" (actually link) current or prefix-arg msg to file.
--- 337,343 ----
g get new USENET news.
f post a reply article to USENET.
a post an original news article.
! A add a newsgroup.
o save the current article in the named file (append if file exists).
C-o output this message to a Unix-format mail file (append it).
c \"copy\" (actually link) current or prefix-arg msg to file.
***************
*** 435,448 ****
(buffer-substring end endofline))))
(if (assoc tem news-group-article-assoc)
(message "You are subscribed twice to %s; I ignore second"
! tem)
(setq temp-user-groups (cons tem temp-user-groups)
news-group-article-assoc
(cons (list tem (list (car range)
(cdr range)
(cdr range)))
news-group-article-assoc)))))
! (kill-buffer newsrcbuf)))
(setq temp-user-groups (nreverse temp-user-groups))
(message "Prefrobnicating...")
(switch-to-buffer news-buffer)
--- 435,448 ----
(buffer-substring end endofline))))
(if (assoc tem news-group-article-assoc)
(message "You are subscribed twice to %s; I ignore second"
! tem)
(setq temp-user-groups (cons tem temp-user-groups)
news-group-article-assoc
(cons (list tem (list (car range)
(cdr range)
(cdr range)))
news-group-article-assoc)))))
! (kill-buffer newsrcbuf)))
(setq temp-user-groups (nreverse temp-user-groups))
(message "Prefrobnicating...")
(switch-to-buffer news-buffer)
***************
*** 528,534 ****
(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))
--- 528,534 ----
(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))
***************
*** 552,558 ****
If ARG is 1 or -1, moves to next or previous newsgroup if at end."
(interactive "p")
(let ((no (+ arg news-current-message-number)))
! (if (or (< no news-current-group-begin)
(> no news-current-group-end))
(cond ((= arg 1)
(news-set-current-group-certification)
--- 552,558 ----
If ARG is 1 or -1, moves to next or previous newsgroup if at end."
(interactive "p")
(let ((no (+ arg news-current-message-number)))
! (if (or (< no news-current-group-begin)
(> no news-current-group-end))
(cond ((= arg 1)
(news-set-current-group-certification)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/obsolete/rnews.el,
Miles Bader <=