🚀 go-pugleaf

I was disappointed that the summarization by topic in the body of the
message didn't work, so I taught myself enough elisp to diagnose and fix
the problem.  It was a trivial fix, but took me a week of part-time hackery.
============================================================
;; rmail-summary-by-topic
;; 1989 R.A. Schnitzler
;; Distribution rules as for GNUemacs.

;(define-key rmail-mode-map "" 'rmail-summary-by-topic).

(defun rmail-summary-by-topic (subject &optional whole-message)
  "Display a summary of all messages with the given SUBJECT.
Normally checks the Subject field of headers;
but if WHOLE-MESSAGE is non-nil (prefix arg given), 
 look in the whole message.
SUBJECT is a string of names (regexps) separated by commas."
  (interactive "sTopics to summarize by: \nP")
  (rmail-new-summary
   (concat "about " subject)
   'rmail-message-subject-p
   (mail-comma-list-regexp subject) whole-message))

(defun rmail-message-subject-p (msg subject &optional whole-message)
  (save-restriction
    (goto-char (rmail-msgbeg msg))
    (search-forward "\n*** EOOH ***\n")
    (narrow-to-region
     (point)
; Whole topic summary was fixed by changing the "if command" in the
following line.
     (progn (search-forward (if whole-message "" "\n\n") nil t) (point)))
    (goto-char (point-min))
    (if whole-message (re-search-forward subject nil t)
      (string-match subject (or (mail-fetch-field "Subject") "")) )))



Steve

-- 
Stephen C. Hill, CDP
{ames,prls,pyramid,decwrl}!mips!steveh  or  steveh@mips.com 
Integration Products Group
MIPS Computer Systems, Stop 6-03
950 Deguigne Avenue
Sunnyvale, CA 94086, (408) 524-7436

Time is Nature's method of keeping us from bumping into ourselves.