[Emacs-diffs] Changes to emacs/lisp/obsolete/rnews.el

[Juanma Barranquero]

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)