From: yamaoka <yamaoka>
Date: Mon, 1 Feb 1999 11:02:59 +0000 (+0000)
Subject: ;; Commit by Ichikawa-san by way of yamaoka.
X-Git-Tag: pgnus-ichikawa-199902011900~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ad0f0ef3225fb0ea43eadc21b464567834df4948;p=elisp%2Fgnus.git-

;; Commit by Ichikawa-san by way of yamaoka.
* (gnus-offline-gnus-get-new-news): Undo my change.
(gnus-offline-define-menu-on-miee): Close parentheses.
(gnus-offline-define-menu-on-agent): Ditto.
---

diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index 0b5e4b3..8d76ce9 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.30 1999-02-01 05:39:42 ichikawa Exp $
+;;; $Id: gnus-offline.el,v 1.1.2.5.2.31 1999-02-01 11:02:59 yamaoka Exp $
 
 ;;; Copyright (C) 1998 Tatsuya Ichikawa
 ;;;                    Yukihiro Ito
@@ -384,7 +384,7 @@ If value is nil , dialup line is disconnected status.")
   (if (functionp gnus-offline-dialup-function)
       (funcall gnus-offline-dialup-function))
   (gnus-offline-get-new-news-function)
-  (if (featurep 'running-pterodactyl-gnus-0_73-or-later)
+  (if (null gnus-offline-pop-password-file)
       (gnus-group-get-new-news arg)
     (let ((buffer (get-buffer-create "*offline-temp*")))
       (unwind-protect
@@ -846,7 +846,7 @@ If value is nil , dialup line is disconnected status.")
 	 "----"
 	 ("Gnus Offline"
 	  ["movemail の切替え" gnus-offline-toggle-movemail-program
-	   (not (featurep 'running-pterodactyl-gnus-0_73-or-later))
+	   (not (featurep 'running-pterodactyl-gnus-0_73-or-later))]
 	  ["取得記事種類の変更" gnus-offline-toggle-articles-to-fetch t]
 	  ["Mail 送信方法(On/Off)の切替え" gnus-offline-toggle-on/off-send-mail t]
 	  ["自動切断の切替え" gnus-offline-toggle-auto-hangup t]
@@ -868,7 +868,7 @@ If value is nil , dialup line is disconnected status.")
        "----"
        ("Gnus Offline"
 	["Toggle movemail program" gnus-offline-toggle-movemail-program
-	 (not (featurep 'running-pterodactyl-gnus-0_73-or-later))
+	 (not (featurep 'running-pterodactyl-gnus-0_73-or-later))]
 	["Toggle articles to fetch" gnus-offline-toggle-articles-to-fetch t]
 	["Toggle online/offline send mail" gnus-offline-toggle-on/off-send-mail t]
 	["Toggle auto hangup" gnus-offline-toggle-auto-hangup t]
@@ -892,7 +892,7 @@ If value is nil , dialup line is disconnected status.")
    (if (featurep 'meadow)
        '("Offline"
 	 ["movemail の切替え" gnus-offline-toggle-movemail-program
-	  (not (featurep 'running-pterodactyl-gnus-0_73-or-later))
+	  (not (featurep 'running-pterodactyl-gnus-0_73-or-later))]
 	 ["取得記事種類の変更" gnus-offline-toggle-articles-to-fetch t]
 	 ["Mail 送信方法(On/Off)の切替え" gnus-offline-toggle-on/off-send-mail t]
 	 ["自動切断の切替え" gnus-offline-toggle-auto-hangup t]
@@ -903,7 +903,7 @@ If value is nil , dialup line is disconnected status.")
 	 ["回線の切断" gnus-offline-set-unplugged-state gnus-offline-connected])
      '("Offline"
        ["Toggle movemail program" gnus-offline-toggle-movemail-program
-	(not (featurep 'running-pterodactyl-gnus-0_73-or-later))
+	(not (featurep 'running-pterodactyl-gnus-0_73-or-later))]
        ["Toggle articles to fetch" gnus-offline-toggle-articles-to-fetch t]
        ["Toggle online/offline send mail" gnus-offline-toggle-on/off-send-mail t]
        ["Toggle auto hangup" gnus-offline-toggle-auto-hangup t]