(gnus-agent-mode): New advice.

[elisp/gnus.git-] / lisp / gnus-offline.el

diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index bf58265..f9bc3eb 100644 (file)
--- a/lisp/gnus-offline.el
+++ b/lisp/gnus-offline.el
@@ -78,6 +78,8 @@
 (eval '(run-hooks 'gnus-offline-load-hook))
 
 (eval-when-compile (require 'cl))
+(eval-when-compile (require 'gnus-clfns))
+
 (eval-when-compile
   (require 'static)
   (require 'gnus-agent)
@@ -120,7 +122,7 @@
      miee-popup-menu
      gnus-group-toolbar)))
 
-(if (eq system-type 'windows-nt)
+(if (featurep 'meadow)
     (define-process-argument-editing "/hang\\.exe\\'"
       (lambda (x)
        (general-process-argument-editing-function
@@ -426,6 +428,11 @@ Please check your .emacs or .gnus.el to work nnspool fine.")
        (t
         ad-do-it)))
 
+(defadvice gnus-agent-mode (around gnus-offline-advice activate preactivate)
+  "Advice not to close PPP connection."
+  (let (gnus-offline-hangup-function)
+    ad-do-it))
+
 ;;
 ;; Setting up...
 ;;
@@ -685,6 +692,7 @@ Please check your .emacs or .gnus.el to work nnspool fine.")
   (let ((keys (key-description (this-command-keys)))
        menu title str)
     (cond ((or (string= "misc-user" keys)
+              (string= "S-mouse-2" keys)
               (string-match "^menu-bar" keys)
               (string-match "^mouse" keys))
           (setq title (gnus-offline-gettext 'menu-3))