*** pub/rgnus/lisp/gnus-demon.el	Sun Sep  8 12:09:24 1996
--- rgnus/lisp/gnus-demon.el	Tue Sep 10 19:23:36 1996
***************
*** 112,118 ****
         (nnheader-cancel-timer gnus-demon-timer))
    (setq gnus-demon-timer nil
  	gnus-use-demon nil)
!   (nnheader-cancel-function-timers 'gnus-demon))
  
  (defun gnus-demon-is-idle-p ()
    "Whether Emacs is idle or not."
--- 112,119 ----
         (nnheader-cancel-timer gnus-demon-timer))
    (setq gnus-demon-timer nil
  	gnus-use-demon nil)
!   ;;(nnheader-cancel-function-timers 'gnus-demon)
!   )
  
  (defun gnus-demon-is-idle-p ()
    "Whether Emacs is idle or not."
*** pub/rgnus/lisp/gnus-dup.el	Sun Sep  1 05:45:26 1996
--- rgnus/lisp/gnus-dup.el	Tue Sep 10 20:09:28 1996
***************
*** 50,55 ****
--- 50,57 ----
  (defvar gnus-dup-list nil)
  (defvar gnus-dup-hashtb nil)
  
+ (defvar gnus-dup-list-dirty nil)
+ 
  ;;;
  ;;; Starting and stopping
  ;;;
***************
*** 58,67 ****
  
  (defun gnus-dup-close ()
    "Possibly save the duplicate suppression list and shut down the subsystem."
!   (when gnus-save-duplicate-list
!     (gnus-dup-save))
    (setq gnus-dup-list nil
! 	gnus-dup-hashtb nil))
  
  (defun gnus-dup-open ()
    "Possibly read the duplicate suppression list and start the subsystem."
--- 60,69 ----
  
  (defun gnus-dup-close ()
    "Possibly save the duplicate suppression list and shut down the subsystem."
!   (gnus-dup-save)
    (setq gnus-dup-list nil
! 	gnus-dup-hashtb nil
! 	gnus-dup-list-dirty nil))
  
  (defun gnus-dup-open ()
    "Possibly read the duplicate suppression list and start the subsystem."
***************
*** 83,90 ****
  
  (defun gnus-dup-save ()
    "Save the duplicate suppression list."
!   (nnheader-temp-write gnus-duplicate-file
!     (gnus-prin1 `(setq gnus-duplicate-file ',gnus-duplicate-file))))
  
  ;;;
  ;;; Interface functions
--- 85,95 ----
  
  (defun gnus-dup-save ()
    "Save the duplicate suppression list."
!   (when (and gnus-save-duplicate-list
! 	     gnus-dup-list-dirty)
!     (nnheader-temp-write gnus-duplicate-file
!       (gnus-prin1 `(setq gnus-dup-list ',gnus-dup-list))))
!   (setq gnus-dup-list-dirty nil))
  
  ;;;
  ;;; Interface functions
***************
*** 94,113 ****
    "Enter articles from the current group for future duplicate suppression."
    (unless gnus-dup-list
      (gnus-dup-open))
!   (let ((data gnus-newsgroup-data))
      ;; Enter the Message-IDs of all read articles into the list
      ;; and hash table.
!     (while data
!       (when (and (not (gnus-data-pseudo-p data))
! 		 (gnus-data-read-p (car data)))
! 	(intern (car (push (mail-header-id (gnus-data-header (car data)))
  			   gnus-dup-list))
! 		gnus-dup-hashtb))
!       (pop data))
!     ;; Chop off excess Message-IDs from the list.
!     (let ((end (nthcdr gnus-duplicate-list-length gnus-dup-list)))
!       (when end 
! 	(setcdr end nil)))))
  
  (defun gnus-dup-suppress-articles ()
    "Mark duplicate articles as read."
--- 99,119 ----
    "Enter articles from the current group for future duplicate suppression."
    (unless gnus-dup-list
      (gnus-dup-open))
!   (setq gnus-dup-list-dirty t)		; mark list for saving
!   (let ((data gnus-newsgroup-data)
! 	datum)
      ;; Enter the Message-IDs of all read articles into the list
      ;; and hash table.
!     (while (setq datum (pop data))
!       (when (and (not (gnus-data-pseudo-p datum))
! 		 (gnus-data-read-p datum))
! 	(intern (car (push (mail-header-id (gnus-data-header datum))
  			   gnus-dup-list))
! 		gnus-dup-hashtb))))
!   ;; Chop off excess Message-IDs from the list.
!   (let ((end (nthcdr gnus-duplicate-list-length gnus-dup-list)))
!     (when end 
!       (setcdr end nil))))
  
  (defun gnus-dup-suppress-articles ()
    "Mark duplicate articles as read."
***************
*** 115,135 ****
      (gnus-dup-open))
    (gnus-message 6 "Suppressing duplicates...")
    (let ((headers gnus-newsgroup-headers)
! 	number)
!     (while headers
!       (when (intern-soft (mail-header-id (car headers)) gnus-dup-hashtb)
  	(setq gnus-newsgroup-unreads 
! 	      (delq (setq number (mail-header-number (car headers)))
  		    gnus-newsgroup-unreads))
  	(push (cons number gnus-duplicate-mark)
! 	      gnus-newsgroup-reads))
!       (pop headers)))
    (gnus-message 6 "Suppressing duplicates...done"))
  
  (defun gnus-dup-unsuppress-article (article)
    "Stop suppression of ARTICLE."
    (let ((id (mail-header-id (gnus-data-header (gnus-data-find article)))))
      (when id
        (setq gnus-dup-list (delete id gnus-dup-list))
        (unintern id gnus-dup-hashtb))))
  
--- 121,141 ----
      (gnus-dup-open))
    (gnus-message 6 "Suppressing duplicates...")
    (let ((headers gnus-newsgroup-headers)
! 	number header)
!     (while (setq header (pop headers))
!       (when (intern-soft (mail-header-id header) gnus-dup-hashtb)
  	(setq gnus-newsgroup-unreads 
! 	      (delq (setq number (mail-header-number header))
  		    gnus-newsgroup-unreads))
  	(push (cons number gnus-duplicate-mark)
! 	      gnus-newsgroup-reads))))
    (gnus-message 6 "Suppressing duplicates...done"))
  
  (defun gnus-dup-unsuppress-article (article)
    "Stop suppression of ARTICLE."
    (let ((id (mail-header-id (gnus-data-header (gnus-data-find article)))))
      (when id
+       (setq gnus-dup-list-dirty t)
        (setq gnus-dup-list (delete id gnus-dup-list))
        (unintern id gnus-dup-hashtb))))
  
*** pub/rgnus/lisp/gnus-gl.el	Mon Sep  9 19:31:00 1996
--- rgnus/lisp/gnus-gl.el	Tue Sep 10 21:20:04 1996
***************
*** 141,150 ****
    "Port where the bbbd is listening" )
  
  (defvar grouplens-newsgroups 
!   '("comp.lang.c++" "rec.humor" "rec.food.recipes" "comp.groupware"
      "mn.general" "rec.arts.movies" "rec.arts.movies.current-films"
!     "comp.lang.java" "comp.os.linux.announce" "comp.os.linux.misc"
!     "comp.os.linux.development.apps" "comp.os.linux.development.system")
    "*Groups that are part of the GroupLens experiment.")
  
  (defvar grouplens-prediction-display 'prediction-spot
--- 141,155 ----
    "Port where the bbbd is listening" )
  
  (defvar grouplens-newsgroups 
!   '("comp.groupware" "comp.human-factors" "comp.lang.c++"
!     "comp.lang.java" "comp.os.linux.admin" "comp.os.linux.advocacy"
!     "comp.os.linux.announce" "comp.os.linux.answers"
!     "comp.os.linux.development" "comp.os.linux.development.apps"
!     "comp.os.linux.development.system" "comp.os.linux.hardware"
!     "comp.os.linux.help" "comp.os.linux.m68k" "comp.os.linux.misc"
!     "comp.os.linux.networking" "comp.os.linux.setup" "comp.os.linux.x"
      "mn.general" "rec.arts.movies" "rec.arts.movies.current-films"
!     "rec.food.recipes" "rec.humor") 
    "*Groups that are part of the GroupLens experiment.")
  
  (defvar grouplens-prediction-display 'prediction-spot
*** pub/rgnus/lisp/gnus-kill.el	Sun Sep  8 12:09:27 1996
--- rgnus/lisp/gnus-kill.el	Tue Sep 10 22:56:52 1996
***************
*** 667,705 ****
  the comp hierarchy, you'd say \"comp.all\".  If you would not like to
  score the alt hierarchy, you'd say \"!alt.all\"."
    (interactive)
!   (let* ((yes-and-no
  	  (gnus-newsrc-parse-options
! 	   (apply (function concat)
! 		  (mapcar (lambda (g) (concat g " "))
! 			  command-line-args-left))))
  	 (gnus-expert-user t)
  	 (nnmail-spool-file nil)
  	 (gnus-use-dribble-file nil)
- 	 (yes (car yes-and-no))
- 	 (no (cdr yes-and-no))
  	 group newsrc entry
  	 ;; Disable verbose message.
! 	 gnus-novice-user gnus-large-newsgroup)
      ;; Eat all arguments.
      (setq command-line-args-left nil)
-     ;; Start Gnus.
      (gnus)
      ;; Apply kills to specified newsgroups in command line arguments.
      (setq newsrc (cdr gnus-newsrc-alist))
!     (while newsrc
!       (setq group (caar newsrc))
        (setq entry (gnus-gethash group gnus-newsrc-hashtb))
!       (if (and (<= (nth 1 (car newsrc)) gnus-level-subscribed)
! 	       (and (car entry)
! 		    (or (eq (car entry) t)
! 			(not (zerop (car entry)))))
! 	       (if yes (string-match yes group) t)
! 	       (or (null no) (not (string-match no group))))
! 	  (progn
! 	    (gnus-summary-read-group group nil t nil t)
! 	    (and (eq (current-buffer) (get-buffer gnus-summary-buffer))
! 		 (gnus-summary-exit))))
!       (setq newsrc (cdr newsrc)))
      ;; Exit Emacs.
      (switch-to-buffer gnus-group-buffer)
      (gnus-group-save-newsrc)))
