*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2158a6f..86513bd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,24 @@
+Wed May 15 03:52:50 1996  Lars Magne Ingebrigtsen  <lars@eyesore.no>
+
+       * nnspool.el (nnspool-open-server): Use directory file name. 
+
+       * gnus-topic.el (gnus-topic-create-topic): Changed prompt.
+
+Tue May 14 03:16:43 1996  Lars Magne Ingebrigtsen  <lars@eyesore.no>
+
+       * gnus.el (gnus-decode-rfc1522): Only decode headers; changed
+       name. 
+
+       * nnmail.el (nnmail-get-spool-files): Anchor matches.
+
+       * gnus.el (gnus-summary-expire-articles-now): Didn't work in group
+       with group params.
+       (gnus-summary-expire-articles): Accept `now' parameter.
+
 Sun May 12 01:29:12 1996  Lars Magne Ingebrigtsen  <larsi@ylfing.ifi.uio.no (Lars Magne Ingebrigtsen)>
 
+       * gnus.el: September Gnus v0.84 is released.
+
        * gnus-xmas.el (gnus-xmas-summary-recenter): Protect against evil.
 
 Sat May 11 23:23:15 1996  Michael Sperber  <sperber@informatik.uni-tuebingen.de>

diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el
index 5b0d8c8..be512e1 100644 (file)
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -695,7 +695,7 @@ group."
 (defun gnus-topic-create-topic (topic parent &optional previous full-topic)
   (interactive 
    (list
-    (read-string "Create topic: ")
+    (read-string "New topic: ")
     (gnus-group-parent-topic)))
   ;; Check whether this topic already exists.
   (when (gnus-topic-find-topology topic)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 016a32f..3054bfb 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1468,7 +1468,7 @@ is not run if `gnus-visual' is nil.")
 
 (defvar gnus-parse-headers-hook nil
   "*A hook called before parsing the headers.")
-(add-hook 'gnus-parse-headers-hook 'gnus-headers-decode-quoted-printable)
+(add-hook 'gnus-parse-headers-hook 'gnus-decode-rfc1522)
 
 (defvar gnus-exit-group-hook nil
   "*A hook called when exiting (not quitting) summary mode.")
@@ -1718,7 +1718,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.84"
+(defconst gnus-version "September Gnus v0.85"
   "Version number for this version of Gnus.")
 
 (defvar gnus-info-nodes
@@ -11497,7 +11497,7 @@ latter case, they will be copied into the relevant groups."
       (gnus-request-accept-article group nil t)
       (kill-buffer (current-buffer)))))
 
-(defun gnus-summary-expire-articles ()
+(defun gnus-summary-expire-articles (&optional now)
   "Expire all articles that are marked as expirable in the current group."
   (interactive)
   (gnus-set-global-variables)
@@ -11509,8 +11509,9 @@ latter case, they will be copied into the relevant groups."
                          (gnus-list-of-read-articles gnus-newsgroup-name)
                        (setq gnus-newsgroup-expirable
                              (sort gnus-newsgroup-expirable '<))))
-          (expiry-wait (gnus-group-get-parameter
-                        gnus-newsgroup-name 'expiry-wait))
+          (expiry-wait (if now 'immediate
+                         (gnus-group-get-parameter
+                          gnus-newsgroup-name 'expiry-wait)))
           es)
       (when expirable
        ;; There are expirable articles in this group, so we run them
@@ -11547,9 +11548,7 @@ deleted forever, right now."
       (gnus-y-or-n-p
        "Are you really, really, really sure you want to delete all these messages? ")
       (error "Phew!"))
-  (let ((nnmail-expiry-wait 'immediate)
-       (nnmail-expiry-wait-function nil))
-    (gnus-summary-expire-articles)))
+  (gnus-summary-expire-articles t))
 
 ;; Suggested by Jack Vinson <vinson@unagi.cis.upenn.edu>.
 (defun gnus-summary-delete-article (&optional n)
@@ -13956,22 +13955,28 @@ always hide."
                (process-send-region "gnus-x-face" beg end)
                (process-send-eof "gnus-x-face")))))))))
 
