*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 47eebb9..e84d06b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,13 @@
-Sun Jul 30 00:00:26 1995  Lars Magne Ingebrigtsen  <lingebri@sunsci4.cern.ch>
+Sun Jul 30 22:02:46 1995  Lars Magne Ingebrigtsen  <lingebri@sunsci4.cern.ch>
+
+       * gnus-msg.el (gnus-debug): Remove null chars.
+
+       * nnfolder.el (nnfolder-active-number): Would return t instead of
+       the active number.
+
+Sun Jul 30 00:00:26 1995  Lars Magne Ingebrigtsen  <lingebri@sunscipw.cern.ch>
+
+       * gnus.el: 0.99 is released.
 
        * gnus.el (gnus-active-to-gnus-format): Ignore groups that have
        flags that are not y, n or m.

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 86cc04a..f3dcec5 100644 (file)
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -454,7 +454,7 @@ call it with the value of the `gnus-data' text property."
     (defun gnus-article-add-button (from to fun &optional data)
       "Create a button between FROM and TO with callback FUN and data DATA."
       (and gnus-article-button-face
-          (overlay-put (make-overlay from to) 'face gnus-article-button-face))
+          (gnus-overlay-put (gnus-make-overlay from to) 'face gnus-article-button-face))
       (add-text-properties from to
                           (append
                            (and gnus-article-mouse-face
@@ -586,7 +586,7 @@ call it with the value of the `gnus-data' text property."
            (skip-chars-backward " \t")
            (setq to (point))
            (if (< from to)
-               (overlay-put (make-overlay from to) 'face face)))))
+               (gnus-overlay-put (gnus-make-overlay from to) 'face face)))))
 
     (defun gnus-max-width-function (el max-width)
       (` (let* ((val (eval (, el)))

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 4e77b21..abb94ae 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1728,7 +1728,12 @@ The source file has to be in the Emacs load path."
                  (prin1-to-string (symbol-value (car olist))) ")\n")
        (insert ";; (makeunbound '" (symbol-name (car olist)) ")\n"))
       (setq olist (cdr olist)))
-    (insert "\n\n")))
+    (insert "\n\n")
+    ;; Remove any null chars - they seem to cause trouble for some
+    ;; mailers. (Byte-compiled output from the stuff above.) 
+    (goto-char (point-min))
+    (while (re-search-forward "[\000\200]" nil t)
+      (replace-match "" t t))))
 
 (gnus-ems-redefine)
 

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 1ce40a9..7984b7c 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1248,8 +1248,10 @@ automatically when it is selected.")
        (list ?S 'subject ?s)
        (list ?s 'subject-or-nil ?s)
        (list ?n 'name ?s)
-       (list ?A '(car (cdr (funcall gnus-extract-address-components from))) ?s)
-       (list ?a '(or (car (funcall gnus-extract-address-components from)) from) ?s)
+       (list ?A '(car (cdr (funcall gnus-extract-address-components from)))
+             ?s)
+       (list ?a '(or (car (funcall gnus-extract-address-components from)) 
+                     from) ?s)
        (list ?F 'from ?s)
        (list ?x (macroexpand '(header-xref header)) ?s)
        (list ?D (macroexpand '(header-date header)) ?s)
@@ -1306,7 +1308,7 @@ variable (string, integer, character, etc).")
 (defconst gnus-maintainer "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
   "The mail address of the Gnus maintainers.")
 
-(defconst gnus-version "(ding) Gnus v0.99"
+(defconst gnus-version "(ding) Gnus v0.99.1"
   "Version number for this version of Gnus.")
 
 (defvar gnus-info-nodes
@@ -5680,7 +5682,8 @@ article number."
   (let* ((number 
          (if (and (consp thread) (cdr thread)
                   (not (memq (header-number (car (car (cdr thread))))
-                             gnus-tmp-gathered)))
+                             gnus-tmp-gathered))
+                  )
              (apply 
               '+ 1 (mapcar 'gnus-summary-number-of-articles-in-thread 
                            (cdr thread)))
@@ -9189,6 +9192,7 @@ returned."
 
     ;; See whether the article is to be put in the cache.
     (and gnus-use-cache
+        (vectorp (gnus-get-header-by-num article))
         (save-excursion
           (gnus-cache-possibly-enter-article 
            gnus-newsgroup-name article 
@@ -9232,6 +9236,7 @@ marked."
     ;; See whether the article is to be put in the cache.
     (and gnus-use-cache
         (not (= mark gnus-canceled-mark))
+        (vectorp (gnus-get-header-by-num article))
         (save-excursion
           (gnus-cache-possibly-enter-article 
            gnus-newsgroup-name article 
@@ -10604,6 +10609,7 @@ If ALL-HEADERS is non-nil, no headers are hidden."
                  (setq gnus-have-all-headers 
                        (or all-headers gnus-show-all-headers))
                  (and gnus-use-cache 
+                      (vectorp (gnus-get-header-by-number article))
                       (gnus-cache-possibly-enter-article
                        group article
                        (gnus-get-header-by-number article)

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index 840d253..e679596 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -231,10 +231,10 @@ such things as moving mail.  All buffers always get killed upon server close.")
                   (setq nnfolder-active-timestamp timestamp)
                   (nnmail-activate 'nnfolder)))
             (let* ((active (assoc group nnfolder-group-alist))
-                  (group (car active))
-                  (range (car (cdr active)))
-                  (minactive (car range))
-                  (maxactive (cdr range)))
+                   (group (car active))
+                   (range (car (cdr active)))
+                   (minactive (car range))
+                   (maxactive (cdr range)))
               ;; I've been getting stray 211 lines in my nnfolder active
               ;; file.  So, let's make sure that doesn't happen. -SLB
               (set-buffer nntp-server-buffer)
@@ -280,7 +280,7 @@ such things as moving mail.  All buffers always get killed upon server close.")
   (or (assoc group nnfolder-group-alist)
       (let (active)
        (setq nnfolder-group-alist 
-             (cons (list group (setq active (cons 0 0)))
+             (cons (list group (setq active (cons 1 0)))
                    nnfolder-group-alist))
        (nnfolder-possibly-change-group group)
        (nnmail-save-active nnfolder-group-alist nnfolder-active-file)))
@@ -552,15 +552,17 @@ such things as moving mail.  All buffers always get killed upon server close.")
 (defun nnfolder-active-number (group)
   (save-excursion 
     ;; Find the next article number in GROUP.
-    (let ((active (car (cdr (assoc group nnfolder-group-alist)))))
-      (if active
-         (setcdr active (1+ (cdr active)))
-       ;; This group is new, so we create a new entry for it.
-       ;; This might be a bit naughty... creating groups on the drop of
-       ;; a hat, but I don't know...
-       (setq nnfolder-group-alist (cons (list group (setq active (cons 1 1)))
-                                        nnfolder-group-alist)))
-      (cdr active))
+    (prog1
+       (let ((active (car (cdr (assoc group nnfolder-group-alist)))))
+         (if active
+             (setcdr active (1+ (cdr active)))
+           ;; This group is new, so we create a new entry for it.
+           ;; This might be a bit naughty... creating groups on the drop of
+           ;; a hat, but I don't know...
+           (setq nnfolder-group-alist 
+                 (cons (list group (setq active (cons 1 1)))
+                       nnfolder-group-alist)))
+         (cdr active)))
     (nnfolder-possibly-activate-groups group)))