*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 676977e..f46f3d4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,58 @@
+Mon Jan 27 18:03:17 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Gnus v5.4.5 is released.
+
+Mon Jan 27 18:00:46 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Gnus v5.4.5 is released.
+
+Mon Jan 27 17:35:21 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * message.el (message-expand-group): Don't skip over ":".
+
+       * gnus-score.el (gnus-score-find-bnews): Wouldn't find "nntp+"
+       score files.
+
+       * gnus-art.el (t): Define `M-^'.
+
+Mon Jan 27 15:00:11 1997  Hrvoje Niksic  <hniksic@srce.hr>
+
+       * gnus-sum.el (gnus-summary-search-article): Inhibit forced
+       redisplay on XEmacs.
+
+Mon Jan 27 08:54:55 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Gnus v5.4.4 is released.
+
+Mon Jan 27 07:29:30 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * nnsoup.el (nnsoup-file-name): Also find AREAS.
+
+Mon Jan 27 07:09:13 1997  Joev Dubach  <dubach1@husc.harvard.edu>
+
+       * message.el (message-use-followup-to): Doc fix.
+
+Mon Jan 27 06:59:14 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-art.el (gnus-article-read-summary-keys): Don't mess up when
+       using pick mode.
+
+       * gnus-undo.el (gnus-undo-mode): Set undo boundary.
+
+       * gnus-sum.el (gnus-summary-exit-hook): Doc fix.
+
+Sun Jan 26 13:20:42 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus.el: Autoload gnus-add-configuration.
+
+Sun Jan 26 13:01:07 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Gnus v5.4.3 is released.
+
+Sun Jan 26 12:52:11 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Gnus v5.4.2 is released.
+
 Sun Jan 26 09:28:31 1997  Per Abrahamsen  <abraham@dina.kvl.dk>
 
        * gnus-group.el: Organized customization options, and moved group

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index e9fdf48..a13b82b 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1672,6 +1672,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-g" gnus-article-read-summary-keys)
 
   (substitute-key-definition

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index 27c2d40..3630426 100644 (file)
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -2429,12 +2429,11 @@ GROUP using BNews sys file syntax."
          ;; Kludge to get rid of "nntp+" problems.
          (goto-char (point-min))
          (when (looking-at "nn[a-z]+\\+")
-           (progn
-             (search-forward "+")
-             (forward-char -1)
-             (insert "\\")))
+           (search-forward "+")
+           (forward-char -1)
+           (insert "\\")
+           (forward-char 1))
          ;; Kludge to deal with "++".
-         (goto-char (point-min))
          (while (search-forward "+" nil t)
            (replace-match "\\+" t t))
          ;; Translate "all" to ".*".

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index e4f720f..0943ead 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -6215,6 +6215,7 @@ Optional argument BACKWARD means do search for backward.
        (gnus-article-display-hook nil)
        (gnus-mark-article-hook nil)    ;Inhibit marking as read.
        (gnus-use-article-prefetch nil)
+       (gnus-xmas-force-redisplay nil) ;Inhibit XEmacs redisplay.
        (sum (current-buffer))
        (found nil)
        point)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index db31fdf..12796e3 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -154,7 +154,7 @@
   :link '(custom-manual "(gnus)Various Various")
   :group 'gnus)
 
-(defconst gnus-version-number "5.4.3"
+(defconst gnus-version-number "5.4.5"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Gnus v%s" gnus-version-number)

diff --git a/lisp/message.el b/lisp/message.el
index e6f2082..6ea6d60 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -583,6 +583,9 @@ actually occur."
     'message-mail 'message-send-and-exit 
     'message-kill-buffer 'message-send-hook))
 
+(defvar message-delete-mh-headers t
+  "If non-nil, delete the deletable headers before feeding to mh.")
+
 ;;; Internal variables.
 ;;; Well, not really internal.
 
@@ -1760,13 +1763,14 @@ to find out how to use this."
                       "msg."))))
     (setq buffer-file-name name)
     ;; MH wants to generate these headers itself.
-    (let ((headers message-deletable-headers))
-      (while headers
-       (goto-char (point-min)) 
-       (and (re-search-forward 
-             (concat "^" (symbol-name (car headers)) ": *") nil t)
-            (message-delete-line))
-       (pop headers)))
+    (when message-delete-mh-headers
+      (let ((headers message-deletable-headers))
+       (while headers
+         (goto-char (point-min)) 
+         (and (re-search-forward 
+               (concat "^" (symbol-name (car headers)) ": *") nil t)
+              (message-delete-line))
+         (pop headers))))
     (run-hooks 'message-send-mail-hook)
     ;; Pass it on to mh.
     (mh-send-letter)))
@@ -3337,7 +3341,15 @@ Do a `tab-to-tab-stop' if not in those headers."
 
 (defvar gnus-active-hashtb)
 (defun message-expand-group ()
-  (let* ((b (save-excursion (skip-chars-backward "^, :\t\n") (point)))
+  (let* ((b (save-excursion 
+             (save-restriction
+               (narrow-to-region 
+                (save-excursion
+                  (beginning-of-line)
+                  (skip-chars-forward "^:")
+                  (1+ (point)))
+                (point))
+               (skip-chars-backward "^, \t\n") (point))))
         (completion-ignore-case t)
         (string (buffer-substring b (point)))
         (hashtb (and (boundp 'gnus-active-hashtb) gnus-active-hashtb))

diff --git a/texi/ChangeLog b/texi/ChangeLog
index b0ba564..6c94dc5 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,8 @@
+Mon Jan 27 17:51:29 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus.texi (Highlighting and Menus): Removed
+       `gnus-display-type'. 
+
 Sat Jan 25 08:09:30 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
 
        * gnus.texi (The Active File): Addition.

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 92a1423..8f2900a 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -12715,21 +12715,6 @@ Other general variables that influence the look of all buffers include:
 This is the face (i.e., font) used for mouse highlighting in Gnus.  No
 mouse highlights will be done if @code{gnus-visual} is @code{nil}.
 
-@item gnus-display-type
-@vindex gnus-display-type
-This variable is symbol indicating the display type Emacs is running
-under.  The symbol should be one of @code{color}, @code{grayscale} or
-@code{mono}.  If Gnus guesses this display attribute wrongly, either set
-this variable in your @file{~/.emacs} or set the resource
-@code{Emacs.displayType} in your @file{~/.Xdefaults}.
-
-@item gnus-background-mode 
-@vindex gnus-background-mode 
-This is a symbol indicating the Emacs background brightness.  The symbol
-should be one of @code{light} or @code{dark}.  If Gnus guesses this
-frame attribute wrongly, either set this variable in your @file{~/.emacs} or
-set the resource @code{Emacs.backgroundMode} in your @file{~/.Xdefaults}. 
-`gnus-display-type'.
 @end table
 
 There are hooks associated with the creation of all the different menus: