*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8eb0615..71bb150 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,37 @@
+Sun Oct 25 23:11:44 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Pterodactyl Gnus v0.40 is released.
+
+1998-10-25 21:41:05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-sum.el (gnus-summary-mark-forward): Show thread.
+
+       * gnus-start.el (gnus-check-first-time-used): Ignore dribble. 
+
+       * gnus-agent.el (gnus-agent-fetch-group-1): Bind name.
+
+       * nnml.el (nnml-possibly-create-directory): Check before making.
+
+1998-10-25 19:43:08  Kai Grossjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * nnheader.el (nnheader-insert-nov): Don't infloop.
+
+1998-10-25 19:26:11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-sum.el (gnus-set-mode-line): Check that the spec has been
+       set up. 
+
+1998-10-25 19:22:03  Joerg Lenneis  <lenneis@statrix2.wu-wien.ac.at>
+
+       * nneething.el (nneething-file-name): New definition.
+
+1998-10-25 17:56:23  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-art.el (gnus-treatment-function-alist): Fix.
+       (gnus-summary-save-in-rmail): Use gnus-output-to-rmail. 
+
+       * nndoc.el (nndoc-dissect-mime-parts-sub): Recognize first part. 
+
 Sun Oct 25 06:23:13 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Pterodactyl Gnus v0.39 is released.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 6c595f1..4fc0d64 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -903,6 +903,7 @@ the actual number of articles toggled is returned."
 (defun gnus-agent-fetch-group-1 (group method)
   "Fetch GROUP."
   (let ((gnus-command-method method)
+       (gnus-newsgroup-name group)
        gnus-newsgroup-dependencies gnus-newsgroup-headers
        gnus-newsgroup-scored gnus-headers gnus-score
        gnus-use-cache articles arts

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 0bb90f5..5909c54 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -582,7 +582,7 @@ displayed by the first non-nil matching CONTENT face."
 
 ;;; Internal variables
 
-(defvar gnus-treatment-function-alist ()
+(defvar gnus-treatment-function-alist 
   '((gnus-treat-body-highlight-signature gnus-article-highlight-signature nil)
     ))
 
@@ -1710,7 +1710,7 @@ Directory to save to is default to `gnus-article-save-directory'."
     (save-excursion
       (save-restriction
        (widen)
-       (rmail-output-to-rmail-file filename))))
+       (gnus-output-to-rmail filename))))
   filename)
 
 (defun gnus-summary-save-in-mail (&optional filename)

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index eec5d5e..8b19bee 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1103,8 +1103,7 @@ for new groups, and subscribe the new groups as zombies."
     got-new))
 
 (defun gnus-check-first-time-used ()
-  (if (or (> (length gnus-newsrc-alist) 1)
-         (file-exists-p gnus-startup-file)
+  (if (or (file-exists-p gnus-startup-file)
          (file-exists-p (concat gnus-startup-file ".el"))
          (file-exists-p (concat gnus-startup-file ".eld")))
       nil

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 6d38a3b..72314d9 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -4255,7 +4255,9 @@ If SELECT-ARTICLES, only select those articles from GROUP."
   "This function sets the mode line of the article or summary buffers.
 If WHERE is `summary', the summary mode line format will be used."
   ;; Is this mode line one we keep updated?
-  (when (memq where gnus-updated-mode-lines)
+  (when (and (memq where gnus-updated-mode-lines)
+            (symbol-value
+             (intern (format "gnus-%s-mode-line-format-spec" where))))
     (let (mode-string)
       (save-excursion
        ;; We evaluate this in the summary buffer since these
@@ -7724,6 +7726,7 @@ If N is negative, mark backwards instead.  Mark with MARK, ?r by default.
 The difference between N and the actual number of articles marked is
 returned."
   (interactive "p")
+  (gnus-summary-show-thread)
   (let ((backward (< n 0))
        (gnus-summary-goto-unread
         (and gnus-summary-goto-unread

diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el
index 3f2b2af..c3dd816 100644 (file)
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -444,7 +444,8 @@ articles in the topic and its subtopics."
        (if (stringp entry)
            ;; Dead groups.
            (gnus-group-insert-group-line
-            entry (if (member entry gnus-zombie-list) gnus-level-zombie gnus-level-killed)
+            entry (if (member entry gnus-zombie-list)
+                      gnus-level-zombie gnus-level-killed)
             nil (- (1+ (cdr (setq active (gnus-active entry))))
                    (car active))
             nil)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 792404c..12b9d61 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -254,7 +254,7 @@ is restarted, and sometimes reloaded."
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 
-(defconst gnus-version-number "0.39"
+(defconst gnus-version-number "0.40"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number)

diff --git a/lisp/nndoc.el b/lisp/nndoc.el
index 7e165f5..d9f3f21 100644 (file)
--- a/lisp/nndoc.el
+++ b/lisp/nndoc.el
@@ -693,7 +693,7 @@ PARENT is the message-ID of the parent summary line, or nil for none."
       (when (string-match ";[ \t\n]*name=\\([^ \t\n;]+\\)" content-type)
        (setq subject (match-string 1 content-type)))
       (when (string-match "boundary=\"?\\([^\"\n]*[^\" \t\n]\\)" content-type)
-       (setq boundary-regexp (concat "\n--"
+       (setq boundary-regexp (concat "^--"
                                      (regexp-quote
                                       (match-string 1 content-type))
                                      "\\(--\\)?[ \t]*\n"))))

diff --git a/lisp/nneething.el b/lisp/nneething.el
index 700dad8..8048849 100644 (file)
--- a/lisp/nneething.el
+++ b/lisp/nneething.el
@@ -342,10 +342,13 @@ If this variable is nil, no files will be excluded.")
 
 (defun nneething-file-name (article)
   "Return the file name of ARTICLE."
-  (concat (file-name-as-directory nneething-address)
-         (if (numberp article)
-             (cadr (assq article nneething-map))
-           article)))
+  (let ((dir (file-name-as-directory nneething-address))
+        fname)
+    (if (numberp article)
+       (if (setq fname (cadr (assq article nneething-map)))
+           (concat dir fname)
+         (make-temp-name (concat dir "nneething")))
+      (concat dir article))))
 
 (provide 'nneething)
 

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 302924d..9d64793 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -337,7 +337,8 @@ on your system, you could say something like:
     (let ((extra (mail-header-extra header)))
       (while extra
        (insert (symbol-name (caar extra))
-               ": " (cdar extra) "\t"))))
+               ": " (cdar extra) "\t")
+        (pop extra))))
   (insert "\n"))
 
 (defun nnheader-insert-article-line (article)

diff --git a/lisp/nnml.el b/lisp/nnml.el
index 8847ae3..4e847bf 100644 (file)
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -576,8 +576,9 @@ all.  This may very well take some time.")
 
 (defun nnml-possibly-create-directory (group)
   (let ((dir (nnmail-group-pathname group nnml-directory)))
-    (make-directory (directory-file-name dir) t)
-    (nnheader-message 5 "Creating mail directory %s" dir)))
+    (unless (file-exists-p dir)
+      (make-directory (directory-file-name dir) t)
+      (nnheader-message 5 "Creating mail directory %s" dir))))
 
 (defun nnml-save-mail (group-art)
   "Called narrowed to an article."

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 240437a..5f78162 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
-@settitle Pterodactyl Gnus 0.39 Manual
+@settitle Pterodactyl Gnus 0.40 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -318,7 +318,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Pterodactyl Gnus 0.39 Manual
+@title Pterodactyl Gnus 0.40 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -354,7 +354,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local
 spool or your mbox file.  All at the same time, if you want to push your
 luck.
 
-This manual corresponds to Pterodactyl Gnus 0.39.
+This manual corresponds to Pterodactyl Gnus 0.40.
 
 @end ifinfo
 
@@ -18294,6 +18294,14 @@ groups it has been crossposted to, or something.  (Agent.)
 @item
 `S D r' should allow expansion of aliases.
 
+@item
+If point is on a group that appears multiple times in topics, and
+you press `l', point will move to the first instance of the group.
+
+@item
+The documentation should mention pop3.el, fetchmail, smtpmail and why
+po:username often fails.
+
 @item
 Solve the halting problem.
 

diff --git a/texi/message.texi b/texi/message.texi
index 237dd93..bb26941 100644 (file)
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message
-@settitle Pterodactyl Message 0.39 Manual
+@settitle Pterodactyl Message 0.40 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Pterodactyl Message 0.39 Manual
+@title Pterodactyl Message 0.40 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -83,7 +83,7 @@ Message mode buffers.
 * Key Index::         List of Message mode keys.
 @end menu
 
-This manual corresponds to Pterodactyl Message 0.39.  Message is
+This manual corresponds to Pterodactyl Message 0.40.  Message is
 distributed with the Gnus distribution bearing the same version number
 as this manual.