*** empty log message ***

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index ed4cc72..9648b97 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -696,6 +696,17 @@ the actual number of articles toggled is returned."
        (set-buffer nntp-server-buffer)
        (unless (eq 'nov (gnus-retrieve-headers articles group))
          (nnvirtual-convert-headers))
+       ;;
+       ;; To gnus-agent-expire work fine with no Xref field in .overview 
+       ;; Tatsuya Ichikawa <ichikawa@hv.epson.co.jp>
+       (goto-char (point-min))
+       (while (not (eobp))
+         (goto-char (point-at-eol))
+         (insert "\t")
+         (forward-line 1))
+       ;; Tatsuya Ichikawa <ichikawa@hv.epson.co.jp>
+       ;; To gnus-agent-expire work fine with no Xref field in .overview 
+       ;;
        ;; Save these headers for later processing.
        (copy-to-buffer gnus-agent-overview-buffer (point-min) (point-max))
        (let (file)
@@ -1252,7 +1263,8 @@ The following commands are available:
           (gnus-delete-line)
           (setq headers nil)))
        (when headers
-         (unless (memq (setq article (mail-header-number headers)) unreads)
+         (if (memq (setq article (mail-header-number headers)) unreads)
+             (forward-line 1)
            (if (not (< (inline
                          (gnus-time-to-day
                           (inline (nnmail-date-to-time

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 266efbe..2202a21 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -641,12 +641,20 @@ be set in `.emacs' instead."
 
 (defvar gnus-simple-splash nil)
 
+(defvar gnus-bdf-image-file nil)
 (defun gnus-group-startup-message (&optional x y)
   "Insert startup message in current buffer."
   ;; Insert the message.
   (erase-buffer)
   (insert
-   (format "              %s
+   (if (featurep 'bitmap)
+     (format "              %s
+
+"
+            "" (if (and (stringp gnus-bdf-image-file)
+                        (file-exists-p gnus-bdf-image-file))
+                   (insert-file gnus-image-file)))
+     (format "              %s
           _    ___ _             _
           _ ___ __ ___  __    _ ___
           __   _     ___    __  ___
@@ -666,7 +674,7 @@ be set in `.emacs' instead."
           __
 
 "
-           ""))
+            "")))
   ;; And then hack it.
   (gnus-indent-rigidly (point-min) (point-max)
                       (/ (max (- (window-width) (or x 46)) 0) 2))