2001-08-15 Simon Josefsson <jas@extundo.com>

	From Pavel@Janik.cz (Pavel Jan\e,Bm\e(Bk)

	* gnus-agent.el (gnus-agent-make-mode-line-string)
	(gnus-agent-toggle-plugged): Use new API.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dcf873f..f9438f1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-08-15  Simon Josefsson  <jas@extundo.com>
+       From Pavel@Janik.cz (Pavel Jan\e,Bm\e(Bk)
+
+       * gnus-agent.el (gnus-agent-make-mode-line-string) 
+       (gnus-agent-toggle-plugged): Use new API.
+

 2001-08-14  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * gnus-delay.el (gnus-delay-send-drafts): Fix check whether
 2001-08-14  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * gnus-delay.el (gnus-delay-send-drafts): Fix check whether

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 426f00b..b337ca4 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -310,11 +310,11 @@ If this is `ask' the hook will query the user."
        ["Add" gnus-agent-add-server t]
        ["Remove" gnus-agent-remove-server t]))))
 
        ["Add" gnus-agent-add-server t]
        ["Remove" gnus-agent-remove-server t]))))
 

-(defun gnus-agent-make-mode-line-string (string mouse2-func)
+(defun gnus-agent-make-mode-line-string (string mouse-button mouse-func)

   (if (and (fboundp 'propertize)
   (if (and (fboundp 'propertize)

-          (fboundp 'make-mode-line-mouse2-map))
+          (fboundp 'make-mode-line-mouse-map))

       (propertize string 'local-map
       (propertize string 'local-map

-                 (make-mode-line-mouse2-map mouse2-func))
+                 (make-mode-line-mouse-map mouse-button mouse-func))

     string))
 
 (defun gnus-agent-toggle-plugged (plugged)
     string))
 
 (defun gnus-agent-toggle-plugged (plugged)


@@ -327,12 +327,14 @@ If this is `ask' the hook will query the user."
        (gnus-run-hooks 'gnus-agent-plugged-hook)
        (setcar (cdr gnus-agent-mode-status) 
                (gnus-agent-make-mode-line-string " Plugged"
        (gnus-run-hooks 'gnus-agent-plugged-hook)
        (setcar (cdr gnus-agent-mode-status) 
                (gnus-agent-make-mode-line-string " Plugged"

+                                                 'mouse-2

                                                  'gnus-agent-toggle-plugged)))
     (gnus-agent-close-connections)
     (setq gnus-plugged plugged)
     (gnus-run-hooks 'gnus-agent-unplugged-hook)
     (setcar (cdr gnus-agent-mode-status) 
            (gnus-agent-make-mode-line-string " Unplugged"
                                                  'gnus-agent-toggle-plugged)))
     (gnus-agent-close-connections)
     (setq gnus-plugged plugged)
     (gnus-run-hooks 'gnus-agent-unplugged-hook)
     (setcar (cdr gnus-agent-mode-status) 
            (gnus-agent-make-mode-line-string " Unplugged"

+                                             'mouse-2

                                              'gnus-agent-toggle-plugged)))
   (set-buffer-modified-p t))
 
                                              'gnus-agent-toggle-plugged)))
   (set-buffer-modified-p t))