--- 667,699 ----
  the comp hierarchy, you'd say \"comp.all\".  If you would not like to
  score the alt hierarchy, you'd say \"!alt.all\"."
    (interactive)
!   (let* ((gnus-newsrc-options-n    
  	  (gnus-newsrc-parse-options
! 	   (concat "options -n "
! 		   (mapconcat 'identity command-line-args-left " "))))
  	 (gnus-expert-user t)
  	 (nnmail-spool-file nil)
  	 (gnus-use-dribble-file nil)
  	 group newsrc entry
  	 ;; Disable verbose message.
! 	 gnus-novice-user gnus-large-newsgroup
! 	 gnus-options-subscribe gnus-auto-subscribed-groups
! 	 gnus-options-not-subscribe)
      ;; Eat all arguments.
      (setq command-line-args-left nil)
      (gnus)
      ;; Apply kills to specified newsgroups in command line arguments.
      (setq newsrc (cdr gnus-newsrc-alist))
!     (while (setq group (car (pop newsrc)))
        (setq entry (gnus-gethash group gnus-newsrc-hashtb))
!       (when (and (<= (nth 1 (car newsrc)) gnus-level-subscribed)
! 		 (and (car entry)
! 		      (or (eq (car entry) t)
! 			  (not (zerop (car entry)))))
! 		 (eq (gnus-matches-options-n group) 'subscribe))
! 	(gnus-summary-read-group group nil t nil t)
! 	(when (eq (current-buffer) (get-buffer gnus-summary-buffer))
! 	  (gnus-summary-exit))))
      ;; Exit Emacs.
      (switch-to-buffer gnus-group-buffer)
      (gnus-group-save-newsrc)))
*** pub/rgnus/lisp/gnus-load.el	Mon Sep  9 19:32:05 1996
--- rgnus/lisp/gnus-load.el	Tue Sep 10 21:07:04 1996
***************
*** 622,628 ****
        gnus-score-raise-thread gnus-score-lower-same-subject-and-select
        gnus-score-lower-same-subject gnus-score-lower-thread
        gnus-possibly-score-headers gnus-summary-raise-score 
!       gnus-summary-set-score gnus-summary-current-score)
       ("gnus-score"
        (gnus-summary-score-map keymap) gnus-score-save gnus-score-headers
        gnus-current-score-file-nondirectory gnus-score-adaptive
--- 622,629 ----
        gnus-score-raise-thread gnus-score-lower-same-subject-and-select
        gnus-score-lower-same-subject gnus-score-lower-thread
        gnus-possibly-score-headers gnus-summary-raise-score 
!       gnus-summary-set-score gnus-summary-current-score
!       gnus-score-followup-article)
       ("gnus-score"
        (gnus-summary-score-map keymap) gnus-score-save gnus-score-headers
        gnus-current-score-file-nondirectory gnus-score-adaptive
*** pub/rgnus/lisp/gnus-msg.el	Mon Sep  9 19:32:27 1996
--- rgnus/lisp/gnus-msg.el	Tue Sep 10 21:07:03 1996
***************
*** 330,336 ****
  	  (delete-region (goto-char (point-min))
  			 (or (search-forward "\n\n" nil t) (point)))
  	  ;; Insert the original article headers.
! 	  (insert-buffer-substring gnus-original-article-buffer beg end)))
        gnus-article-copy)))
  
  (defun gnus-post-news (post &optional group header article-buffer yank subject
--- 330,337 ----
  	  (delete-region (goto-char (point-min))
  			 (or (search-forward "\n\n" nil t) (point)))
  	  ;; Insert the original article headers.
! 	  (insert-buffer-substring gnus-original-article-buffer beg end)
! 	  (article-decode-rfc1522)))
        gnus-article-copy)))
  
  (defun gnus-post-news (post &optional group header article-buffer yank subject
***************
*** 584,590 ****
    (gnus-summary-mail-forward t))
  
  (defvar gnus-nastygram-message 
!   "The following article was inappropriately posted to %s.\n"
    "Format string to insert in nastygrams.
  The current group name will be inserted at \"%s\".")
  
--- 585,591 ----
    (gnus-summary-mail-forward t))
  
  (defvar gnus-nastygram-message 
!   "The following article was inappropriately posted to %s.\n\n"
    "Format string to insert in nastygrams.
  The current group name will be inserted at \"%s\".")
  
