*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd45370..ff190a1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,21 @@
+Mon Mar 24 16:57:26 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Gnus v5.4.37 is released.
+
+Mon Mar 24 01:16:15 1997  Hrvoje Niksic  <hniksic@srce.hr>
+
+       * gnus-xmas.el (gnus-xmas-redefine): Use it.
+
+       * gnus-xmas.el (gnus-xmas-summary-set-display-table): New function.
+
+       * gnus-sum.el (gnus-summary-mode): Use it.
+
+       * gnus-sum.el (gnus-summary-set-display-table): New function.
+
+Mon Mar 24 16:27:46 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-util.el (gnus-buffer-live-p): Reinstated.
+
 Mon Mar 24 01:24:27 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Gnus v5.4.36 is released.

diff --git a/lisp/gnus-async.el b/lisp/gnus-async.el
index 527d8d8..a87d333 100644 (file)
--- a/lisp/gnus-async.el
+++ b/lisp/gnus-async.el
@@ -126,7 +126,7 @@ It should return non-nil if the article is to be prefetched."
 
 (defun gnus-async-prefetch-next (group article summary)
   "Possibly prefetch several articles starting with the article after ARTICLE."
-  (when (and (buffer-live-p summary)
+  (when (and (gnus-buffer-live-p summary)
             gnus-asynchronous
             (gnus-group-asynchronous-p group))
     (save-excursion
@@ -143,7 +143,7 @@ It should return non-nil if the article is to be prefetched."
 
 (defun gnus-async-prefetch-article (group article summary &optional next)
   "Possibly prefetch several articles starting with ARTICLE."
-  (if (not (buffer-live-p summary))
+  (if (not (gnus-buffer-live-p summary))
       (gnus-async-with-semaphore
        (setq gnus-async-fetch-list nil))
     (when (and gnus-asynchronous
@@ -154,7 +154,7 @@ It should return non-nil if the article is to be prefetched."
       (let ((do-fetch next)
            (do-message t)) ;(eq major-mode 'gnus-summary-mode)))
        (when (and (gnus-group-asynchronous-p group)
-                  (buffer-live-p summary)
+                  (gnus-buffer-live-p summary)
                   (or (not next)
                       gnus-async-fetch-list))
          (gnus-async-with-semaphore
@@ -211,7 +211,7 @@ It should return non-nil if the article is to be prefetched."
                      ,mark (set-marker (make-marker) (point-max))
                      ,group ,article)
                gnus-async-article-alist)))
-       (if (not (buffer-live-p ,summary))
+       (if (not (gnus-buffer-live-p ,summary))
           (gnus-async-with-semaphore
            (setq gnus-async-fetch-list nil))
         (gnus-async-prefetch-article ,group ,next ,summary t)))))

diff --git a/lisp/gnus-salt.el b/lisp/gnus-salt.el
index 1756ec4..f67430c 100644 (file)
--- a/lisp/gnus-salt.el
+++ b/lisp/gnus-salt.el
@@ -129,7 +129,7 @@ It accepts the same format specs that `gnus-summary-line-format' does.")
 
 (defun gnus-pick-setup-message ()
   "Make Message do the right thing on exit."
-  (when (and (buffer-live-p gnus-summary-buffer)
+  (when (and (gnus-buffer-live-p gnus-summary-buffer)
             (save-excursion
               (set-buffer gnus-summary-buffer)
               gnus-pick-mode))

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index 0210f65..c6cbaad 100644 (file)
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -908,7 +908,7 @@ SCORE is the score to add."
   "Add SCORE to all followups to the article in the current buffer."
   (interactive "P")
   (setq score (gnus-score-default score))
-  (when (buffer-live-p gnus-summary-buffer)
+  (when (gnus-buffer-live-p gnus-summary-buffer)
     (save-excursion
       (save-restriction
        (message-narrow-to-headers)
@@ -923,7 +923,7 @@ SCORE is the score to add."
   "Add SCORE to all later articles in the thread the current buffer is part of."
   (interactive "P")
   (setq score (gnus-score-default score))
-  (when (buffer-live-p gnus-summary-buffer)
+  (when (gnus-buffer-live-p gnus-summary-buffer)
     (save-excursion
       (save-restriction
        (goto-char (point-min))

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 36ab947..3f62f31 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -715,31 +715,6 @@ mark:    The articles mark."
 
 (defvar gnus-scores-exclude-files nil)
 
-(defvar gnus-summary-display-table
-  ;; Change the display table. Odd characters have a tendency to mess
-  ;; up nicely formatted displays - we make all possible glyphs
-  ;; display only a single character.
-
-  ;; We start from the standard display table, if any.
-  (let ((table (or (copy-sequence standard-display-table)
-                  (make-display-table)))
-       ;; Nix out all the control chars...
-       (i 32))
-    (while (>= (setq i (1- i)) 0)
-      (aset table i [??]))
-    ;; ... but not newline and cr, of course.  (cr is necessary for the
-    ;; selective display).
-    (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 entry is nil.
-       (or (aref table i)
-           (aset table i [??]))))
-    table)
-  "Display table used in summary mode buffers.")
-
 (defvar gnus-original-article nil)
 (defvar gnus-article-internal-prepare-hook nil)
 (defvar gnus-newsgroup-process-stack nil)
@@ -1872,7 +1847,7 @@ The following commands are available:
   (setq truncate-lines t)
   (setq selective-display t)
   (setq selective-display-ellipses t)  ;Display `...'
-  (setq buffer-display-table gnus-summary-display-table)
+  (gnus-summary-set-display-table)
   (gnus-set-default-directory)
   (setq gnus-newsgroup-name group)
   (make-local-variable 'gnus-summary-line-format)
@@ -2210,6 +2185,30 @@ This is all marks except unread, ticked, dormant, and expirable."
   (mouse-set-point e)
   (gnus-summary-next-page nil t))
 
+(defun gnus-summary-set-display-table ()
+  ;; Change the display table.  Odd characters have a tendency to mess
+  ;; up nicely formatted displays - we make all possible glyphs
+  ;; display only a single character.
+
+  ;; We start from the standard display table, if any.
+  (let ((table (or (copy-sequence standard-display-table)
+                  (make-display-table)))
+       ;; Nix out all the control chars...
+       (i 32))
+    (while (>= (setq i (1- i)) 0)
+      (aset table i [??]))
+    ;; ... but not newline and cr, of course.  (cr is necessary for the
+    ;; selective display).
+    (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 entry is nil.
+       (or (aref table i)
+           (aset table i [??]))))
+    (setq buffer-display-table table)))
+
 (defun gnus-summary-setup-buffer (group)
   "Initialize summary buffer."
   (let ((buffer (concat "*Summary " group "*")))
@@ -2262,7 +2261,7 @@ This is all marks except unread, ticked, dormant, and expirable."
        (setq gnus-reffed-article-number reffed)
        (setq gnus-current-score-file score-file)
        ;; The article buffer also has local variables.
-       (when (buffer-live-p gnus-article-buffer)
+       (when (gnus-buffer-live-p gnus-article-buffer)
          (set-buffer gnus-article-buffer)
          (setq gnus-summary-buffer summary))))))
 
@@ -4961,7 +4960,7 @@ which existed when entering the ephemeral is reset."
              ;; The `gnus-summary-buffer' variable may point
              ;; to the old summary buffer when using a single
              ;; article buffer.
-             (unless (buffer-live-p gnus-summary-buffer)
+             (unless (gnus-buffer-live-p gnus-summary-buffer)
                (set-buffer gnus-group-buffer))
              (set-buffer gnus-summary-buffer)
              (gnus-set-global-variables))))

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index d3a55b7..ab470be 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -458,6 +458,12 @@ If N, return the Nth ancestor instead."
     (let ((ids (inline (gnus-split-references references))))
       (car (last ids (or n 1))))))
 
+(defsubst gnus-buffer-live-p (buffer)
+  "Say whether BUFFER is alive or not."
+  (and buffer
+       (get-buffer buffer)
+       (buffer-name (get-buffer buffer))))
+
 (defun gnus-horizontal-recenter ()
   "Recenter the current buffer horizontally."
   (if (< (current-column) (/ (window-width) 2))

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 7c8ceb9..6a26ca6 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -181,6 +181,26 @@ displayed, no centering will be performed."
          (gnus-horizontal-recenter)
          (select-window selected))))))
 
+(defun gnus-xmas-summary-set-display-table ()
+  ;; Setup the display table -- like gnus-summary-setup-display-table,
+  ;; but done in an XEmacsish way.
+  (let ((table (make-display-table))
+       ;; Nix out all the control chars...
+       (i 32))
+    (while (>= (setq i (1- i)) 0)
+      (aset table i [??]))
+    ;; ... but not newline and cr, of course.  (cr is necessary for the
+    ;; selective display).
+    (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 entry is nil.
+       (or (aref table i)
+           (aset table i [??]))))
+    (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))
 
@@ -442,7 +462,7 @@ call it with the value of the `gnus-data' text property."
 
 (defun gnus-xmas-redefine ()
   "Redefine lots of Gnus functions for XEmacs."
-  (fset 'gnus-summary-make-display-table 'ignore)
+  (fset 'gnus-summary-set-display-table 'gnus-xmas-summary-set-display-table)
   (fset 'gnus-visual-turn-off-edit-menu 'identity)
   (fset 'gnus-summary-recenter 'gnus-xmas-summary-recenter)
   (fset 'gnus-extent-start-open 'gnus-xmas-extent-start-open)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index a575aca..0fae1ab 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.36"
+(defconst gnus-version-number "5.4.37"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Gnus v%s" gnus-version-number)

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index 8d27c94..347acf9 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -225,7 +225,7 @@ time saver for large mailboxes.")
        (let ((bufs nnfolder-buffer-alist))
         (save-excursion
           (while bufs
-            (if (not (buffer-live-p (nth 1 (car bufs))))
+            (if (not (gnus-buffer-live-p (nth 1 (car bufs))))
                 (setq nnfolder-buffer-alist
                       (delq (car bufs) nnfolder-buffer-alist))
               (set-buffer (nth 1 (car bufs)))
@@ -492,7 +492,7 @@ time saver for large mailboxes.")
   (when (and server
             (not (nnfolder-server-opened server)))
     (nnfolder-open-server server))
-  (unless (buffer-live-p nnfolder-current-buffer)
+  (unless (gnus-buffer-live-p nnfolder-current-buffer)
     (setq nnfolder-current-buffer nil
          nnfolder-current-group nil))
   ;; Change group.
@@ -519,7 +519,7 @@ time saver for large mailboxes.")
        ;; is live, verify that nobody else has touched the file since last
        ;; time.
        (when (and nnfolder-current-buffer
-                  (not (buffer-live-p nnfolder-current-buffer)))
+                  (not (gnus-buffer-live-p nnfolder-current-buffer)))
          (setq nnfolder-buffer-alist (delq inf nnfolder-buffer-alist)
                nnfolder-current-buffer nil))
 
@@ -611,7 +611,7 @@ time saver for large mailboxes.")
 (defun nnfolder-possibly-change-folder (group)
   (let ((inf (assoc group nnfolder-buffer-alist)))
     (if (and inf
-            (buffer-live-p (cadr inf)))
+            (gnus-buffer-live-p (cadr inf)))
        (set-buffer (cadr inf))
       (when inf
        (setq nnfolder-buffer-alist (delq inf nnfolder-buffer-alist)))

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 39f02b2..06b7b9e 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -381,7 +381,7 @@ the line could be found."
 (defun nnheader-init-server-buffer ()
   "Initialize the Gnus-backend communication buffer."
   (save-excursion
-    (unless (buffer-live-p nntp-server-buffer)
+    (unless (gnus-buffer-live-p nntp-server-buffer)
       (setq nntp-server-buffer (get-buffer-create " *nntpd*")))
     (set-buffer nntp-server-buffer)
     (buffer-disable-undo (current-buffer))

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index aee4173..90ad6ab 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1416,7 +1416,7 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
 
 (defun nnmail-cache-insert (id)
   (when nnmail-treat-duplicates
-    (unless (buffer-live-p nnmail-cache-buffer)
+    (unless (gnus-buffer-live-p nnmail-cache-buffer)
       (nnmail-cache-open))
     (save-excursion
       (set-buffer nnmail-cache-buffer)

diff --git a/lisp/nntp.el b/lisp/nntp.el
index 3947afc..9c40dc5 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -598,7 +598,7 @@ server there that you can connect to.  See also `nntp-open-connection-function'"
   "Say whether a connection to SERVER has been opened."
   (and (nnoo-current-server-p 'nntp server)
        nntp-server-buffer
-       (buffer-live-p nntp-server-buffer)
+       (gnus-buffer-live-p nntp-server-buffer)
        (nntp-find-connection nntp-server-buffer)))
 
 (deffoo nntp-open-server (server &optional defs connectionless)

diff --git a/lisp/nnweb.el b/lisp/nnweb.el
index a213475..eacdc2f 100644 (file)
--- a/lisp/nnweb.el
+++ b/lisp/nnweb.el
@@ -133,7 +133,7 @@
 
 (deffoo nnweb-close-group (group &optional server)
   (nnweb-possibly-change-server group server)
-  (when (buffer-live-p nnweb-buffer)
+  (when (gnus-buffer-live-p nnweb-buffer)
     (save-excursion
       (set-buffer nnweb-buffer)
       (set-buffer-modified-p nil)
@@ -166,7 +166,7 @@
 
 (deffoo nnweb-close-server (&optional server)
   (when (and (nnweb-server-opened server)
-            (buffer-live-p nnweb-buffer))
+            (gnus-buffer-live-p nnweb-buffer))
     (save-excursion
       (set-buffer nnweb-buffer)
       (set-buffer-modified-p nil)
@@ -274,7 +274,7 @@
 
 (defun nnweb-init (server)
   "Initialize buffers and such."
-  (unless (buffer-live-p nnweb-buffer)
+  (unless (gnus-buffer-live-p nnweb-buffer)
     (setq nnweb-buffer
          (save-excursion
            (nnheader-set-temp-buffer
@@ -295,7 +295,7 @@
       t)))
 
 (defun nnweb-callback (buffer callback)
-  (when (buffer-live-p url-working-buffer)
+  (when (gnus-buffer-live-p url-working-buffer)
     (save-excursion
       (set-buffer url-working-buffer)
       (funcall (nnweb-definition 'article))

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 712a5c0..51ba508 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
-@settitle Gnus 5.4.36 Manual
+@settitle Gnus 5.4.37 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.36 Manual
+@title Gnus 5.4.37 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.36.
+This manual corresponds to Gnus 5.4.37.
 
 @end ifinfo
 

diff --git a/texi/message.texi b/texi/message.texi
index 31ea5a4..e2051ec 100644 (file)
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message
-@settitle Message 5.4.36 Manual
+@settitle Message 5.4.37 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.36 Manual
+@title Message 5.4.37 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.36.  Message is distributed with
+This manual corresponds to Message 5.4.37.  Message is distributed with
 the Gnus distribution bearing the same version number as this manual
 has.