*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0bb9f78..8b3b0eb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,72 @@
+Thu Apr 10 22:07:46 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Gnus v5.4.43 is released.
+
+Thu Apr 10 21:47:08 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-start.el (gnus-save-newsrc-file): Message less.
+
+Thu Apr 10 21:35:45 1997  ISO-2022-JP  <morioka@jaist.ac.jp>
+
+       * gnus-sum.el (gnus-summary-show-article): Bind gnus-show-mime. 
+
+Thu Apr 10 21:26:19 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus.el: Removed gnus-add-hook.
+
+Thu Apr  3 21:08:57 1997  Hrvoje Niksic  <hniksic@srce.hr>
+
+       * gnus-xmas.el (gnus-xmas-summary-set-display-table): Don't change
+       the values that are non-nil in the default table.
+       (gnus-xmas-add-hook): Removed it.
+
+Thu Apr 10 20:44:46 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-art.el (gnus-article-show-summary): Error better.
+
+       * message.el (message-indent-citation): Tippy-foot when deleting
+       leading empty lines.
+
+       * gnus-sum.el (gnus-summary-move-article): Update group lines. 
+
+       * gnus-srvr.el (gnus-server-exit): Configure windows.
+
+       * gnus-group.el: Added gnus-version to help map.
+
+Thu Apr 10 20:41:11 1997  Hrvoje Niksic  <hniksic@srce.hr>
+
+       * gnus-xmas.el: Customized.
+
+Thu Apr 10 19:58:40 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-sum.el (gnus-summary-next-group): Selected deleted group. 
+
+       * gnus-art.el (article-treat-overstrike): Don't bug out on empty
+       articles. 
+
+Thu Apr 10 19:52:27 1997  David Moore  <dmoore@ucsd.edu>
+
+       * nnvirtual.el (nnvirtual-partition-sequence): Style fix.
+
+Thu Apr 10 19:45:30 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-group.el (gnus-group-kill-group): Kill more carefully.
+
+Tue Apr  8 23:02:30 1997  Michael Welsh Duggan  <md5i@schenley.com>
+
+       * message.el (message-insert-to): Fetch reply field.
+
+Tue Apr  8 21:41:13 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-sum.el (gnus-summary-refer-article): Accept prefix.
+
+Sun Apr  6 14:08:03 1997  Steven L Baur  <steve@altair.xemacs.org>
+
+       * gnus-xmas.el (gnus-xmas-summary-set-display-table): Add
+       missing paren.
+       (gnus-xmas-summary-set-display-table): current-display-table can
+       be nil.
+
 Sun Apr  6 23:17:21 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Gnus v5.4.42 is released.
@@ -19,11 +88,6 @@ Sun Apr  6 21:46:05 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Gnus v5.4.41 is released.
 