***************
*** 597,602 ****
--- 598,604 ----
        (let ((group gnus-newsgroup-name))
  	(gnus-summary-reply-with-original n)
  	(set-buffer gnus-message-buffer)
+ 	(message-goto-body)
  	(insert (format gnus-nastygram-message group))
  	(message-send-and-exit))))
  
*** pub/rgnus/lisp/gnus-nocem.el	Mon Sep  9 19:32:36 1996
--- rgnus/lisp/gnus-nocem.el	Tue Sep 10 20:09:58 1996
***************
*** 35,45 ****
    "*List of groups that will be searched for NoCeM messages.")
  
  (defvar gnus-nocem-issuers 
!   '("Automoose-1" ; The CancelMoose[tm] on autopilot.
!     "clewis@ferret.ocunix.on.ca;" ; Chris Lewis -- Canadian angel & despammer.
!     "jem@xpat.com;"  ; John Milburn -- despammer in Korea.
!     "red@redpoll.mrfs.oh.us (Richard E. Depew)" ; Spew/bincancel guy.
!     )
    "*List of NoCeM issuers to pay attention to.")
  
  (defvar gnus-nocem-directory 
--- 35,47 ----
    "*List of groups that will be searched for NoCeM messages.")
  
  (defvar gnus-nocem-issuers 
!  '("AutoMoose-1" "Automoose-1"   ; CancelMoose[tm]
!    "rbraver@ohww.norman.ok.us"   ; Robert Braver
!    "clewis@ferret.ocunix.on.ca;" ; Chris Lewis
!    "jem@xpat.com;"		 ; Korean DeSpammer 
!    "snowhare@xmission.com" ; Benjamin "Snowhare" Franz
!    "red@redpoll.mrfs.oh.us (Richard E. Depew)"
!    )
    "*List of NoCeM issuers to pay attention to.")
  
  (defvar gnus-nocem-directory 
*** pub/rgnus/lisp/gnus-util.el	Sun Sep  8 12:09:35 1996
--- rgnus/lisp/gnus-util.el	Tue Sep 10 21:07:04 1996
***************
*** 520,526 ****
     ((null funs) funs)
     ((cdr funs)
      `(lambda (t1 t2)
!        ,(gnus-make-sort-function-1 (nreverse funs))))
     (t
      (car funs))))
  
--- 520,526 ----
     ((null funs) funs)
     ((cdr funs)
      `(lambda (t1 t2)
!        ,(gnus-make-sort-function-1 (reverse funs))))
     (t
      (car funs))))
  
