*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0de2702..748e70f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,28 @@
-Sat Sep 13 21:21:38 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+Sun Sep 14 00:26:47 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
-       * gnus.el: Quassia Gnus v0.1 is released.
+       * gnus.el: Quassia Gnus v0.2 is released.
 
-Sat Sep 13 21:16:07 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+Sun Sep 14 00:24:52 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
 
-       * gnus.el: Quassia Gnus v0.1 is released.
+       * gnus-score.el (gnus-score-headers): Make sure the summary buffer
+       exists.
+
+Sat Sep 13 23:35:28 1997  Greg Stark  <gsstark@mit.edu>
+
+       * gnus-ems.el (gnus-x-splash): New function.
+
+Sat Sep 13 22:46:16 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-start.el (gnus-1): Use it.
 
+       * gnus-ems.el (gnus-decode-coding-string): New alias.
+
+       * message.el (message-unix-mail-delimiter): Dox fox.
+
+       * nnmh.el (nnmh-request-list-1): Don't use coding system.
+
+       * gnus-sum.el (gnus-summary-catchup): Reverse logic.
+
+Sat Sep 13 21:21:38 1997  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Quassia Gnus v0.1 is released.

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index d4e5f76..94fc3d2 100644 (file)
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -78,6 +78,9 @@
 (defun gnus-encode-coding-string (string system)
   string)
 
+(defun gnus-decode-coding-string (string system)
+  string)
+
 (eval-and-compile
   (if (string-match "XEmacs\\|Lucid" emacs-version)
       nil
@@ -174,6 +177,7 @@
     (fset 'gnus-max-width-function 'gnus-mule-max-width-function)
     (fset 'gnus-summary-set-display-table 'ignore)
     (fset 'gnus-encode-coding-string 'encode-coding-string)
+    (fset 'gnus-decode-coding-string 'decode-coding-string)
 
     (when (boundp 'gnus-check-before-posting)
       (setq gnus-check-before-posting
@@ -215,6 +219,41 @@
       (push (cons mode map)
            minor-mode-map-alist))))
 
+(defun gnus-x-splash ()
+  "Show a splash screen using a pixmap in the current buffer."
+  (let ((dir (nnheader-find-etc-directory "gnus"))
+       pixmap file height beg i)
+    (save-excursion
+      (switch-to-buffer gnus-group-buffer)
+      (let ((buffer-read-only nil))
+       (erase-buffer)
+       (when (and dir
+                  (file-exists-p (setq file (concat dir "x-splash"))))
+         (nnheader-temp-write nil
+           (insert-file-contents file)
+           (goto-char (point-min))
+           (ignore-errors
+             (setq pixmap (read (current-buffer))))))
+       (when pixmap
+         (erase-buffer)
+         (unless (facep 'gnus-splash)
+           (make-face 'gnus-splash))
+         (setq height (/ (car pixmap) (frame-char-height))
+               width (/ (cadr pixmap) (frame-char-width)))
+         (set-face-foreground 'gnus-splash "green")
+         (set-face-stipple 'gnus-splash pixmap)
+         (insert-char ?\n (* (/ (window-height) 2 height) height))
+         (setq i height)
+         (while (> i 0)
+           (insert-char ?  (* (+ (/ (window-width) 2 width) 1) width))
+           (setq beg (point))
+           (insert-char ?  width)
+           (set-text-properties beg (point) '(face gnus-splash))
+           (insert "\n")
+           (decf i))
+         (goto-char (point-min))
+         (sit-for 0))))))
+
 (provide 'gnus-ems)
 
 ;; Local Variables:

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index 8485f76..d8490d5 100644 (file)
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -1362,7 +1362,8 @@ SCORE is the score to add."
          (save-excursion
            (set-buffer (get-buffer-create "*Headers*"))
            (buffer-disable-undo (current-buffer))
-           (message-clone-locals gnus-summary-buffer)
+           (when (gnus-buffer-live-p gnus-summary-buffer)
+             (message-clone-locals gnus-summary-buffer))
 
            ;; Set the global variant of this variable.
            (setq gnus-current-score-file current-score-file)

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 44cac3d..6931a6f 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -653,10 +653,14 @@ prompt the user for the name of an NNTP server to use."
     (setq gnus-slave slave)
     (gnus-read-init-file)
 
-    (when (and (string-match "XEmacs" (emacs-version))
-              gnus-simple-splash)
+    (when gnus-simple-splash
       (setq gnus-simple-splash nil)
-      (gnus-xmas-splash))
+      (cond
+       (gnus-xemacs
+       (gnus-xmas-splash))
+       ((and (eq window-system 'x)
+            (= (frame-height) (1+ (window-height))))
+       (gnus-x-splash))))
 
     (let ((level (and (numberp arg) (> arg 0) arg))
          did-connect)

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index aaafbd2..54770d0 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -7795,7 +7795,7 @@ The number of articles marked as read is returned."
                   (not gnus-newsgroup-auto-expire)
                   (not gnus-suppress-duplicates)
                   (or (not gnus-use-cache)
-                      (not (eq gnus-use-cache 'passive))))
+                      (eq gnus-use-cache 'passive)))
              (progn
                (when all
                  (setq gnus-newsgroup-marked nil

diff --git a/lisp/gnus.el b/lisp/gnus.el
index d0905fa..7c7ab92 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -244,7 +244,7 @@ is restarted, and sometimes reloaded."
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 
-(defconst gnus-version-number  "0.1"
+(defconst gnus-version-number  "0.2"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number)

diff --git a/lisp/message.el b/lisp/message.el
index aaf24b8..161ac26 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -863,7 +863,7 @@ The cdr of ech entry is a function for applying the face to a region.")
      "\\(remote from .*\\)?"
 
      "\n"))
-  nil)
+  "Regexp matching the delimiter of messages in UNIX mail format.")
 
 (defvar message-unsent-separator
   (concat "^ *---+ +Unsent message follows +---+ *$\\|"

diff --git a/lisp/nnmh.el b/lisp/nnmh.el
index 48c0ea2..f91bed5 100644 (file)
--- a/lisp/nnmh.el
+++ b/lisp/nnmh.el
@@ -230,8 +230,8 @@
                                (expand-file-name nnmh-toplev))))
               dir)
              (nnheader-replace-chars-in-string
-              (decode-coding-string (substring dir (match-end 0))
-                                    nnmail-pathname-coding-system)
+              (gnus-decode-coding-string (substring dir (match-end 0))
+                                         nnmail-pathname-coding-system)
               ?/ ?.))
            (apply 'max files)
            (apply 'min files)))))))

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 793a45b..d340b06 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
-@settitle Quassia Gnus 0.1 Manual
+@settitle Quassia Gnus 0.2 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 Quassia Gnus 0.1 Manual
+@title Quassia Gnus 0.2 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 Quassia Gnus 0.1.
+This manual corresponds to Quassia Gnus 0.2.
 
 @end ifinfo
 

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