-Thu Apr  3 21:08:57 1997  Hrvoje Niksic  <hniksic@srce.hr>
-
-       * gnus-xmas.el (gnus-xmas-summary-set-display-table): Don't change
-       the values that are non-nil in the default table.
-
 Sun Apr  6 20:58:38 1997  Kim-Minh Kaplan  <kimminh.kaplan@utopia.eunet.fr>
 
        * gnus-picon.el (gnus-picons-insert-face-if-exists): "." instead

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index a8a1375..ce7f5d2 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -744,26 +744,27 @@ always hide."
   (interactive)
   (save-excursion
     (goto-char (point-min))
-    (re-search-forward "\n\n")
-    (let ((buffer-read-only nil))
-      (while (search-forward "\b" nil t)
-       (let ((next (following-char))
-             (previous (char-after (- (point) 2))))
-         ;; We do the boldification/underlining by hiding the
-         ;; overstrikes and putting the proper text property
-         ;; on the letters.
-         (cond
-          ((eq next previous)
-           (gnus-article-hide-text-type (- (point) 2) (point) 'overstrike)
-           (put-text-property (point) (1+ (point)) 'face 'bold))
-          ((eq next ?_)
-           (gnus-article-hide-text-type (1- (point)) (1+ (point)) 'overstrike)
-           (put-text-property
-            (- (point) 2) (1- (point)) 'face 'underline))
-          ((eq previous ?_)
-           (gnus-article-hide-text-type (- (point) 2) (point) 'overstrike)
-           (put-text-property
-            (point) (1+ (point)) 'face 'underline))))))))
+    (when (search-forward "\n\n" nil t)
+      (let ((buffer-read-only nil))
+       (while (search-forward "\b" nil t)
+         (let ((next (following-char))
+               (previous (char-after (- (point) 2))))
+           ;; We do the boldification/underlining by hiding the
+           ;; overstrikes and putting the proper text property
+           ;; on the letters.
+           (cond
+            ((eq next previous)
+             (gnus-article-hide-text-type (- (point) 2) (point) 'overstrike)
+             (put-text-property (point) (1+ (point)) 'face 'bold))
+            ((eq next ?_)
+             (gnus-article-hide-text-type
+              (1- (point)) (1+ (point)) 'overstrike)
+             (put-text-property
+              (- (point) 2) (1- (point)) 'face 'underline))
+            ((eq previous ?_)
+             (gnus-article-hide-text-type (- (point) 2) (point) 'overstrike)
+             (put-text-property
+              (point) (1+ (point)) 'face 'underline)))))))))
 
 (defun article-fill ()
   "Format too long lines."
@@ -2142,8 +2143,10 @@ Argument LINES specifies lines to be scrolled down."
 (defun gnus-article-show-summary ()
   "Reconfigure windows to show summary buffer."
   (interactive)
-  (gnus-configure-windows 'article)
-  (gnus-summary-goto-subject gnus-current-article))
+  (if (not (gnus-buffer-live-p gnus-summary-buffer))
+      (error "There is no summary buffer for this article buffer")
+    (gnus-configure-windows 'article)
+    (gnus-summary-goto-subject gnus-current-article)))
 
 (defun gnus-article-describe-briefly ()
   "Describe article mode commands briefly."

diff --git a/lisp/gnus-gl.el b/lisp/gnus-gl.el
index 8e2953e..16c0294 100644 (file)
--- a/lisp/gnus-gl.el
+++ b/lisp/gnus-gl.el
@@ -811,9 +811,9 @@ recommend using both scores and grouplens predictions together."
            (> (prefix-numeric-value arg) 0)))
     (when gnus-grouplens-mode
       (make-local-hook 'gnus-select-article-hook)
-      (gnus-add-hook 'gnus-select-article-hook 'grouplens-do-time nil 'local)
+      (add-hook 'gnus-select-article-hook 'grouplens-do-time nil 'local)
       (make-local-hook 'gnus-exit-group-hook)
-      (gnus-add-hook 'gnus-exit-group-hook 'bbb-exit-group nil 'local)
+      (add-hook 'gnus-exit-group-hook 'bbb-exit-group nil 'local)
       (make-local-variable 'gnus-score-find-score-files-function)
 
       (cond

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 4f3a586..32b5966 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -549,7 +549,8 @@ ticked: The number of ticked articles."
 
   (gnus-define-keys (gnus-group-help-map "H" gnus-group-mode-map)
     "d" gnus-group-describe-group
-    "f" gnus-group-fetch-faq)
+    "f" gnus-group-fetch-faq
+    "v" gnus-version)
 
   (gnus-define-keys (gnus-group-sub-map "S" gnus-group-mode-map)
     "l" gnus-group-set-current-level
@@ -763,7 +764,7 @@ The following commands are available:
   (gnus-update-format-specifications nil 'group 'group-mode)
   (gnus-update-group-mark-positions)
   (make-local-hook 'post-command-hook)
-  (gnus-add-hook 'post-command-hook 'gnus-clear-inboxes-moved nil t)
+  (add-hook 'post-command-hook 'gnus-clear-inboxes-moved nil t)
   (when gnus-use-undo
     (gnus-undo-mode 1))
   (run-hooks 'gnus-group-mode-hook))

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 295d84b..d02c135 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -180,7 +180,7 @@ Thank you for your help in stamping out bugs.
 
 (defun gnus-inews-add-send-actions (winconf buffer article)
   (make-local-hook 'message-sent-hook)
-  (gnus-add-hook 'message-sent-hook 'gnus-inews-do-gcc nil t)
+  (add-hook 'message-sent-hook 'gnus-inews-do-gcc nil t)
   (setq message-post-method
        `(lambda (arg)
           (gnus-post-method arg ,gnus-newsgroup-name)))

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index 5d6bb02..c8b7813 100644 (file)
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -314,9 +314,9 @@ The following commands are available:
 (defun gnus-server-exit ()
   "Return to the group buffer."
   (interactive)
+  (run-hooks 'gnus-server-exit-hook)
   (kill-buffer (current-buffer))
-  (switch-to-buffer gnus-group-buffer)
-  (run-hooks 'gnus-server-exit-hook))
+  (gnus-configure-windows 'group t))
 
 (defun gnus-server-list-servers ()
   "List all available servers."

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 6801fd8..be0017e 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2174,9 +2174,9 @@ If FORCE is non-nil, the .newsrc file is read."
            (gnus-slave-save-newsrc)
          ;; Save .newsrc.
          (when gnus-save-newsrc-file
-           (gnus-message 5 "Saving %s..." gnus-current-startup-file)
+           (gnus-message 8 "Saving %s..." gnus-current-startup-file)
            (gnus-gnus-to-newsrc-format)
-           (gnus-message 5 "Saving %s...done" gnus-current-startup-file))
+           (gnus-message 8 "Saving %s...done" gnus-current-startup-file))
          ;; Save .newsrc.eld.
          (set-buffer (get-buffer-create " *Gnus-newsrc*"))
          (make-local-variable 'version-control)

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 0f65021..5ca5fbe 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1855,7 +1855,7 @@ The following commands are available:
   (make-local-variable 'gnus-summary-line-format-spec)
   (make-local-variable 'gnus-summary-mark-positions)
   (make-local-hook 'post-command-hook)
-  (gnus-add-hook 'post-command-hook 'gnus-clear-inboxes-moved nil t)
+  (add-hook 'post-command-hook 'gnus-clear-inboxes-moved nil t)
   (run-hooks 'gnus-summary-mode-hook)
   (gnus-update-format-specifications nil 'summary 'summary-mode 'summary-dummy)
   (gnus-update-summary-mark-positions))
@@ -5128,7 +5128,7 @@ previous group instead."
          (progn
            (gnus-message 5 "Returning to the group buffer")
            (setq entered t)
-           (when (buffer-live-p current-buffer)
+           (when (gnus-buffer-live-p current-buffer)
              (set-buffer current-buffer)
              (gnus-summary-exit))
            (run-hooks 'gnus-group-no-more-groups-hook))
@@ -6133,9 +6133,11 @@ Return how many articles were fetched."
       (gnus-summary-position-point)
       n)))
 
-(defun gnus-summary-refer-article (message-id)
-  "Fetch an article specified by MESSAGE-ID."
-  (interactive "sMessage-ID: ")
+(defun gnus-summary-refer-article (message-id &optional arg)
+  "Fetch an article specified by MESSAGE-ID.
+If ARG (the prefix), fetch the article using `gnus-refer-article-method'
+or `gnus-select-method', no matter what backend the article comes from."
+  (interactive "sMessage-ID: \nP")
   (when (and (stringp message-id)
             (not (zerop (length message-id))))
     ;; Construct the correct Message-ID if necessary.
@@ -6157,8 +6159,11 @@ Return how many articles were fetched."
              (gnus-summary-update-article (mail-header-number header))))
        ;; We fetch the article
        (let ((gnus-override-method
-              (and (gnus-news-group-p gnus-newsgroup-name)
-                   gnus-refer-article-method))
+              (cond ((gnus-news-group-p gnus-newsgroup-name)
+                     gnus-refer-article-method)
+                    (arg
+                     (or gnus-refer-article-method gnus-select-method))
+                    (t nil)))
              number)
          ;; Start the special refer-article method, if necessary.
          (when (and gnus-refer-article-method
@@ -6480,6 +6485,7 @@ article massaging functions being run."
          gnus-article-display-hook
          gnus-article-prepare-hook
          gnus-break-pages
+         gnus-show-mime
          gnus-visual)
       (gnus-summary-select-article nil 'force)))
   (gnus-summary-goto-subject gnus-current-article)
@@ -6777,7 +6783,11 @@ and `request-accept' functions."
       (gnus-summary-remove-process-mark article))
     ;; Re-activate all groups that have been moved to.
     (while to-groups
-      (gnus-activate-group (pop to-groups)))
+      (save-excursion
+       (set-buffer gnus-group-buffer)
+       (when (gnus-group-goto-group (car to-groups) t)
+         (gnus-group-get-new-news-this-group 1))
+       (pop to-groups)))
 
     (gnus-kill-buffer copy-buf)
     (gnus-summary-position-point)

diff --git a/lisp/gnus-undo.el b/lisp/gnus-undo.el
index fe2c25a..ebae58e 100644 (file)
--- a/lisp/gnus-undo.el
+++ b/lisp/gnus-undo.el
@@ -102,7 +102,7 @@
       (push (cons 'gnus-undo-mode gnus-undo-mode-map)
            minor-mode-map-alist))
     (make-local-hook 'post-command-hook)
-    (gnus-add-hook 'post-command-hook 'gnus-undo-boundary nil t)
+    (add-hook 'post-command-hook 'gnus-undo-boundary nil t)
     (add-hook 'gnus-summary-exit-hook 'gnus-undo-boundary)
     (run-hooks 'gnus-undo-mode-hook)))
 

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 2c1da43..c45fa8c 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -29,10 +29,17 @@
 (defvar menu-bar-mode (featurep 'menubar))
 (require 'messagexmas)
 
-(defvar gnus-xmas-glyph-directory nil
+(defgroup gnus-xmas nil
+  "XEmacsoid support for Gnus"
+  :group 'gnus)
+
+(defcustom gnus-xmas-glyph-directory nil
   "*Directory where Gnus logos and icons are located.
 If this variable is nil, Gnus will try to locate the directory
-automatically.")
+automatically."
+  :type '(choice (const :tag "autodetect" nil)
+                directory)
+  :group 'gnus-xmas)
 
 (defvar gnus-xmas-logo-color-alist
   '((flame "#cc3300" "#ff2200")
@@ -49,20 +56,26 @@ automatically.")
     (september "#bf9900" "#ffcc00"))
   "Color alist used for the Gnus logo.")
 
-(defvar gnus-xmas-logo-color-style 'flame
-  "Color styles used for the Gnus logo.")
+(defcustom gnus-xmas-logo-color-style 'flame
+  "Color styles used for the Gnus logo."
+  :type '(choice (const flame) (const pine) (const moss)
+                (const irish) (const sky) (const tin)
+                (const velvet) (const grape) (const labia)
+                (const berry) (const neutral) (const september))
+  :group 'gnus-xmas)
 
 (defvar gnus-xmas-logo-colors
   (cdr (assq gnus-xmas-logo-color-style gnus-xmas-logo-color-alist))
   "Colors used for the Gnus logo.")
 
-(defvar gnus-article-x-face-command
+(defcustom gnus-article-x-face-command
   (if (featurep 'xface)
       'gnus-xmas-article-display-xface
     "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | xv -quit -")
   "String or function to be executed to display an X-Face header.
 If it is a string, the command will be executed in a sub-shell
-asynchronously.         The compressed face will be piped to this command.")
+asynchronously.         The compressed face will be piped to this command."
+  :type '(choice string function))
 
 ;;; Internal variables.
 
@@ -137,9 +150,11 @@ It is provided only to ease porting of broken FSF Emacs programs."
     (set-extent-face gnus-newsgroup-selected-overlay
                     gnus-summary-selected-face)))
 
-(defvar gnus-xmas-force-redisplay nil
+(defcustom gnus-xmas-force-redisplay nil
   "If non-nil, force a redisplay before recentering the summary buffer.
-This is ugly, but it works around a bug in `window-displayed-height'.")
+This is ugly, but it works around a bug in `window-displayed-height'."
+  :type 'boolean
+  :group 'gnus-xmas)
 
 (defun gnus-xmas-switch-horizontal-scrollbar-off ()
   (when (featurep 'scrollbar)
@@ -195,18 +210,15 @@ displayed, no centering will be performed."
     (aset table ?\n nil)
     (aset table ?\r nil)
     ;; We nix out any glyphs over 126 that are not set already.
-    (let ((i 256))
-      (while (>= (setq i (1- i)) 127)
-       ;; Only modify if the default entry is nil.
-       (when (or (not default-table)
-                 (not (aref default-table i)))
-         (aset table i [??]))))
+    (when default-table
+      (let ((i 256))
+       (while (>= (setq i (1- i)) 127)
+         ;; Only modify if the default entry is nil.
+         (unless (aref default-table i)
+           (aset table i [??])))))
     ;; Can't use `set-specifier' because of a bug in 19.14 and earlier
     (add-spec-to-specifier current-display-table table (current-buffer) nil)))
 
-(defun gnus-xmas-add-hook (hook function &optional append local)
-  (add-hook hook function))
-
 (defun gnus-xmas-add-text-properties (start end props &optional object)
   (add-text-properties start end props object)
   (put-text-property start end 'start-closed nil object))
@@ -478,7 +490,6 @@ call it with the value of the `gnus-data' text property."
   (fset 'gnus-appt-select-lowest-window
        'gnus-xmas-appt-select-lowest-window)
   (fset 'gnus-mail-strip-quoted-names 'gnus-xmas-mail-strip-quoted-names)
-  (fset 'gnus-add-hook 'gnus-xmas-add-hook)
   (fset 'gnus-character-to-event 'character-to-event)
   (fset 'gnus-mode-line-buffer-identification
        'gnus-xmas-mode-line-buffer-identification)
@@ -596,13 +607,18 @@ call it with the value of the `gnus-data' text property."
 
 ;;; The toolbar.
 
-(defvar gnus-use-toolbar (if (featurep 'toolbar)
-                            'default-toolbar
-                          nil)
+(defcustom gnus-use-toolbar (if (featurep 'toolbar)
+                               'default-toolbar
+                             nil)
   "*If nil, do not use a toolbar.
 If it is non-nil, it must be a toolbar.  The five legal values are
 `default-toolbar', `top-toolbar', `bottom-toolbar',
-`right-toolbar', and `left-toolbar'.")
+`right-toolbar', and `left-toolbar'."
+  :type '(choice (const default-toolbar)
+                (const top-toolbar) (const bottom-toolbar)
+                (const left-toolbar) (const right-toolbar)
+                (const :tag "no toolbar" nil))
+  :group 'gnus-xmas)
 
 (defvar gnus-group-toolbar
   '([gnus-group-get-new-news gnus-group-get-new-news t "Get new news"]
@@ -712,10 +728,9 @@ XEmacs compatibility workaround."
    'call-process-region (point-min) (point-max) command t '(t nil) nil
    args))
 
-(unless (find-face 'gnus-x-face)
-  (copy-face 'default 'gnus-x-face)
-  (set-face-foreground 'gnus-x-face "black")
-  (set-face-background 'gnus-x-face "white"))
+(defface gnus-x-face '((t (:foreground "black" :background "white")))
+  "Face to show X face"
+  :group 'gnus-xmas)
 
 (defun gnus-xmas-article-display-xface (beg end)
   "Display any XFace headers in the current article."

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 56e830a..8ea14ca 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -226,7 +226,7 @@ is restarted, and sometimes reloaded."
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 
-(defconst gnus-version-number "5.4.42"
+(defconst gnus-version-number "5.4.43"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Gnus v%s" gnus-version-number)
@@ -258,7 +258,6 @@ be set in `.emacs' instead."
   (defalias 'gnus-topic-remove-excess-properties 'ignore)
   (defalias 'gnus-appt-select-lowest-window 'appt-select-lowest-window)
   (defalias 'gnus-mail-strip-quoted-names 'mail-strip-quoted-names)
-  (defalias 'gnus-add-hook 'add-hook)
   (defalias 'gnus-character-to-event 'identity)
   (defalias 'gnus-add-text-properties 'add-text-properties)
   (defalias 'gnus-put-text-property 'put-text-property)

diff --git a/lisp/message.el b/lisp/message.el
index 39bbc6e..ecd5690 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1330,7 +1330,7 @@ C-c C-r  message-caesar-buffer-body (rot13 the message body)."
 (defun message-insert-to ()
   "Insert a To header that points to the author of the article being replied to."
   (interactive)
-  (let ((co (message-fetch-field "mail-copies-to")))
+  (let ((co (message-fetch-reply-field "mail-copies-to")))
     (when (and co
               (equal (downcase co) "never"))
       (error "The user has requested not to have copies sent via mail")))
@@ -1515,14 +1515,20 @@ However, if `message-yank-prefix' is non-nil, insert that prefix on each line."
   (let ((start (point)))
     ;; Remove unwanted headers.
     (when message-ignored-cited-headers
-      (save-restriction
-       (narrow-to-region
-        (goto-char start)
-        (if (search-forward "\n\n" nil t)
-            (1- (point))
-          (point)))
-       (message-remove-header message-ignored-cited-headers t)
-       (goto-char (point-max))))
+      (let (all-removed)
+       (save-restriction
+         (narrow-to-region
+          (goto-char start)
+          (if (search-forward "\n\n" nil t)
+              (1- (point))
+            (point)))
+         (message-remove-header message-ignored-cited-headers t)
+         (when (= (point-min) (point-max))
+           (setq all-removed t))
+         (goto-char (point-max)))
+       (if all-removed
+           (goto-char start)
+         (forward-line 1))))
     ;; Delete blank lines at the start of the buffer.
     (while (and (point-min)
                (eolp)

diff --git a/lisp/nnvirtual.el b/lisp/nnvirtual.el
index 18db561..50fb7b0 100644 (file)
--- a/lisp/nnvirtual.el
+++ b/lisp/nnvirtual.el
@@ -626,7 +626,7 @@ the result."
          (setq entry (assoc (car article) carticles))
          (setcdr entry (cons (cdr article) (cdr entry))))
        (setq i (1+ i))))
-    (mapc '(lambda (x) (setcdr x (nreverse (cdr x))))
+    (mapc (lambda (x) (setcdr x (nreverse (cdr x))))
          carticles)
     carticles))
 

diff --git a/texi/ChangeLog b/texi/ChangeLog
index 735b53b..b5f86c3 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,11 @@
+Thu Apr 10 21:25:14 1997  Hrvoje Niksic  <hniksic@srce.hr>
+
+       * gnus.texi (Emacs/XEmacs Code): Addition.
+
+Thu Apr 10 20:45:47 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus.texi (Group Information): Fix.
+
 Wed Apr  2 11:48:44 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
 
        * gnus.texi (Sorting): Use total score.

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 06c5af1..f4a43a9 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
-@settitle Gnus 5.4.42 Manual
+@settitle Gnus 5.4.43 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -287,7 +287,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Gnus 5.4.42 Manual
+@title Gnus 5.4.43 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -323,7 +323,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 Gnus 5.4.42.
+This manual corresponds to Gnus 5.4.43.
 
 @end ifinfo
 
@@ -2910,8 +2910,10 @@ a prefix, force Gnus to re-read the description from the server.
 Describe all groups (@code{gnus-group-describe-all-groups}).  If given a
 prefix, force Gnus to re-read the description file from the server.
 
-@item V
+@item H v
+@itemx V
 @kindex V (Group)
+@kindex H v (Group)
 @cindex version
 @findex gnus-version
 Display current Gnus version numbers (@code{gnus-version}).
@@ -6331,6 +6333,10 @@ matter what group it belongs to.  @kbd{M-^}
 that look something like @samp{<38o6up$6f2@@hymir.ifi.uio.no>}.  You
 have to get it all exactly right.  No fuzzy searches, I'm afraid.
 
+The current select method will be used when fetching by
+@code{Message-ID} from non-news select method, but you can override this
+by giving this command a prefix.
+
 @vindex gnus-refer-article-method
 If the group you are reading is located on a backend that does not
 support fetching by @code{Message-ID} very well (like @code{nnspool}),
@@ -6574,7 +6580,10 @@ nodes to their children.  The default is @code{(?- ?\\ ?|)}.
 If this variable is non-@code{nil}, Gnus will try to keep the tree
 buffer as small as possible to allow more room for the other Gnus
 windows.  If this variable is a number, the tree buffer will never be
-higher than that number.  The default is @code{t}.
+higher than that number.  The default is @code{t}.  Note that if you
+have several windows displayed side-by-side in a frame and the tree
+buffer is one of these, minimizing the tree window will also resize all
+other windows that are displayed next to it.
 
 @item gnus-generate-tree-function
 @vindex gnus-generate-tree-function
@@ -16271,6 +16280,11 @@ not redefine any native Emacs functions while running under XEmacs---it
 does this @code{defalias} thing with Gnus equivalents instead.  Cleaner
 all over.
 
+In the cases when the XEmacs function interface was obviously
+cleaner, I used it instead.  For example @code{gnus-region-active-p}
+is an alias for @code{region-active-p} in XEmacs, whereas in Emacs
+it is a function.
+
 Of course, I could have chosen XEmacs as my native platform and done
 mapping functions the other way around.  But I didn't.  The performance
 hit these indirections impose on Gnus under XEmacs should be slight.

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

diff --git a/todo b/todo
index 9ebcd99..e9fe2ec 100644 (file)
--- a/todo
+++ b/todo
@@ -629,3 +629,10 @@ in the summary buffer.
 
 * a new nncvs backend.  Each group would show an article, using
 version branches as threading, checkin date as the date, etc.
+
+* http://www.dejanews.com/forms/dnsetfilter_exp.html ?
+This filter allows one to construct advance queries on the Dejanews
+database such as specifying start and end dates, subject, author,
+and/or newsgroup name.
+
+* new Date header scoring type -- older, newer