*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bd461d4..52c69e0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,19 @@
+Sat Oct 14 02:07:39 1995  Lars Magne Ingebrigtsen  <larsi@narfi.ifi.uio.no>
+
+       * gnus.el (gnus-summary-refer-parent-article): Take a look at the
+       actual References header.
+
+       * gnus-msg.el (gnus-bug): Wrong number of arguments for
+       `mail-setup'. 
+
+Fri Oct 13 10:25:49 1995  Lars Ingebrigtsen  <lars@eyesore.no>
+
+       * gnus-msg.el (gnus-mail-reply): Would ignore To headers. 
+
 Fri Oct 13 05:58:15 1995  Lars Magne Ingebrigtsen  <larsi@narfi.ifi.uio.no>
 
+       * gnus.el: 0.8 is released.
+
        * gnus.el (gnus-parse-format): Would totally bug out.
 
 Fri Oct 13 01:38:43 1995  Lars Ingebrigtsen  <lars@eyesore.no>

diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el
index ce12205..3697d4b 100644 (file)
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -38,7 +38,7 @@
 (defvar gnus-uncacheable-groups "^nnvirtual"
   "*Groups that match this regexp will not be cached.
 
-If you want to avoid caching on your nnml groups, you could set this 
+If you want to avoid caching your nnml groups, you could set this
 variable to \"^nnml\".")
 
 \f

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 0fa0fb3..81dc289 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1527,7 +1527,7 @@ mailer."
                 (setq subject (substring subject (match-end 0))))
            (setq subject (concat "Re: " subject))
            (setq to (mail-fetch-field "to"))
-           (setq to (mail-fetch-field "cc"))
+           (setq cc (mail-fetch-field "cc"))
            (setq reply-to (mail-fetch-field "reply-to"))
            (setq references (mail-fetch-field "references"))
            (setq message-id (mail-fetch-field "message-id"))
@@ -2018,7 +2018,7 @@ If YANK is non-nil, include the original article."
     (pop-to-buffer "*Gnus Bug*")
     (erase-buffer)
     (mail-mode)
-    (mail-setup 'new gnus-maintainer)
+    (mail-setup gnus-maintainer nil nil nil nil nil)
     (auto-save-mode auto-save-default)
     (make-local-variable 'gnus-prev-winconf)
     (setq gnus-prev-winconf winconf)

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 0b9024b..e65bb27 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -350,7 +350,8 @@ pounce directly on the real variables themselves.")
                     (file-name-directory (directory-file-name (car path)))
                     "etc/"))
          (if (and (file-exists-p dir)
-                  (file-directory-p dir))
+                  (file-directory-p dir)
+                  (file-exists-p (concat dir "gnus-group-exit-icon-up.xpm")))
              (setq gnus-xmas-glyph-directory dir
                    path nil)
            (setq path (cdr path))))
@@ -454,7 +455,7 @@ If it is non-nil, it must be a toolbar.  The five legal values are
   "The summary buffer toolbar.")
 
 (defun gnus-xmas-setup-toolbar (bar &optional force)
-  (let ((dir (file-name-as-directory (gnus-xmas-find-glyph-directory)))
+  (let ((dir (gnus-xmas-find-glyph-directory))
        icon up down disabled name)
     (if (not dir)
        ()

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 0e00b16..58e0635 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1476,7 +1476,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 "September Gnus v0.8"
+(defconst gnus-version "September Gnus v0.9"
   "Version number for this version of Gnus.")
 
 (defvar gnus-info-nodes
@@ -3683,7 +3683,6 @@ This will also compile the user-defined format specs."
 
        (insert "(setq gnus-old-specs '" (prin1-to-string fs) "\n")
 
-       (debug)
        (write-region (point-min) (point-max) file nil 'silent)
        (byte-compile-file file)
        (rename-file
@@ -9160,8 +9159,26 @@ The difference between N and the number of articles fetched is returned."
   (while 
       (and 
        (> n 0)
-       (let ((ref (gnus-parent-id 
-                  (mail-header-references (gnus-summary-article-header)))))
+       (let* ((header (gnus-summary-article-header))
+             (ref 
+              ;; If we try to find the parent of the currently
+              ;; displayed article, then we take a look at the actual
+              ;; References header, since this is slightly more
+              ;; reliable than the References field we got from the
+              ;; server. 
+              (if (and (eq (mail-header-number header) 
+                           (cdr gnus-article-current))
+                       (equal gnus-newsgroup-name 
+                              (car gnus-article-current)))
+                  (save-excursion
+                    (set-buffer gnus-original-article-buffer)
+                    (gnus-narrow-to-headers)
+                    (prog1
+                        (mail-fetch-field "references")
+                      (widen)))
+                ;; It's not the current article, so we take a bet on
+                ;; the value we got from the server. 
+                (mail-header-references header))))
         (if ref
             (or (gnus-summary-refer-article ref)
                 (gnus-message 1 "Couldn't find parent"))
@@ -9211,8 +9228,7 @@ Return how many articles were fetched."
              number tmp-buf)
          (and gnus-refer-article-method
               (gnus-check-server gnus-refer-article-method))
-         (when (setq number
-                     (gnus-summary-insert-subject message-id))
+         (when (setq number (gnus-summary-insert-subject message-id))
            (gnus-summary-select-article nil nil nil number)))))))
 
 (defun gnus-summary-enter-digest-group ()

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 6e4dd24..7ddb1c8 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -28,6 +28,7 @@
 (require 'rmail)
 (require 'timezone)
 (require 'sendmail)
+(eval-when-compile (require 'cl))
 
 (defvar nnmail-split-methods
   '(("mail.misc" ""))