*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 062c5f3..45cb132 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,39 @@
+Mon Feb  5 17:54:07 1996  Lars Magne Ingebrigtsen  <larsi@eistla.ifi.uio.no>
+
+       * nnvirtual.el (nnvirtual-update-marked): Copy empty mark lists.
+
+       * gnus.el (gnus-summary-read-group): Allow entry with no-display. 
+
+Sat Feb  3 11:56:53 1996  Steven L. Baur  <steve@miranova.com>
+
+       * gnus-uu.el (gnus-uu-default-view-rules): Added rule for playing of
+       decoded midi files.
+
+Mon Feb  5 05:08:54 1996  Lars Ingebrigtsen  <lars@eyesore.no>
+
+       * gnus.el (gnus-summary-mode-map): Move `v' to `W v'.
+
+       * gnus-cache.el (gnus-cache-possibly-enter-article): Request the
+       buffer to the nntp buffer.
+
+       * gnus.el (gnus-recenter): Allow a prefix.
+
+Mon Feb  5 04:56:35 1996  Michael Cook  <mcook@cognex.com>
+
+       * gnus.el (gnus-configure-windows): Return to the original frame. 
+
+Mon Feb  5 03:49:34 1996  Lars Ingebrigtsen  <lars@eyesore.no>
+
+       * gnus-topic.el (gnus-topic-kill-group): Update topics.
+       (gnus-topic-yank-group): Ditto.
+
+       * nnfolder.el (nnfolder-directory): Doc fix.
+
+       * gnus.el (gnus-summary-move-article): Add marks when moving
+       articles. 
+       (gnus-summary-recenter): Don't do horizontal recenter unless the
+       buffer is visible.
+
 Sun Feb  4 16:22:20 1996  Lars Magne Ingebrigtsen  <larsi@aegir.ifi.uio.no>
 
        * gnus.el (gnus-summary-edit-article): Make sure we're in the

diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el
index d2a6383..d52099f 100644 (file)
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -133,10 +133,10 @@ variable to \"^nnml\".")
        ;; Save the article in the cache.
        (if (file-exists-p file)
            t                           ; The article already is saved.
-         (let ((gnus-use-cache nil))
-           (gnus-summary-select-article))
          (save-excursion
-           (set-buffer gnus-original-article-buffer)
+           (set-buffer nntp-server-buffer)
+           (let ((gnus-use-cache nil))
+             (gnus-request-article-this-buffer article group))
            (when (> (buffer-size) 0)
              (write-region (point-min) (point-max) file nil 'quiet)
              (gnus-cache-change-buffer group)

diff --git a/lisp/gnus-soup.el b/lisp/gnus-soup.el
index 43dddb1..01f0473 100644 (file)
--- a/lisp/gnus-soup.el
+++ b/lisp/gnus-soup.el
@@ -260,7 +260,7 @@ $ emacs -batch -f gnus-batch-brew-soup ^nnml \".*emacs.*\""
   "Enter GROUP and add all articles to a SOUP package."
   (let ((gnus-expert-user t)
        (gnus-large-newsgroup nil))
-    (when (gnus-summary-read-group group nil nil nil t)
+    (when (gnus-summary-read-group group)
       (let ((gnus-newsgroup-processable 
             (nreverse
              (gnus-sorted-complement 

diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el
index 832a656..135380b 100644 (file)
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -392,6 +392,7 @@ articles in the topic and its subtopics."
          nil))))
   
 (defun gnus-topic-update-topic ()
+  "Update all parent topics to the current group."
   (when (and (eq major-mode 'gnus-group-mode)
             gnus-topic-mode)
     (let ((group (gnus-group-group-name)))
@@ -723,7 +724,8 @@ group."
        (gnus-topic-remove-topic nil t)
        (push (gnus-topic-find-topology topic nil nil gnus-topic-topology)
              gnus-topic-killed-topics))
-    (gnus-group-kill-group n discard)))
+    (gnus-group-kill-group n discard)
+    (gnus-topic-update-topic)))
   
 (defun gnus-topic-yank-group (&optional arg)
   "Yank the last topic."
@@ -760,7 +762,8 @@ group."
            (when (equal (car (cdr alist)) prev)
              (setcdr alist (nconc yanked (cdr alist)))
              (setq alist nil))
-           (setq alist (cdr alist))))))))
+           (setq alist (cdr alist))))))
+    (gnus-topic-update-topic)))
 
 (defun gnus-topic-hide-topic ()
   "Hide all subtopics under the current topic."

diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index 6c7fcd2..2449ebb 100644 (file)
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -41,6 +41,7 @@
     ("\\.\\(wav\\|aiff\\|hcom\\|u[blw]\\|s[bfw]\\|voc\\|smp\\)$" 
      "sox -v .5 %s -t .au -u - > /dev/audio")
     ("\\.au$" "cat %s > /dev/audio")
+    ("\\.mid?i$" "playmidi -f")
     ("\\.mod$" "str32")
     ("\\.ps$" "ghostview")
     ("\\.dvi$" "xdvi")

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 32ad094..cb75aa5 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1682,7 +1682,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.35"
+(defconst gnus-version "September Gnus v0.36"
   "Version number for this version of Gnus.")
 
 (defvar gnus-info-nodes
@@ -3271,13 +3271,16 @@ If RE-ONLY is non-nil, strip leading `Re:'s only."
        (select-window all-visible)
 
       ;; Either remove all windows or just remove all Gnus windows.
-      (if gnus-use-full-window
-         (mapcar (lambda (frame)
-                   (select-frame frame)
-                   (delete-other-windows)) 
-                 (frame-list))
-       (gnus-remove-some-windows)
-       (switch-to-buffer nntp-server-buffer))
+      (let ((frame (selected-frame)))
+       (unwind-protect
+           (if gnus-use-full-window
+               (mapcar (lambda (frame)
+                         (select-frame frame)
+                         (delete-other-windows)) 
+                       (frame-list))
+             (gnus-remove-some-windows)
+             (switch-to-buffer nntp-server-buffer))
+         (select-frame frame)))
 
       (switch-to-buffer nntp-server-buffer)
       (gnus-configure-frame split (get-buffer-window (current-buffer))))))
@@ -6557,7 +6560,6 @@ and the second element is the address."
    "l" gnus-summary-goto-last-article
    "\C-c\C-v\C-v" gnus-uu-decode-uu-view
    "\C-d" gnus-summary-enter-digest-group
-   "v" gnus-summary-verbose-headers
    "\C-c\C-b" gnus-bug
    "*" gnus-cache-enter-article
    "\M-*" gnus-cache-remove-article
@@ -6698,6 +6700,7 @@ and the second element is the address."
    "l" gnus-summary-stop-page-breaking
    "r" gnus-summary-caesar-message
    "t" gnus-summary-toggle-header
+   "v" gnus-summary-verbose-headers
    "m" gnus-summary-toggle-mime)
 
   (gnus-define-keys
@@ -7333,14 +7336,16 @@ If NO-DISPLAY, don't generate a summary buffer."
       ;; If the summary buffer is empty, but there are some low-scored
       ;; articles or some excluded dormants, we include these in the
       ;; buffer.
-      (when (zerop (buffer-size))
+      (when (and (zerop (buffer-size))
+                (not no-display))
        (cond (gnus-newsgroup-dormant
               (gnus-summary-limit-include-dormant))
              ((and gnus-newsgroup-scored show-all)
               (gnus-summary-limit-include-expunged))))
       ;; Function `gnus-apply-kill-file' must be called in this hook.
       (run-hooks 'gnus-apply-kill-hook)
-      (if (zerop (buffer-size))
+      (if (and (zerop (buffer-size))
+              (not no-display))
          (progn
            ;; This newsgroup is empty.
            (gnus-summary-catchup-and-exit nil t) ;Without confirmations.
@@ -7357,6 +7362,7 @@ If NO-DISPLAY, don't generate a summary buffer."
             (gnus-summary-hide-all-threads))
        ;; Show first unread article if requested.
        (if (and (not no-article)
+                (not no-display)
                 gnus-newsgroup-unreads
                 gnus-auto-select-first)
            (if (eq gnus-auto-select-first 'best)
@@ -9148,12 +9154,12 @@ If EXCLUDE-GROUP, do not go to this group."
        (t
         (gnus-summary-find-next unread))))
 
-(defun gnus-recenter ()
+(defun gnus-recenter (&optional n)
   "Center point in window and redisplay frame.
 Also do horizontal recentering."
   (interactive)
   (gnus-horizontal-recenter)
-  (recenter))
+  (recenter n))
 
 (defun gnus-summary-recenter ()
   "Center point in the summary window.
@@ -9180,11 +9186,12 @@ displayed, no centering will be performed."
        window (min bottom (save-excursion 
                             (forward-line (- top)) (point)))))
       ;; Do horizontal recentering while we're at it.
-      (let ((selected (selected-window)))
-       (select-window (get-buffer-window (current-buffer) t))
-       (gnus-summary-position-point)
-       (gnus-horizontal-recenter)
-       (select-window selected)))))
+      (when (get-buffer-window (current-buffer) t)
+       (let ((selected (selected-window)))
+         (select-window (get-buffer-window (current-buffer) t))
+         (gnus-summary-position-point)
+         (gnus-horizontal-recenter)
+         (select-window selected))))))
 
 (defun gnus-horizontal-recenter ()
   "Recenter the current buffer horizontally."
@@ -10911,16 +10918,16 @@ and `request-accept' functions."
        ;; Move the article.
        ((eq action 'move)
         (gnus-request-move-article
-         article               ; Article to move
-         gnus-newsgroup-name   ; From newsgrouo
+         article                       ; Article to move
+         gnus-newsgroup-name           ; From newsgrouo
          (nth 1 (gnus-find-method-for-group
                  gnus-newsgroup-name)) ; Server
          (list 'gnus-request-accept-article
                (if select-method
                    (list 'quote select-method)
                  to-newsgroup)
-               (not articles)) ; Accept form
-         (not articles)))      ; Only save nov last time
+               (not articles))         ; Accept form
+         (not articles)))              ; Only save nov last time
        ;; Copy the article.
        ((eq action 'copy)
         (save-excursion
@@ -10983,14 +10990,14 @@ and `request-accept' functions."
                 (memq article gnus-newsgroup-dormant)
                 (memq article gnus-newsgroup-unreads)))
 
