*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f46f3d4..3a534d6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,45 @@
-Mon Jan 27 18:03:17 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+Tue Jan 28 18:11:54 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
-       * gnus.el: Gnus v5.4.5 is released.
+       * gnus.el: Gnus v5.4.6 is released.
+
+Tue Jan 28 13:55:12 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-art.el (gnus-article-check-hidden-text): Widen before doing
+       anything.
+
+       * gnus.el (gnus-visual): Doc fix.
+
+       * gnus-art.el (gnus-visible-headers): Just include "Resent-From". 
+
+Mon Jan 27 19:40:37 1997  Paul Franklin  <paul@cs.washington.edu>
+
+       * gnus-sum.el (gnus-read-header): Make sure nntp-server-buffer is
+       empty on failure.
+
+Tue Jan 28 00:33:27 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
 
-Mon Jan 27 18:00:46 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+       * nnmail.el (nnmail-delete-incoming): Changed default.
+
+       * gnus-topic.el (gnus-topic-mark-topic): Let groups be marked.
+       (gnus-topic-unmark-topic): Ditto.
+
+       * nnmail.el (nnmail-process-babyl-mail-format): Unquote ">From ". 
+
+       * gnus-sum.el (gnus-summary-read-group): Only beep dead groups. 
+
+Mon Jan 27 18:24:27 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * nnml.el (nnml-generate-nov-databases-1): Work properly on
+       compressed files.
+       (nnml-generate-nov-file): Ditto.
+
+       * gnus.el (gnus-article-mode-map): Don't unconditionally suppress
+       all the major keymaps.
+
+       * gnus-sum.el (gnus-summary-read-group): Beep dead non-native
+       groups can't be entered. 
+
+Mon Jan 27 18:03:17 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Gnus v5.4.5 is released.
 

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index a13b82b..0e07b48 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -102,7 +102,7 @@ If `gnus-visible-headers' is non-nil, this variable will be ignored."
   :group 'gnus-article-hiding)
 
 (defcustom gnus-visible-headers 
-  "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-"
+  "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From"
   "All headers that do not match this regexp will be hidden.
 This variable can also be a list of regexp of headers to remain visible.
 If this variable is non-nil, `gnus-ignored-headers' will be ignored."
