From: yamaoka <yamaoka>
Date: Tue, 8 Dec 1998 22:51:13 +0000 (+0000)
Subject: * (gnus-offline-after-jobs-done): Don't call `gnus-offline-agent-expire' under
X-Git-Tag: pgnus-ichikawa-199812091900~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f3161c3dfadaee629d6d8c2ca08adae6179835ed;p=elisp%2Fgnus.git-

* (gnus-offline-after-jobs-done): Don't call `gnus-offline-agent-expire' under
XEmacs.
---

diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index a509f5d..d8eeeb0 100644
--- a/lisp/gnus-offline.el
+++ b/lisp/gnus-offline.el
@@ -1,5 +1,5 @@
 ;;; gnus-offline.el --- To process mail & news at offline environment.
-;;; $Id: gnus-offline.el,v 1.1.2.5.2.11 1998-11-29 09:34:45 ichikawa Exp $
+;;; $Id: gnus-offline.el,v 1.1.2.5.2.12 1998-12-08 22:51:13 yamaoka Exp $
 
 ;;; Copyright (C) 1998 Tatsuya Ichikawa
 ;;;                    Yukihiro Ito
@@ -582,8 +582,12 @@ If value is nil , dialup line is disconnected status.")
   (if (eq gnus-offline-articles-to-fetch 'mail)
       (gnus-offline-restore-mail-group-level))
   (if (eq gnus-offline-news-fetch-method 'nnagent)
-      (gnus-offline-agent-expire))
-  (ding)
+      (or (featurep 'xemacs)
+	  (gnus-offline-agent-expire)))
+  (if (and (featurep 'xemacs)
+	   (fboundp 'play-sound-file))
+      (ding nil 'drum)
+    (ding))
   (gnus-group-save-newsrc)
   (message "All online jobs has done."))