From: ichikawa <ichikawa>
Date: Sat, 28 Feb 1998 14:19:39 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: gnus-6_7-tomo-199811302358~145
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8f22e1e430d3ab328efefddb206543acf27ab039;p=elisp%2Fgnus.git-

*** empty log message ***
---

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index ed4cc72..9648b97 100644
--- 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
--- 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))