From: czkmt <czkmt>
Date: Thu, 30 Dec 1999 12:36:42 +0000 (+0000)
Subject: (TopLevel): Call `define-process-argument-editiong' only under Meadow
X-Git-Tag: t-gnus-6_14_0-15~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8108ace3c7de152b2c3afe3b5def0c29ae3a01bd;p=elisp%2Fgnus.git-

(TopLevel): Call `define-process-argument-editiong' only under Meadow
-- i.e. don't call this function under NTEmacs.
---

diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index bf58265..52af2cc 100644
--- a/lisp/gnus-offline.el
+++ b/lisp/gnus-offline.el
@@ -120,7 +120,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
@@ -685,6 +685,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))