[Mono-list] Reply-to list

Martin Baulig martin@gnome.org
26 Jul 2002 10:27:38 +0200


Dick Porter <dick@ximian.com> writes:

> On Fri, 2002-07-26 at 00:27, Martin Baulig wrote:
> > Btw. why is the list using this annoying [mono-list] - which I'm filtering
> > out in Emacs/Gnus ?
> 
> Probably because no-one has bothered to change the mailman defaults for
> that setting.

Btw. if there are any more Emacs/Gnus users on this list:

====
(defun gnus-simplify-subject-martin (subject)
  ""
  (save-excursion
    (gnus-set-work-buffer)
    (let ((case-fold-search t))
      (insert subject)
      (gnus-simplify-buffer-fuzzy-step "\\[\\(.*-list\\|.*-patches\\)\\]")
      (gnus-simplify-buffer-fuzzy-step "\t" " ")
      (gnus-simplify-buffer-fuzzy-step "  +" " ")
      (gnus-simplify-buffer-fuzzy-step " $")
      (gnus-simplify-buffer-fuzzy-step "^ +")
      (buffer-string))))

(setq gnus-select-group-hook
      (list
       (lambda ()
	 (mapcar (lambda (header)
		   (mail-header-set-subject
		    header
		    (gnus-simplify-subject-martin
		     (mail-header-subject header))))
		 gnus-newsgroup-headers))))
=====

-- 
Martin Baulig
martin@gnome.org