X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-offline.el;h=f9bc3eb2c49135812c806f950f1600df555bf3cd;hb=2aabdd9c278509a918f59aa9d011c43a7c4918e9;hp=bf58265162952d81239fee242dea21a3eb8f387c;hpb=7be1572552ba42fa35c42c055c9acf8d80497ea3;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index bf58265..f9bc3eb 100644
--- 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))