A useful washing function

[Michael Welsh Duggan <md5i@cs.cmu.edu>]

I don't know who else this would be of use to, but I find it extremely
useful when looking at some of the crufty messages I see people send
out full of system-dependent control characters and such.

(defun gnus-summary-modify-display-table (char string)
  "Changes the display table of the article buffer.
This function takes CHAR and modifies the display table in the article
buffer such that instances of the character show up as STRING."
  (interactive (list (string-to-char (read-string "Char: "))
                     (read-string "Replacement: ")))
  (gnus-eval-in-buffer-window gnus-article-buffer
    (let ((bdt (or buffer-display-table (make-display-table))))
      (aset bdt char (vconcat string))
      (setq buffer-display-table bdt))))

It might be nice to have this or something like this as an article
washing function in gnus.  Of course, to be useful you also have to
have a function in the gnus-article-diplay-hook which resets the
buffer-display-table to some default.

-- 
Michael Duggan
(md5i@cs.cmu.edu)

.