home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / utils / mailpost.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  1.6 KB  |  16 lines
  1. ;;; compiled by jwz@thalidomide on Tue Jun 30 23:30:31 1992
  2. ;;; from file /cadillac-th/jwz/emacs19/lisp/utils/mailpost.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (fset 'post-mail-send-it #[nil "½à┴┬!¬ü├─┴┼!╞ëp    \n  ═Äè\nqê╬ ê╧!êdbêh╨U¼â╨cêebê╤╥╥Q!ê╘╒!ê╓╫!ê╪ ½å┌e\"êebê█▄▌#½î`W½å╘╥!ê¬l▌    ebê█▐▌#½à▀!êebê█α▌#½ùèebê█ß▌#)¼è╫yêΓπ ╥▒êebê█Σ▌#½ä╘σ!ê½ëè qê╬ ê))µτ !ë !êΦ Θ\"êΩδ∞φε!½ä.¬ü∩╞ ╞≡±»½â≥¬ü≤ C#\"ê¡úè qêebê█⌠╞▌#½å╘⌡!ê¬s÷ ├U?¡å≈°ed{\").ç" [mail-interactive generate-new-buffer " post-mail errors" 0 "/tmp/,rpost" " post-mail temp" nil mailbuf delimline case-fold-search tembuf temfile errbuf ((byte-code "└    !ê┬ !½ä─ !ê└ç" [kill-buffer tembuf bufferp errbuf switch-to-buffer] 2)) erase-buffer insert-buffer-substring 10 search-forward "\n" mail-header-separator replace-match "\n\n" backward-char 1 point-marker mail-aliases expand-mail-aliases re-search-forward "\n\n\n*" t "^FCC:" mail-do-fcc "^From:" "^Sender:" "Sender: " user-login-name "^Subject:[     ]*\n" "" write-file make-temp-name set-file-modes 384 apply call-process append boundp post-mail-program "/usr/uci/lib/mh/post" "-nofilter" "-msgid" ("-watch") ("-nowatch") "\n\n* *" "; " buffer-size error "Sending...failed to %s"] 9 "\
  14. the MH -post interface for rmail-mail to call.
  15. to use it, include (setq send-mail-function 'post-mail-send-it) in site-init."])
  16.