-               (while marks
-                 (when (memq article (symbol-value
-                                      (intern (format "gnus-newsgroup-%s"
-                                                      (caar marks)))))
-                   (gnus-add-marked-articles
-                    (gnus-info-group info) (caar marks)
-                    (list to-article) info))
-                 (setq marks (cdr marks)))))
+             (while marks
+               (when (memq article (symbol-value
+                                    (intern (format "gnus-newsgroup-%s"
+                                                    (caar marks)))))
+                 (gnus-add-marked-articles
+                  (gnus-info-group info) (cdar marks)
+                  (list to-article) info))
+               (setq marks (cdr marks)))))
 
          ;; Update the Xref header in this article to point to
          ;; the new crossposted article we have just created.
@@ -11009,6 +11016,7 @@ and `request-accept' functions."
        (gnus-summary-mark-article article gnus-canceled-mark))
       (gnus-summary-remove-process-mark article))
     (gnus-kill-buffer copy-buf)
+    (gnus-summary-position-point)
     (gnus-set-mode-line 'summary)))
 
 (defun gnus-summary-copy-article (&optional n to-newsgroup select-method)
@@ -12901,14 +12909,8 @@ The following commands are available:
   "Get an article and insert it into this buffer."
   (prog1
       (save-excursion
-       (if (get-buffer gnus-original-article-buffer)
-           (set-buffer (get-buffer gnus-original-article-buffer))
-         (set-buffer (get-buffer-create gnus-original-article-buffer))
-         (buffer-disable-undo (current-buffer))
-         (setq major-mode 'gnus-original-article-mode)
-         (setq buffer-read-only t)
-         (gnus-add-current-to-buffer-list))
-
+       (erase-buffer)
+       (gnus-kill-all-overlays)
        (setq group (or group gnus-newsgroup-name))
 
        ;; Open server if it has closed.
@@ -12959,8 +12961,7 @@ The following commands are available:
         ;; We first check `gnus-original-article-buffer'.
         ((and (equal (car gnus-original-article) group)
               (eq (cdr gnus-original-article) article))
-         ;; We don't have to do anything, since it's already where we
-         ;; want it.
+         (insert-buffer-substring gnus-original-article-buffer)
          'article)
         ;; Check the backlog.
         ((and gnus-keep-backlog
@@ -12990,12 +12991,19 @@ The following commands are available:
     ;; Take the article from the original article buffer
     ;; and place it in the buffer it's supposed to be in.
     (setq gnus-original-article (cons group article))
-    (unless (equal (buffer-name (current-buffer))
-                  (buffer-name (get-buffer gnus-original-article-buffer)))
-      (let (buffer-read-only)
-       (erase-buffer)
-       (gnus-kill-all-overlays)
-       (insert-buffer-substring gnus-original-article-buffer)))
+    (when (equal (buffer-name (current-buffer))
+                (buffer-name (get-buffer gnus-article-buffer)))
+      (save-excursion
+       (if (get-buffer gnus-original-article-buffer)
+           (set-buffer (get-buffer gnus-original-article-buffer))
+         (set-buffer (get-buffer-create gnus-original-article-buffer))
+         (buffer-disable-undo (current-buffer))
+         (setq major-mode 'gnus-original-article-mode)
+         (setq buffer-read-only t)
+         (gnus-add-current-to-buffer-list))
+       (let (buffer-read-only)
+         (erase-buffer)
+         (insert-buffer-substring gnus-article-buffer))))
     
     ;; Update sparse articles.
     (when (memq article gnus-newsgroup-sparse)

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index f2d4a49..57d3446 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -38,7 +38,7 @@
 (eval-when-compile (require 'cl))
 
 (defvar nnfolder-directory (expand-file-name "~/Mail/")
-  "The name of the mail box file in the users home directory.")
+  "The name of the nnfolder directory.")
 
 (defvar nnfolder-active-file 
   (concat (file-name-as-directory nnfolder-directory) "active")

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 98504f4..0b792d6 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -320,7 +320,7 @@ parameter.  It should return nil, `warn' or `delete'.")
            (error 0)))))
 
 (defun nnmail-time-since (time)
-  "Return the time since DATE."
+  "Return the time since TIME, which is either an internal time or a date."
   (let* ((current (current-time))
         rest)
     (when (stringp time)

diff --git a/lisp/nnvirtual.el b/lisp/nnvirtual.el
index fafff3d..df1923a 100644 (file)
--- a/lisp/nnvirtual.el
+++ b/lisp/nnvirtual.el
@@ -33,6 +33,7 @@
 (require 'nntp)
 (require 'nnheader)
 (require 'gnus)
+(eval-when-compile (require 'cl))
 
 (defvar nnvirtual-always-rescan nil
   "*If non-nil, always scan groups for unread articles when entering a group.
@@ -345,20 +346,18 @@ virtual group.")
        type list calist mart cgroups)
     (while mark-lists
       (setq type (cdar mark-lists))
-      (when (setq list (symbol-value (intern (format "gnus-newsgroup-%s"
-                                                    (car (pop mark-lists))))))
-       (setq cgroups 
-             (mapcar (lambda (g) (list g)) nnvirtual-component-groups))
-       (while list
-         (nconc (assoc (cadr (setq mart (assq (pop list) nnvirtual-mapping)))
-                       cgroups)
-                (list (caddr mart))))
-       (while cgroups
-         (when (cdar cgroups)
-           (gnus-add-marked-articles 
-            (caar cgroups) type (cdar cgroups) nil t)
-           (gnus-group-update-group (caar cgroups) t))
-         (setq cgroups (cdr cgroups)))))))
+      (setq list (symbol-value (intern (format "gnus-newsgroup-%s"
+                                              (car (pop mark-lists))))))
+      (setq cgroups 
+           (mapcar (lambda (g) (list g)) nnvirtual-component-groups))
+      (while list
+       (nconc (assoc (cadr (setq mart (assq (pop list) nnvirtual-mapping)))
+                     cgroups)
+              (list (caddr mart))))
+      (while cgroups
+       (gnus-add-marked-articles 
+        (caar cgroups) type (cdar cgroups) nil t)
+       (gnus-group-update-group (car (pop cgroups)) t)))))
 
 (defun nnvirtual-marks (article marks)
   "Return a list of mark types for ARTICLE."

diff --git a/texi/ChangeLog b/texi/ChangeLog
index 49b519d..0d16419 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,7 @@
+Mon Feb  5 05:24:01 1996  Lars Ingebrigtsen  <lars@eyesore.no>
+
+       * gnus.texi (Article Washing): Addition.
+
 Fri Feb  2 20:41:56 1996  Lars Ingebrigtsen  <lars@eyesore.no>
 
        * gnus.texi (Reading Mail): Addition.

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 1488c10..3150d70 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -7931,6 +7931,12 @@ the way it came from the server.
 Toggle whether to display all headers in the article buffer
 (@code{gnus-summary-toggle-header}). 
 
+@item W v
+@kindex W v (Summary)
+@findex gnus-summary-verbose-header
+Toggle whether to display all headers in the article buffer permanently
+(@code{gnus-summary-verbose-header}).
+
 @item W m
 @kindex W m (Summary)
 @findex gnus-summary-toggle-mime
@@ -8957,7 +8963,7 @@ To enter the server buffer, user the @kbd{^}
 * Server Buffer Format::   You can customize the look of this buffer.
 * Server Commands::        Commands to manipulate servers.
 * Example Methods::        Examples server specifications.
-* Servers ant Methods::    You can use server names as select methods.
+* Servers and Methods::    You can use server names as select methods.
 * Unavailable Servers::    Some servers you try to contact may be down.
 @end menu