*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2c460e1..f05cf12 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,34 @@
+Wed Jun 18 17:26:35 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Gnus v5.4.59 is released.
+
+Wed Jun 18 09:29:15 1997  Andreas Jaeger  <aj@arthur.rhein-neckar.de>
+
+       * gnus-xmas.el (gnus-xmas-article-display-xface): Correct setting of
+       braces.
+
+1997-06-07  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * smiley.el (smiley-deformed-regexp-alist): Add Japanese smiley
+       faces.
+
+Wed Jun 18 14:15:21 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-art.el (article-hide-pgp): Only run hook when there is a
+       PGP signature.
+
+       * gnus-sum.el (gnus-summary-fetch-faq): Have `C-u' work.
+
+       * gnus-xmas.el (gnus-xmas-summary-set-display-table): Don't nix
+       out chars that aren't supposed to be nixed out.
+
+       * gnus-art.el (gnus-article-delete-invisible-text): Would bug out
+       on point-max.
+       (gnus-article-delete-text-of-type): Ditto.
+
+       * gnus-xmas.el (gnus-xmas-redefine): Switch off horiz scrollbar in
+       tree buffers.
+
 Wed Jun 18 01:11:58 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Gnus v5.4.58 is released.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 18c1eb6..3999768 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -583,7 +583,8 @@ Initialized from `text-mode-syntax-table.")
     (let ((b (point-min)))
       (while (setq b (text-property-any b (point-max) 'article-type type))
        (delete-region
-        b (text-property-not-all b (point-max) 'article-type type))))))
+        b (or (text-property-not-all b (point-max) 'article-type type)
+              (point-max)))))))
 
 (defun gnus-article-delete-invisible-text ()
   "Delete all invisible text in the current buffer."
@@ -591,7 +592,8 @@ Initialized from `text-mode-syntax-table.")
     (let ((b (point-min)))
       (while (setq b (text-property-any b (point-max) 'invisible t))
        (delete-region
-        b (text-property-not-all b (point-max) 'invisible t))))))
+        b (or (text-property-not-all b (point-max) 'invisible t)
+              (point-max)))))))
 
 (defun gnus-article-text-type-exists-p (type)
   "Say whether any text of type TYPE exists in the buffer."
@@ -959,28 +961,28 @@ always hide."
        ;; Hide the "header".
        (when (search-forward "\n-----BEGIN PGP SIGNED MESSAGE-----\n" nil t)
          (gnus-article-hide-text-type (1+ (match-beginning 0))
-                                      (match-end 0) 'pgp))
-       (setq beg (point))
-       ;; Hide the actual signature.
-       (and (search-forward "\n-----BEGIN PGP SIGNATURE-----\n" nil t)
-            (setq end (1+ (match-beginning 0)))
-            (gnus-article-hide-text-type
-             end
-             (if (search-forward "\n-----END PGP SIGNATURE-----\n" nil t)
-                 (match-end 0)
-               ;; Perhaps we shouldn't hide to the end of the buffer
-               ;; if there is no end to the signature?
-               (point-max))
-             'pgp))
-       ;; Hide "- " PGP quotation markers.
-       (when (and beg end)
-         (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))
-         (widen)))
-      (run-hooks 'gnus-article-hide-pgp-hook))))
+                                      (match-end 0) 'pgp)
+         (setq beg (point))
+         ;; Hide the actual signature.
+         (and (search-forward "\n-----BEGIN PGP SIGNATURE-----\n" nil t)
+              (setq end (1+ (match-beginning 0)))
+              (gnus-article-hide-text-type
+               end
+               (if (search-forward "\n-----END PGP SIGNATURE-----\n" nil t)
+                   (match-end 0)
+                 ;; Perhaps we shouldn't hide to the end of the buffer
+                 ;; if there is no end to the signature?
+                 (point-max))
+               'pgp))
+         ;; Hide "- " PGP quotation markers.
+         (when (and beg end)
+           (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))
+           (widen)))
+       (run-hooks 'gnus-article-hide-pgp-hook)))))
 
 (defun article-hide-pem (&optional arg)
   "Toggle hiding of any PEM headers and signatures in the current article.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 9c7e31c..0bbda40 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2916,11 +2916,11 @@ to use."
   (interactive
    (list
     (gnus-group-group-name)
-    (cond (current-prefix-arg
-          (completing-read
-           "Faq dir: " (and (listp gnus-group-faq-directory)
-                            (mapcar (lambda (file) (list file))
-                                    gnus-group-faq-directory)))))))
+    (when current-prefix-arg
+      (completing-read
+       "Faq dir: " (and (listp gnus-group-faq-directory)
+                       (mapcar (lambda (file) (list file))
+                               gnus-group-faq-directory))))))
   (unless group
     (error "No group name given"))
   (let ((dirs (or faq-dir gnus-group-faq-directory))

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 92a6675..fca59a5 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -5083,7 +5083,8 @@ in."
     (when current-prefix-arg
       (completing-read
        "Faq dir: " (and (listp gnus-group-faq-directory)
-                       gnus-group-faq-directory)))))
+                       (mapcar (lambda (file) (list file))
+                               gnus-group-faq-directory))))))
   (let (gnus-faq-buffer)
     (when (setq gnus-faq-buffer
                (gnus-group-fetch-faq gnus-newsgroup-name faq-dir))

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 17eeee7..6a643f6 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -213,7 +213,8 @@ displayed, no centering will be performed."
     ;; We nix out any glyphs over 126 below ctl-arrow.
     (let ((i (if (integerp ctl-arrow) ctl-arrow 160)))
       (while (>= (setq i (1- i)) 127)
-       (aset table i [??])))
+       (unless (aref 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)))
 
@@ -511,7 +512,8 @@ call it with the value of the `gnus-data' text property."
   (add-hook 'gnus-summary-mode-hook 'gnus-xmas-setup-summary-toolbar)
 
   (add-hook 'gnus-summary-mode-hook
-           'gnus-xmas-switch-horizontal-scrollbar-off))
+           'gnus-xmas-switch-horizontal-scrollbar-off)
+  (add-hook 'gnus-tree-mode-hook 'gnus-xmas-switch-horizontal-scrollbar-off))
 
 
 ;;; XEmacs logo and toolbar.
@@ -735,9 +737,9 @@ XEmacs compatibility workaround."
                      (gnus-xmas-call-region "icontopbm")
                      (gnus-xmas-call-region "ppmtoxpm")
                      (make-glyph
-                      (vector 'xpm :data (buffer-string)))))
-                 (t
-                  (make-glyph [nothing]))))))
+                      (vector 'xpm :data (buffer-string))))))
+                (t
+                 (make-glyph [nothing])))))
       (set-glyph-face xface-glyph 'gnus-x-face)
       (goto-char (point-min))
       (re-search-forward "^From:" nil t)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index cb071ce..ed3ff87 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.58"
+(defconst gnus-version-number "5.4.59"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Gnus v%s" gnus-version-number)

diff --git a/lisp/smiley.el b/lisp/smiley.el
index a66d731..cdcf3d9 100644 (file)
--- a/lisp/smiley.el
+++ b/lisp/smiley.el
@@ -53,7 +53,13 @@
 ;; two alists below.
 
 (defcustom smiley-deformed-regexp-alist
-  '(("\\(:-*[<«]+\\)\\W" 1 "FaceAngry.xpm")
+  '(("\\(\\^_?\\^;;;\\)\\W" 1 "WideFaceAse3.xbm")
+    ("\\(\\^_?\\^;;\\)\\W" 1 "WideFaceAse2.xbm")
+    ("\\(\\^_?\\^;\\)\\W" 1 "WideFaceAse1.xbm")
+    ("\\(\\^_?\\^\\)\\W" 1 "WideFaceSmile.xbm")
+    ("\\(\\;_;\\)\\W" 1 "WideFaceWeep.xbm")
+    ("\\(\\T_T\\)\\W" 1 "WideFaceWeep.xbm")
+    ("\\(:-*[<«]+\\)\\W" 1 "FaceAngry.xpm")
     ("\\(:-+\\]+\\)\\W" 1 "FaceGoofy.xpm")
     ("\\(:-*D\\)\\W" 1 "FaceGrinning.xpm")
     ("\\(:-*[)>}»]+\\)\\W" 1 "FaceHappy.xpm")

diff --git a/texi/gnus.texi b/texi/gnus.texi
index e9c86ef..055e162 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
-@settitle Gnus 5.4.58 Manual
+@settitle Gnus 5.4.59 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -309,7 +309,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Gnus 5.4.58 Manual
+@title Gnus 5.4.59 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -345,7 +345,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.58.
+This manual corresponds to Gnus 5.4.59.
 
 @end ifinfo
 

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