home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / alt / lucidem / help / 303 < prev    next >
Encoding:
Text File  |  1992-08-20  |  4.0 KB  |  115 lines

  1. Newsgroups: alt.lucid-emacs.help
  2. Path: sparky!uunet!decwrl!wupost!cs.utexas.edu!csc.ti.com!tilde.csc.ti.com!fstop.csc.ti.com!fstop.csc.ti.com!kenb
  3. From: kenb@dadd.ti.com (Ken Butler)
  4. Subject: Re: Menu and mouse support for News ?
  5. In-Reply-To: ssurhode@susssys1.rdg.ac.uk's message of 19 Aug 92 13:21:24 GMT
  6. Message-ID: <KENB.92Aug20083621@atg2.dadd.ti.com>
  7. Sender: usenet@csc.ti.com
  8. Nntp-Posting-Host: atg2.dadd.ti.com
  9. Organization: Texas Instruments, Inc., Dallas, TX
  10. References: <SSURHODE.92Aug19142124@suma1.susssys1.rdg.ac.uk>
  11. Distribution: alt
  12. Date: Thu, 20 Aug 1992 14:36:21 GMT
  13. Lines: 100
  14.  
  15. Paul,
  16.  
  17. Regarding "Menu and mouse support for News", you write:
  18.  
  19. Paul>    Has anyone written some lucid emacs specific code for use with gnus. I
  20. Paul>    like the menu/mouse support someone posted for VM, and am looking for
  21. Paul>    something similar. Is there an FTP site that has all the lucid
  22. Paul>    specific code on it ???? or is it a case of just looking thru the
  23. Paul>    alt.lucid-emacs.help archives ????
  24.  
  25. Yeah, I did.  Nothing sophisticated, but I guess it was okay since the VM
  26. postings looked similar to what I had posted previously for RMAIL.
  27.  
  28. Here's what I have so far for RMAIL and GNUS.  The RMAIL I'm using is not
  29. the standard RMAIL but the extended function RMAIL posted by Bob Weiner to
  30. the elisp archive at Ohio State.  It's much better than the old one.
  31.  
  32. (defun rmail-mouse-summary (event)
  33.   "If no summary buffer exists, make one.  If one exists, delete it."
  34.   (interactive "@e")
  35.   ; (mouse-set-point event)
  36.   (if (not (rmail-summary-displayed))
  37.       (rmail-summary)))
  38.  
  39. (defun rmail-summary-mouse-goto (event)
  40.   "Set the pointer down, then jump to that message."
  41.   (interactive "@e")
  42.   (mouse-set-point event)
  43.   (rmail-summary-goto-msg)
  44.   (recenter))
  45.  
  46. (defun rmail-summary-mouse-exit (event)
  47.   "Delete the summary buffer."
  48.   (interactive "@e")
  49.   ; (mouse-set-point event)
  50.   (rmail-summary-exit))
  51.  
  52. (defun gnus-Subject-mouse-next-page (event)
  53.   "Set the pointer down, then jump to that article if not there."
  54.   (interactive "@e")
  55.   (mouse-set-point event)
  56.   (gnus-Subject-next-page 0)
  57.   (recenter))
  58.  
  59. (defun gnus-Subject-mouse-catch-up-and-exit (event)
  60.   "Set the pointer down, then catch up the newsgroup and exit."
  61.   (interactive "@e")
  62.   (mouse-set-point event)
  63.   (gnus-Subject-catch-up-and-exit t t))
  64.  
  65. (defun gnus-Subject-mouse-expand-window (event)
  66.   "Set the pointer down, then catch up the newsgroup and exit."
  67.   (interactive "@e")
  68.   (mouse-set-point event)
  69.   (gnus-Subject-expand-window))
  70.  
  71. (defun gnus-Group-mouse-select-group (event)
  72.   "Set the pointer down, then jump to that newsgroup if not there."
  73.   (interactive "@e")
  74.   (mouse-set-point event)
  75.   (gnus-Group-select-group nil))
  76.  
  77. (defun gnus-Group-mouse-catch-up (event)
  78.   "Set the pointer down, then catch up the newsgroup and exit."
  79.   (interactive "@e")
  80.   (mouse-set-point event)
  81.   (gnus-Group-catch-up t t))
  82.  
  83. Then you'll need something like these in your startup:
  84.  
  85. (setq gnus-Subject-mode-hook
  86.       (function
  87.        (lambda ()
  88.          (local-set-key 'button1 'gnus-Subject-mouse-next-page)
  89.          (local-set-key 'button2 'gnus-Subject-mouse-catch-up-and-exit)
  90.          (local-set-key 'button3 'gnus-Subject-mouse-expand-window))))
  91. (setq gnus-Group-mode-hook
  92.       (function
  93.        (lambda ()
  94.          (local-set-key 'button1 'gnus-Group-mouse-select-group)
  95.          (local-set-key 'button2 'gnus-Group-mouse-catch-up))))
  96. (setq rmail-summary-mode-hook
  97.       '(lambda ()
  98.          (local-set-key 'button1 'rmail-summary-mouse-goto)
  99.          (local-set-key 'button3 'rmail-summary-mouse-exit)))
  100. (setq rmail-mode-hook
  101.       '(lambda ()
  102.          (local-set-key 'button3 'rmail-mouse-summary)))
  103.  
  104. Hope that this helps.
  105.  
  106. Ken
  107. --
  108.  
  109. *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
  110. Kenneth M. Butler                           (214) 997-6370 (office)
  111. Texas Instruments                           (214) 997-2049 (FAX)
  112. P.O. Box 655303 MS 3683                     kenb@dadd.ti.com
  113. Dallas, TX 75265
  114. *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
  115.