From: czkmt <czkmt>
Date: Sat, 11 Dec 1999 17:43:39 +0000 (+0000)
Subject: (gnus-offline-define-menu-and-key): Don't call too much `static-if'.
X-Git-Tag: t-gnus-6_14_0-11~11
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d3b0536062a7d08f17b1e0321626bd4e5ab014b1;p=elisp%2Fgnus.git-

(gnus-offline-define-menu-and-key): Don't call too much `static-if'.
---

diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index 446dcf8..5917a64 100644
--- a/lisp/gnus-offline.el
+++ b/lisp/gnus-offline.el
@@ -636,7 +636,7 @@ Please check your .emacs or .gnus.el to work nnspool fine.")
       (funcall gnus-offline-hangup-function))
   (setq gnus-offline-connected nil)
   (if (eq gnus-offline-news-fetch-method 'nnagent)
-      (funcall 'ad-Orig-gnus-agent-toggle-plugged nil))
+      (ad-Orig-gnus-agent-toggle-plugged nil))
 
   ;; Set send mail/news function to offline functions.
   (gnus-offline-set-offline-sendmail-function)
@@ -831,9 +831,9 @@ Please check your .emacs or .gnus.el to work nnspool fine.")
 		(if (eq gnus-offline-news-fetch-method 'nnagent)
 		    (local-set-key "\C-coe" 'gnus-agent-expire))
 		(static-unless (featurep 'xemacs)
-		 (local-set-key
-		  (static-if (eq system-type 'windows-nt) [S-mouse-2] [mouse-3])
-		  'gnus-offline-popup-menu)))))
+		  (local-set-key
+		   (if (eq system-type 'windows-nt) [S-mouse-2] [mouse-3])
+		   'gnus-offline-popup-menu)))))
 
 ;;
 ;;