home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / packages / MouseAndMenuEmacs / x-rmailsum-fns.el < prev    next >
Encoding:
Text File  |  1990-05-31  |  862 b   |  25 lines
  1. ;;;; Rmail summary X window system mouse functions.
  2. ;;;; Russell Ritchie, Scottish HCI Centre, <russell@uk.ac.strath.hci>.
  3. ;;;; Wed May 16 11:02:06 1990
  4.  
  5. (require 'x-fns)
  6. (provide 'x-rmailsum-fns)
  7.  
  8. (defun x-mouse-rmailsum-goto-msg (arg)
  9.   "Jump to the message under the mouse (and move the cursor there too)."
  10.   (eval-in-window x-mouse-window
  11.     (x-mouse-set-point arg)
  12.     (rmail-summary-goto-msg)))
  13.  
  14. (defun x-mouse-rmailsum-exit (arg)
  15.   "Exit Rmail Summary mode, but remain in Rmail." 
  16.   (select-window x-mouse-window)
  17.   (bury-buffer (current-buffer))
  18.   (if (get-buffer-window rmail-buffer)
  19.       ;; Select the window with rmail in it, then delete this window.
  20.       (select-window (prog1
  21.              (get-buffer-window rmail-buffer)
  22.                (delete-window (selected-window))))
  23.     ;; Switch to the rmail buffer in this window.
  24.     (switch-to-buffer rmail-buffer)))
  25.