home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / packages / MouseAndMenuEmacs / mail-menus.el < prev    next >
Encoding:
Text File  |  1990-05-31  |  2.0 KB  |  65 lines
  1. ;;;; Mail mode menus
  2. ;;;; Russell Ritchie, Scottish HCI Centre, <russell@uk.ac.strath.hci>.
  3. ;;;; Thu May 12 14:10:01 1988 
  4.  
  5. (if (eq window-system 'x)
  6.     (require 'x-menus)
  7.   (require 'hci-menus))
  8. (provide 'mail-menus)
  9.  
  10. (if (eq window-system 'x)
  11.  
  12. (defXmenu 'mail-menu
  13.   '("Mail Menu"
  14.     ("Mail Menu"
  15.      ("Send" mail-send)
  16.      ("Send and exit mail" call-interactively 'mail-send-and-exit)
  17.      ("Move to \"To:\" field" mail-to)
  18.      ("Move to \"Subject:\" field" mail-subject)
  19.      ("Move to \"Cc:\" field" mail-cc)
  20.      ("Move to \"Bcc:\" field" mail-bcc)
  21.      ("Insert contents of Rmail message being replied to (if any)" 
  22.       call-interactively 'mail-yank-original)
  23.      ("Fill yanked original message (if any)"
  24.       call-interactively 'mail-fill-yanked-message)
  25.      ("Fill yanked original message (if any) and justify"
  26.       prefix-arg-supplied 'mail-fill-yanked-message)
  27.      ("Append signature file" 
  28.       if (file-exists-p "~/.signature")
  29.       (mail-signature)
  30.       (error "~/.signature does not exist."))
  31.      ("Other Menus" x-mouse-other-menus))))
  32.  
  33. (defHCImenu mail-move-menu
  34.   ("To: field" mail-to)
  35.   ("Subject: field" mail-subject)
  36.   ("CC: field" mail-cc)
  37.   ("BCC: field" mail-bcc))
  38.  
  39. (defHCImenu mail-yank-menu
  40.   ("being replied to (if any)." call-interactively 'mail-yank-original)
  41.   ("Fill yanked original." call-interactively 'mail-fill-yanked-message)
  42.   ("Fill yanked original and justify."
  43.    prefix-arg-supplied 'mail-fill-yanked-message))
  44.  
  45. (defHCImenu mail-insert-menu
  46.   ("Contents of Rmail message" . mail-yank-menu)
  47.   ("Append signature file" 
  48.    if (file-exists-p "~/.signature")
  49.    (mail-signature)
  50.    (error "You don't have a ~/.signature file")))
  51.  
  52. (defHCImenu mail-quit-menu
  53.   ("Mail without sending" kill-buffer (current-buffer))
  54.   ("Emacs" . emacs-quit-menu))
  55.  
  56. (defHCImenu mail-menu
  57.   ("Mail Menu")
  58.   ("Send" mail-send)
  59.   ("Send and exit mail" call-interactively 'mail-send-and-exit)
  60.   ("Move to" . mail-move-menu)
  61.   ("Insert" . mail-insert-menu)
  62.   ("Other menus" . other-menus-menu)
  63.   ("Quit" . mail-quit-menu))
  64.  
  65.   )