*** pub/rgnus/lisp/gnus.el	Mon Sep  9 20:13:33 1996
--- rgnus/lisp/gnus.el	Mon Sep  9 21:52:50 1996
***************
*** 28,34 ****
  
  (eval '(run-hooks 'gnus-load-hook))
  
! (defconst gnus-version-number "0.31"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Red Gnus v%s" gnus-version-number)
--- 28,34 ----
  
  (eval '(run-hooks 'gnus-load-hook))
  
! (defconst gnus-version-number "0.32"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Red Gnus v%s" gnus-version-number)
*** pub/rgnus/lisp/message.el	Mon Sep  9 20:35:09 1996
--- rgnus/lisp/message.el	Tue Sep 10 19:23:37 1996
***************
*** 501,507 ****
      (Lines)
      (Expires)
      (Message-ID)
!     (References . message-fill-header)
      (X-Mailer)
      (X-Newsreader))
    "Alist used for formatting headers.")
--- 501,507 ----
      (Lines)
      (Expires)
      (Message-ID)
!     (References)
      (X-Mailer)
      (X-Newsreader))
    "Alist used for formatting headers.")
***************
*** 1256,1263 ****
  (defun message-dont-send ()
    "Don't send the message you have been editing."
    (interactive)
!   (message-bury (current-buffer))
!   (message-do-actions message-postpone-actions))
  
  (defun message-kill-buffer ()
    "Kill the current buffer."
--- 1256,1264 ----
  (defun message-dont-send ()
    "Don't send the message you have been editing."
    (interactive)
!   (let ((actions message-postpone-actions))
!     (message-bury (current-buffer))
!     (message-do-actions actions)))
  
  (defun message-kill-buffer ()
    "Kill the current buffer."
*** pub/rgnus/lisp/nntp.el	Mon Sep  9 19:37:31 1996
--- rgnus/lisp/nntp.el	Mon Sep  9 23:41:28 1996
***************
*** 54,60 ****
  
  (defvoo nntp-server-action-alist 
    '(("nntpd 1\\.5\\.11t" 
!      (remove-hook 'nntp-server-opened-hook 'nntp-send-mode-reader)))
    "Alist of regexps to match on server types and actions to be taken.
  For instance, if you want Gnus to beep every time you connect
  to innd, you could say something like:
--- 54,62 ----
  
  (defvoo nntp-server-action-alist 
    '(("nntpd 1\\.5\\.11t" 
!      (remove-hook 'nntp-server-opened-hook 'nntp-send-mode-reader))
!     ("NNRP server Netscape" 
!      (setq nntp-server-list-active-group nil)))
    "Alist of regexps to match on server types and actions to be taken.
  For instance, if you want Gnus to beep every time you connect
  to innd, you could say something like:
