home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / interfaces / gnus-mail.shar / .emacs next >
Encoding:
Text File  |  1991-05-03  |  1.0 KB  |  29 lines
  1. ;
  2. ; GNUS things: Mail and news in one incantation.
  3. ; Definitely not for the weak of heart.
  4. ;
  5. (setq gnus-nntp-server "")
  6. (setq gnus-nntp-service nil)
  7. (load "gnus") ; I don't see any point in autoloading this.
  8. (setq gnus-ignored-headers
  9.       (concat gnus-ignored-headers
  10.           "\\|^Errors-To:\\|^Precedence:\\|^Received:\\|^UNIX-From:"))
  11. (setq nnspool-spool-directory "~/Memos/") ; note trailing `/'
  12. (defvar karl-active-file-maker "~/bin/make-active"
  13.   "*Personalized active file generator")
  14. (defvar karl-active-file "~/Memos/active"
  15.   "*Personalized active file")
  16. (defun nnspool-personal-active-file ()
  17.   "Returns a filename string for a personal active file."
  18.   (call-process karl-active-file-maker nil nil nil
  19.         ; remaining stuff is args to the active file maker.
  20.         nnspool-spool-directory
  21.         "personal/general" "personal/bob" "personal/romig"
  22.         "personal/george" "personal/paul" "personal/zwicky"
  23.         "personal/northrup" "personal/uucp" "personal/karl"
  24.         "personal/amanda"
  25.         "list/general" "list/firearms/politics" "list/firearms"
  26.         "mailer-daemon")
  27.   karl-active-file
  28.   )
  29.