-(defun gnus-headers-decode-quoted-printable ()
+(defalias 'gnus-header-decode-quoted-printable 'gnus-decode-rfc1522)
+(defun gnus-decode-rfc1522 ()
   "Hack to remove QP encoding from headers."
   (let ((case-fold-search t)
        (inhibit-point-motion-hooks t)
        (buffer-read-only nil)
        string)
-    (goto-char (point-min))
-    (while (re-search-forward "=\\?iso-8859-1\\?q\\?\\([^?\t\n]*\\)\\?=" nil t)
-      (setq string (match-string 1))
-      (narrow-to-region (match-beginning 0) (match-end 0))
-      (delete-region (point-min) (point-max))
-      (insert string)
-      (gnus-mime-decode-quoted-printable (goto-char (point-min)) (point-max))
-      (subst-char-in-region (point-min) (point-max) ?_ ? )
-      (widen)
-      (goto-char (point-min)))))
+    (save-restriction
+      (narrow-to-region
+       (goto-char (point-min))
+       (or (search-forward "\n\n" nil t) (point-max)))
+
+      (while (re-search-forward 
+             "=\\?iso-8859-1\\?q\\?\\([^?\t\n]*\\)\\?=" nil t)
+       (setq string (match-string 1))
+       (narrow-to-region (match-beginning 0) (match-end 0))
+       (delete-region (point-min) (point-max))
+       (insert string)
+       (gnus-mime-decode-quoted-printable (goto-char (point-min)) (point-max))
+       (subst-char-in-region (point-min) (point-max) ?_ ? )
+       (widen)
+       (goto-char (point-min))))))
 
 (defun gnus-article-de-quoted-unreadable (&optional force)
   "Do a naive translation of a quoted-printable-encoded article.
@@ -13986,7 +13991,7 @@ or not."
     (let ((case-fold-search t)
          (buffer-read-only nil)
          (type (gnus-fetch-field "content-transfer-encoding")))
-      (gnus-headers-decode-quoted-printable)
+      (gnus-decode-rfc1522)
       (when (or force
                (and type (string-match "quoted-printable" (downcase type))))
        (goto-char (point-min))

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index d0c5027..2977710 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -885,7 +885,7 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
                     nnmail-use-procmail)
                 (directory-files 
                  nnmail-procmail-directory 
-                 t (concat (if group group "")
+                 t (concat (if group (concat "/" group) "")
                            nnmail-procmail-suffix "$") t)))
           (p procmails)
           (crash (when (and (file-exists-p nnmail-crash-box)

diff --git a/lisp/nnspool.el b/lisp/nnspool.el
index e7f70f1..22f3bde 100644 (file)
--- a/lisp/nnspool.el
+++ b/lisp/nnspool.el
@@ -157,7 +157,9 @@ there.")
     (nnspool-close-server)
     (nnheader-report 'nnspool "Spool directory doesn't exist: %s"
                     nnspool-spool-directory))
-   ((not (file-directory-p (file-truename nnspool-spool-directory)))
+   ((not (file-directory-p
+         (directory-file-name
+          (file-truename nnspool-spool-directory))))
     (nnspool-close-server)
     (nnheader-report 'nnspool "Not a directory: %s" nnspool-spool-directory))
    (t

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 2a33e48..fba73b1 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -6064,11 +6064,12 @@ the cross reference mechanism.
 @cindex LIST overview.fmt
 @cindex overview.fmt
 To check whether your @sc{nntp} server includes the @code{Xref} header
-in its overview files, try @samp{telnet your.nntp.server nntp} and then
-say @samp{LIST overview.fmt}.  This may not work, but if it does, and
-the last line you get does not read @samp{Xref:full}, then you should
-shout and whine at your news admin until she includes the @code{Xref}
-header in the overview files.
+in its overview files, try @samp{telnet your.nntp.server nntp},
+@samp{MODE READER} on @code{inn} servers, and then say @samp{LIST
+overview.fmt}.  This may not work, but if it does, and the last line you
+get does not read @samp{Xref:full}, then you should shout and whine at
+your news admin until she includes the @code{Xref} header in the
+overview files.
 
 @vindex gnus-nov-is-evil
 If you want Gnus to get the @code{Xref}s right all the time, you have to