*** pub/rgnus/lisp/ChangeLog	Mon Sep  9 21:35:35 1996
--- rgnus/lisp/ChangeLog	Tue Sep 10 22:56:53 1996
***************
*** 1,4 ****
--- 1,34 ----
+ Tue Sep 10 19:10:09 1996  Lars Magne Ingebrigtsen  <larsi@ylfing.ifi.uio.no>
+ 
+ 	* gnus-kill.el (gnus-batch-score): Didn't work at all.
+ 
+ 	* gnus-msg.el (gnus-summary-mail-nastygram): Place point at
+ 	appropriate place.
+ 
+ 	* gnus-util.el (gnus-make-sort-function): Would nix out the
+ 	sorting list.
+ 
+ 	* gnus-demon.el (gnus-demon-cancel): Don't run
+ 	`cancel-function-timers'. 
+ 
+ 	* message.el (message-header-format-alist): Don't fill References
+ 	headers. 
+ 
+ Mon Sep  9 21:51:46 1996  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* nntp.el (nntp-server-action-alist): Don't try LIST ACTIVE GROUP
+ 	on Netscape's brain-dead nntp server.
+ 
+ 	* message.el (message-dont-send): Take proper actions.
+ 
+ Mon Sep  9 21:46:44 1996  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* gnus.el: Red Gnus v0.31 is released.
+ 
  Mon Sep  9 21:16:11 1996  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* gnus-msg.el (gnus-copy-article-buffer): Decode headers after
+ 	copying. 
  
  	* gnus-picon.el (gnus-picons-refresh-before-display): New
  	variable.