@@ -948,7 +948,8 @@ always hide."
          (narrow-to-region beg end)
          (goto-char (point-min))
          (while (re-search-forward "^- " nil t)
-           (gnus-article-hide-text-type (match-beginning 0) (match-end 0) 'pgp))
+           (gnus-article-hide-text-type 
+            (match-beginning 0) (match-end 0) 'pgp))
          (widen))))))
 
 (defun article-hide-pem (&optional arg)
@@ -1089,17 +1090,19 @@ Put point at the beginning of the signature separator."
 Arg can be nil or a number.  Nil and positive means hide, negative
 means show, 0 means toggle."
   (save-excursion
-    (let ((hide (gnus-article-hidden-text-p type)))
-      (cond
-       ((or (null arg)
-           (> arg 0))
-       nil)
-       ((< arg 0)
-       (gnus-article-show-hidden-text type))
-       (t
-       (if (eq hide 'hidden)
-           (gnus-article-show-hidden-text type)
-         nil))))))
+    (save-restriction
+      (widen)
+      (let ((hide (gnus-article-hidden-text-p type)))
+       (cond
+        ((or (null arg)
+             (> arg 0))
+         nil)
+        ((< arg 0)
+         (gnus-article-show-hidden-text type))
+        (t
+         (if (eq hide 'hidden)
+             (gnus-article-show-hidden-text type)
+           nil)))))))
 
 (defun gnus-article-hidden-text-p (type)
   "Say whether the current buffer contains hidden text of type TYPE."
@@ -1672,7 +1675,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is
 
     "\C-d" gnus-article-read-summary-keys
     "\M-*" gnus-article-read-summary-keys
-    "\M-^" gnus-article-read-summary-keys
+    "\M-#" gnus-article-read-summary-keys
     "\M-g" gnus-article-read-summary-keys)
 
   (substitute-key-definition

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 0943ead..7e2e3b6 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2474,6 +2474,10 @@ the thread are to be displayed."
 If SHOW-ALL is non-nil, already read articles are also listed.
 If NO-ARTICLE is non-nil, no article is selected initially.
 If NO-DISPLAY, don't generate a summary buffer."
+  ;; Killed foreign groups can't be entered.
+  (when (and (not (gnus-group-native-p group))
+            (not (gnus-gethash group gnus-newsrc-hashtb)))
+    (error "Dead non-native groups can't be entered"))
   (gnus-message 5 "Retrieving newsgroup: %s..." group)
   (let* ((new-group (gnus-summary-setup-buffer group))
         (quit-config (gnus-group-quit-config group))
@@ -4701,9 +4705,8 @@ The prefix argument ALL means to select all articles."
        (group gnus-newsgroup-name))
     (setq gnus-newsgroup-begin nil)
     (gnus-summary-exit)
-    ;; We have to adjust the point of group mode buffer because the
-    ;; current point was moved to the next unread newsgroup by
-    ;; exiting.
+    ;; We have to adjust the point of group mode buffer because 
+    ;; point was moved to the next unread newsgroup by exiting.
     (gnus-summary-jump-to-group group)
     (when rescan
       (save-excursion

diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el
index c96382e..f8e941f 100644 (file)
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -1129,7 +1129,7 @@ If COPYP, copy the groups instead."
 
 (defun gnus-topic-mark-topic (topic &optional unmark)
   "Mark all groups in the topic with the process mark."
-  (interactive (list (gnus-current-topic)))
+  (interactive (list (gnus-group-topic-name)))
   (if (not topic)
       (call-interactively 'gnus-group-mark-group)
     (save-excursion
@@ -1140,7 +1140,7 @@ If COPYP, copy the groups instead."
 
 (defun gnus-topic-unmark-topic (topic &optional unmark)
   "Remove the process mark from all groups in the topic."
-  (interactive (list (gnus-current-topic)))
+  (interactive (list (gnus-group-topic-name)))
   (if (not topic)
       (call-interactively 'gnus-group-mark-group)
     (gnus-topic-mark-topic topic t)))

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 12796e3..304d05f 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1210,7 +1210,18 @@ It is called with three parameters -- GROUP, LEVEL and OLDLEVEL."
   "Enable visual features.
 If `visual' is disabled, there will be no menus and few faces.  Most of
 the visual customization options below will be ignored.  Gnus will use
-less space and be faster as a result."
+less space and be faster as a result.
+
+This variable can also be a list of visual elements to switch on.  For
+instance, to switch off all visual things except menus, you can say:
+
+   (setq gnus-visual '(menu))
+
+Valid elements include `summary-highlight', `group-highlight',
+`article-highlight', `mouse-face', `summary-menu', `group-menu',
+`article-menu', `tree-highlight', `menu', `highlight', `browse-menu',
+`server-menu', `page-marker', `tree-menu', `binary-menu', `pick-menu',
+and `grouplens-menu'."
   :group 'gnus-meta
   :group 'gnus-visual
   :type '(set (const summary-highlight)
@@ -1668,12 +1679,18 @@ This restriction may disappear in later versions of Gnus."
     (while keys
       (define-key keymap (pop keys) 'undefined))))
 
-(defvar gnus-article-mode-map (make-keymap))
-(gnus-suppress-keymap gnus-article-mode-map)
-(defvar gnus-summary-mode-map (make-keymap))
-(gnus-suppress-keymap gnus-summary-mode-map)
-(defvar gnus-group-mode-map (make-keymap))
-(gnus-suppress-keymap gnus-group-mode-map)
+(defvar gnus-article-mode-map
+  (let ((keymap (make-keymap)))
+    (gnus-suppress-keymap keymap)
+    keymap))
+(defvar gnus-summary-mode-map 
+  (let ((keymap (make-keymap)))
+    (gnus-suppress-keymap keymap)
+    keymap))
+(defvar gnus-group-mode-map
+  (let ((keymap (make-keymap)))
+    (gnus-suppress-keymap keymap)
+    keymap))
 
 \f
 

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index ba50760..b9c812f 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -349,7 +349,7 @@ Example:
   :group 'gnus-mail
   :type '(repeat (cons :format "%v" symbol regexp)))
 
-(defcustom nnmail-delete-incoming nil
+(defcustom nnmail-delete-incoming t
   "*If non-nil, the mail backends will delete incoming files after
 splitting."
   :group 'gnus-mail
@@ -658,6 +658,10 @@ is a spool.  If not using procmail, return GROUP."
             (search-forward-regexp "^[^:]*\\( .*\\|\\)$" nil t)
             (search-forward "\1f\f"))
         (point)))
+      ;; Unquote the ">From " line, if any.
+      (goto-char (point-min))
+      (when (looking-at ">From ")
+       (replace-match "X-From-Line: ") )
       (run-hooks 'nnmail-prepare-incoming-header-hook)
       (goto-char (point-max))
       ;; Find the Message-ID header.

diff --git a/lisp/nnml.el b/lisp/nnml.el
index 9d4a024..3462e49 100644 (file)
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -710,11 +710,7 @@ all.  This may very well take some time.")
                   (file-directory-p dir))
          (nnml-generate-nov-databases-1 dir seen))))
     ;; Do this directory.
-    (let ((files (sort
-                 (mapcar
-                  (lambda (name) (string-to-int name))
-                  (directory-files dir nil "^[0-9]+$" t))
-                 '<)))
+    (let ((files (nnheader-article-to-file-alist dir)))
       (when files
        (funcall nnml-generate-active-function dir)
        ;; Generate the nov file.
@@ -749,8 +745,7 @@ all.  This may very well take some time.")
       (when (file-exists-p nov)
        (funcall nnmail-delete-file-function nov))
       (while files
-       (unless (file-directory-p 
-                (setq file (concat dir (int-to-string (car files)))))
+       (unless (file-directory-p (setq file (concat dir (cdar files))))
          (erase-buffer)
          (nnheader-insert-file-contents file)
          (narrow-to-region 
@@ -762,7 +757,7 @@ all.  This may very well take some time.")
          (when (and (not (= 0 chars))  ; none of them empty files...
                     (not (= (point-min) (point-max))))
            (goto-char (point-min))
-           (setq headers (nnml-parse-head chars (car files)))
+           (setq headers (nnml-parse-head chars (caar files)))
            (save-excursion
              (set-buffer nov-buffer)
              (goto-char (point-max))