*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 245c531..4dae008 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,26 @@
+Wed Sep 13 05:38:21 1995  Lars Magne Ingebrigtsen  <larsi@surt.ifi.uio.no>
+
+       * nntp.el (nntp-async-fetch-articles): Wouldn't allow entry into
+               groups. 
+
+Tue Sep 12 17:02:03 1995  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+       * nnmail.el (nnmail-request-post-buffer): Don't CC the address in
+       the To field.
+
+Tue Sep 12 06:11:12 1995  Lars Magne Ingebrigtsen  <larsi@surt.ifi.uio.no>
+
+       * gnus-ems.el: Use the new definition of `set-text-properties'. 
+
+Tue Sep 12 05:28:03 1995  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: 5.0.1 is released.
+
+Tue Sep 12 13:53:48 1995  Scott Byer  <byer@mv.us.adobe.com>
+
+       * nnfolder.el (nnfolder-active-number) Save away the active file
+       after bumping the highest active number.
+
 Sun Sep 10 00:39:41 1995  Lars Ingebrigtsen  <lars@eyesore.no>
 
        * gnus-msg.el (gnus-post-news): Set the name of the newsgroup for

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 35d97c5..8ec2599 100644 (file)
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -131,15 +131,20 @@ pounce directly on the real variables themselves."))
       ;; portable!
       (or (face-differs-from-default-p 'underline)
          (funcall 'set-face-underline-p 'underline t))
-      ; (or (fboundp 'set-text-properties) Fuckit!
-         (defun set-text-properties (start end props &optional buffer)
-           (if (or (null buffer) (bufferp buffer))
-               (if props
-                   (while props
-                     (put-text-property 
-                      start end (car props) (nth 1 props) buffer)
-                     (setq props (nthcdr 2 props)))
-                 (remove-text-properties start end ()))))
+
+      (defun set-text-properties (start end props &optional buffer)
+       "You should NEVER use this function.  It is ideologically blasphemous.
+It is provided only to ease porting of broken FSF Emacs programs."
+       (if (and (stringp buffer) (not (setq buffer (get-buffer buffer))))
+           nil
+         (map-extents (symbol-function
+                       (lambda (extent ignored)
+                         (remove-text-properties 
+                          start end
+                          (list (extent-property extent 'text-prop) nil)
+                          buffer)))
+                      buffer start end nil nil 'text-prop)
+         (add-text-properties start end props buffer)))
 
       (defalias 'gnus-make-overlay 'make-extent)
       (defalias 'gnus-overlay-put 'set-extent-property)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 6e1a8d7..863c564 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1351,7 +1351,7 @@ variable (string, integer, character, etc).")
   "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
   "The mail address of the Gnus maintainers.")
 
-(defconst gnus-version "Gnus v5.0.1"
+(defconst gnus-version "Gnus v5.0.2"
   "Version number for this version of Gnus.")
 
 (defvar gnus-info-nodes

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index fa0f385..73624f6 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -557,7 +557,9 @@ such things as moving mail.  All buffers always get killed upon server close.")
                  (cons (list group (setq active (cons 1 1)))
                        nnfolder-group-alist)))
          (cdr active))
-      (nnfolder-possibly-activate-groups group))))
+      (nnmail-save-active nnfolder-group-alist nnfolder-active-file)
+      (nnfolder-possibly-activate-groups group)
+      )))
 
 
 ;; This method has a problem if you've accidentally let the active list get

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index db0c8f5..71462ef 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -262,6 +262,10 @@ perfomed.")
            (setq new-cc (rmail-dont-reply-to 
                          (concat (or to "")
                                  (if cc (concat (if to ", " "") cc) ""))))
+           (let ((rmail-dont-reply-to-names 
+                  (regexp-quote (mail-strip-quoted-names
+                                 (or method-address reply-to from)))))
+             (setq new-cc (rmail-dont-reply-to new-cc)))
            (setq subject (mail-header-subject header))
            (or (string-match "^[Rr][Ee]:" subject)
                (setq subject (concat "Re: " subject)))

diff --git a/lisp/nntp.el b/lisp/nntp.el
index 89af48e..7fde67a 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -499,6 +499,7 @@ instead call function `nntp-status-message' to get status message.")
 (defun nntp-request-group (group &optional server dont-check)
   "Select GROUP."
   (nntp-send-command "^.*\r?\n" "GROUP" group)
+  (setq nntp-current-group group)
   (save-excursion
     (set-buffer nntp-server-buffer)
     (goto-char (point-min))
@@ -1170,14 +1171,10 @@ defining this function as macro."
   (car list))
 
 (defun nntp-possibly-change-server (newsgroup server)
-  (let ((result t))
-    ;; We see whether it is necessary to change newsgroup.
-    (and newsgroup 
-        (or (not (string= newsgroup nntp-current-group)))
-        (progn
-          (setq result (nntp-request-group newsgroup server))
-          (setq nntp-current-group newsgroup)))
-    result))
+  ;; We see whether it is necessary to change newsgroup.
+  (and newsgroup 
+       (not (equal newsgroup nntp-current-group))
+       (nntp-request-group newsgroup server)))
 
 (defun nntp-try-list-active (group)
   (nntp-list-active-group group)
@@ -1243,7 +1240,6 @@ defining this function as macro."
                        nntp-async-articles nntp-async-fetched
                        nntp-async-process)
                  (delq asyncs nntp-async-group-alist)))
-      (setq nntp-current-group group)
       (and asyncs
           (progn
             (setq nntp-async-articles (nth 1 asyncs))

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 3b38ea7..87784ba 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -5993,7 +5993,7 @@ forms into this file, which means that you can use kill files as some
 sort of primitive hook function to be run on group entry, even though
 that isn't a very good idea.
 
-Normal kill files look like this:
+XCNormal kill files look like this:
 
 @lisp
 (gnus-kill "From" "Lars Ingebrigtsen")
@@ -6844,14 +6844,14 @@ section is designed to give general pointers on how to customize Gnus
 for some quite common situations.
 
 @menu
-* Slow NNTP Connection::      You run a local Emacs and get the news elsewhere.
+* Slow/Expensive Connection:: You run a local Emacs and get the news elsewhere.
 * Slow Terminal Connection::  You run a remote Emacs.
 * Little Disk Space::         You feel that having large setup files is icky.
 * Slow Machine::              You feel like buying a faster machine.
 @end menu
 
-@node Slow NNTP Connection
-@section Slow @sc{nntp} Connection
+@node Slow/Expensive Connection
+@section Slow/Expensive @sc{nntp} Connection
 
 If you run Emacs on a machine locally, and get your news from a machine
 over some very thin strings, you want to cut down on the amount of data