projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(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 '(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)
(eval-when-compile
(require 'static)
(require 'gnus-agent)
@@
-120,7
+122,7
@@
miee-popup-menu
gnus-group-toolbar)))
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
(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)))
(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...
;;
;;
;; 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)
(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))
(string-match "^menu-bar" keys)
(string-match "^mouse" keys))
(setq title (gnus-offline-gettext 'menu-3))