home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / patches / gnus-mail-mods.shar < prev    next >
Encoding:
Text File  |  1991-05-03  |  6.7 KB  |  202 lines
  1. ; UNIX-From: kaul@icarus.eng.ohio-state.edu  Thu Jul  5 22:51:15 1990
  2. ; Received: from icarus.eng.ohio-state.edu by cheops.cis.ohio-state.edu (5.61-kk/5.900605)
  3. ;     id AA00420; Thu, 5 Jul 90 22:51:15 -0400
  4. ; Received: by icarus.eng.ohio-state.edu (4.1/2.890910)
  5. ;     id AA05335; Thu, 5 Jul 90 22:51:10 EDT
  6. ; Date: Thu, 5 Jul 90 22:51:10 EDT
  7. ; From: kaul@icarus.eng.ohio-state.edu (Rich Kaul)
  8. ; Subject: GNUS mail reading.
  9. ; 
  10. ; Although I don't get as large a quantity of mail as you do, I still
  11. ; get a fair bit of mail.  As such, I have been looking into GNUS as a
  12. ; mail reader and have found I like it.  Because we don't have the
  13. ; source to a recent version of cshe around here and because I would
  14. ; rather have something a bit more portable for future reference I
  15. ; changed the pmd and make-active shell scripts you made into Bourne
  16. ; shell scripts.  Perhaps I should have made them bash scripts (it would
  17. ; have been easier), but they're sh scripts and they seem to work, at
  18. ; least on a Sun 3 running SunOS 4.0.3.  I did try and keep them as
  19. ; generic as possible, however.  I thought you might like them as a
  20. ; reference and porting base for others so I'm passing them along.
  21. ; 
  22. ; I did make some changes in the scripts, however.  For example, the pmd
  23. ; script has a delivery function that decides whether the message
  24. ; destination is a directory, in which case it does the appropriate
  25. ; manipulations for GNUS reading, or a file, in which case it does the
  26. ; appropriate work for mail reading.  It's one of the key ways in which
  27. ; I filter my incoming mail.  As you can see from looking at it, there
  28. ; is only a small group of people who are able to send mail in
  29. ; /usr/spool/mail/kaul so only mail from that group of people is able to
  30. ; interrupt my working activity (advisors can be rather demanding about
  31. ; getting something done *now* so that their work can get out and people
  32. ; working for you also tend to have questions that need quick
  33. ; turn-around).  Further, the use of the key files is rather different
  34. ; than it was in your pmd, but that's a minor implementation difference.
  35. ; 
  36. ; Comments are appreciated if you have any.  I'm glad that all I had to
  37. ; do was change some of the structure and logic of these and not write
  38. ; them from scratch.
  39. ; 
  40. ; -rich
  41. ; 
  42. ; #! /bin/sh
  43. ; # This is a shell archive.  Remove anything before this line, then unpack
  44. ; # it by saving it into a file and typing "sh file".  To overwrite existing
  45. ; # files, type "sh file -c".  You can also feed this as standard input via
  46. ; # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  47. ; # will see the following message at the end:
  48. ; #        "End of archive 1 (of 1)."
  49. ; # Contents:  make-active pmd
  50. ; # Wrapped by kaul@icarus.eng.ohio-state.edu on Thu Jul  5 22:39:58 1990
  51. ; PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  52. ; if test -f 'make-active' -a "${1}" != "-c" ; then 
  53. ;   echo shar: Will not clobber existing file \"'make-active'\"
  54. ; else
  55. ; echo shar: Extracting \"'make-active'\" \(819 characters\)
  56. ; sed "s/^X//" >'make-active' <<'END_OF_FILE'
  57. ; X#!/bin/sh
  58. ; X#
  59. ; X# Script to generate an active file for GNUS mail reading for Rich Kaul.
  60. ; X# Builds a shadow active file which represents personal mail under
  61. ; X# $1 plus a symlinks to the real news area.
  62. ; X
  63. ; Xdir=$1
  64. ; Xshift
  65. ; Xactive=$dir/active
  66. ; Xnactive=/usr/lib/news/active
  67. ; Xif [ $#argv -lt 1 ]; then
  68. ; X    echo make-active: usage: make-active directory subdirs...
  69. ; X    exit 87
  70. ; Xfi
  71. ; X
  72. ; X# Find directories and their associated .first and .last files.  Then
  73. ; X# take base dirnames, change to newsgroup name format, and build the
  74. ; X# mail-based active file out of it all.
  75. ; X
  76. ; Xcd $dir
  77. ; Xlist=$*
  78. ; Xcp /dev/null $active
  79. ; Xfor i in $list ; do
  80. ; X    first=`cat $i/.first`
  81. ; X    first=${first:=0}
  82. ; X    last=`cat $i/.last`
  83. ; X    last=${last:=0}
  84. ; X    nlist=`echo $i | tr / .`
  85. ; X    echo $nlist $last $first n >> $active
  86. ; Xdone
  87. ; X
  88. ; X# Now add the whole canonical active file,
  89. ; Xcat $nactive >> $active
  90. ; X
  91. ; Xexit 0
  92. ; END_OF_FILE
  93. ; if test 819 -ne `wc -c <'make-active'`; then
  94. ;     echo shar: \"'make-active'\" unpacked with wrong size!
  95. ; fi
  96. ; chmod +x 'make-active'
  97. ; # end of 'make-active'
  98. ; fi
  99. ; if test -f 'pmd' -a "${1}" != "-c" ; then 
  100. ;   echo shar: Will not clobber existing file \"'pmd'\"
  101. ; else
  102. ; echo shar: Extracting \"'pmd'\" \(1672 characters\)
  103. ; sed "s/^X//" >'pmd' <<'END_OF_FILE'
  104. ; X#!/bin/sh
  105. ; X#
  106. ; X# Personal mail delivery for Rich Kaul.  This version can use the GNUS
  107. ; X# news reader to read mail as if it were news, although that is not
  108. ; X# required.   I also have it set up so that only a few people can send
  109. ; X# me mail that will alert me to its arrival by depositing itself in
  110. ; X# /usr/spool/mail/kaul. 
  111. ; X 
  112. ; Xumask 077
  113. ; XPATH=/usr/local/bin:/usr/ucb:/bin:/usr/bin
  114. ; Xmail_dir=/usr/1/kaul/mail
  115. ; Xnews_dir=/usr/1/kaul/Memos/personal
  116. ; Xmailbox=/usr/spool/mail/kaul
  117. ; Xtmp=/usr/1/kaul/mail/kaul-$$
  118. ; X
  119. ; Xdeliver()
  120. ; X{
  121. ; X  keyf=$*.KEY
  122. ; X  retry=0
  123. ; X  while [ $retry -lt 20 -a -f $keyf ]
  124. ; X  do
  125. ; X     echo "Retry number $retry"
  126. ; X     sleep 10
  127. ; X     retry=`expr $retry + 1`
  128. ; X  done
  129. ; X
  130. ; X  # If we fall out to here without success, we failed 20 times to
  131. ; X  # get the key.  Result: Who cares?  We'll go forward anyway,
  132. ; X  # and re-assert the key when we're done.
  133. ; X  touch $keyf
  134. ; X  if [ -d $* ]; then
  135. ; X    seq=`cat $*/.last`
  136. ; X    seq=`expr $seq + 1`
  137. ; X    echo $seq > $*/.last
  138. ; X    sed -e '1s/^From /UNIX-From: /' < $tmp > $*/$seq
  139. ; X  else
  140. ; X    if [ -s $* ]; then
  141. ; X      echo '' >> $*
  142. ; X    fi
  143. ; X    sed -e '1s/^From: /From /' < $tmp >> $*
  144. ; X  fi
  145. ; X  rm -f $keyf
  146. ; X}
  147. ; X
  148. ; X
  149. ; X# Save the mail momentarily so we can work on it.
  150. ; Xcat - > $tmp
  151. ; X
  152. ; X# Deduce headers appropriately.
  153. ; Xfrom=`head -1 $tmp`
  154. ; X
  155. ; Xfrom=`echo "$from[2]" | sed -e 's/@.*//' -e 's/\(.*\)!\(.*\)/\2/'`
  156. ; Xcase $from in
  157. ; X  *[Ff][Ii][Rr][Ee][Aa][Rr][Mm][Ss]*)
  158. ; X    deliver $news_dir/firearms
  159. ; X  ;;
  160. ; X  *[Hh][Vv][Rr]*)
  161. ; X    deliver $news_dir/xview
  162. ; X  ;;
  163. ; X  *[Ff][Rr][Ee][Ee][Mm][Aa][Cc][Ss]*)
  164. ; X    deliver $news_dir/freemacs
  165. ; X  ;;
  166. ; X  bibyk | ken | monty | joe | wilson | orlando | gratz | zaka )
  167. ; X    deliver $mailbox
  168. ; X  ;;
  169. ; X  *)
  170. ; X    deliver $news_dir
  171. ; X  ;;
  172. ; Xesac
  173. ; X
  174. ; X# Clean up and exit
  175. ; Xrm -f $tmp
  176. ; Xexit 0
  177. ; END_OF_FILE
  178. ; if test 1672 -ne `wc -c <'pmd'`; then
  179. ;     echo shar: \"'pmd'\" unpacked with wrong size!
  180. ; fi
  181. ; chmod +x 'pmd'
  182. ; # end of 'pmd'
  183. ; fi
  184. ; echo shar: End of archive 1 \(of 1\).
  185. ; cp /dev/null ark1isdone
  186. ; MISSING=""
  187. ; for I in 1 ; do
  188. ;     if test ! -f ark${I}isdone ; then
  189. ;     MISSING="${MISSING} ${I}"
  190. ;     fi
  191. ; done
  192. ; if test "${MISSING}" = "" ; then
  193. ;     echo You have the archive.
  194. ;     rm -f ark[1-9]isdone
  195. ; else
  196. ;     echo You still need to unpack the following archives:
  197. ;     echo "        " ${MISSING}
  198. ; fi
  199. ; ##  End of shell archive.
  200. ; exit 0
  201. ; 
  202. ;