;; 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 (file)
--- 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 \e$B$N@ZBX$(\e(B" gnus-offline-toggle-movemail-program
-          (not (featurep 'running-pterodactyl-gnus-0_73-or-later))
+          (not (featurep 'running-pterodactyl-gnus-0_73-or-later))]
          ["\e$B<hF@5-;v<oN`$NJQ99\e(B" gnus-offline-toggle-articles-to-fetch t]
          ["Mail \e$BAw?.J}K!\e(B(On/Off)\e$B$N@ZBX$(\e(B" gnus-offline-toggle-on/off-send-mail t]
          ["\e$B<+F0@ZCG$N@ZBX$(\e(B" 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 \e$B$N@ZBX$(\e(B" gnus-offline-toggle-movemail-program
-         (not (featurep 'running-pterodactyl-gnus-0_73-or-later))
+         (not (featurep 'running-pterodactyl-gnus-0_73-or-later))]
         ["\e$B<hF@5-;v<oN`$NJQ99\e(B" gnus-offline-toggle-articles-to-fetch t]
         ["Mail \e$BAw?.J}K!\e(B(On/Off)\e$B$N@ZBX$(\e(B" gnus-offline-toggle-on/off-send-mail t]
         ["\e$B<+F0@ZCG$N@ZBX$(\e(B" gnus-offline-toggle-auto-hangup t]
@@ -903,7 +903,7 @@ If value is nil , dialup line is disconnected status.")
         ["\e$B2s@~$N@ZCG\e(B" 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]