Yet another washing function.

["St. Suika Roberts" <wrobert2@mailhost.tcs.tulane.edu>]

I started working on this one back in May, but I only got it to where
I like it today ^^;;

It fixes M$Word style `smart quotes' back to normal ascii ones.
------------------------------ cut here ------------------------------
(defun gnus-article-fix-m$word ()
  "Fix M$Word smartquotes in an article."
  (interactive)
  (save-excursion
    (with-current-buffer gnus-article-buffer
     (let ((buffer-read-only nil))
       (goto-char (point-min))
       (while (search-forward "\221" nil t)
	 (replace-match "`" t t))
       (goto-char (point-min))
       (while (search-forward "\222" nil t)
	 (replace-match "'" t t))
       (goto-char (point-min))
       (while (search-forward "\223" nil t)
	 (replace-match "\"" t t))
       (goto-char (point-min))
       (while (search-forward "\224" nil t)
	 (replace-match "\"" t t))))))
------------------------------ cut here ------------------------------

I was thinking `W W m' might be a good binding for it.

Thanks,
	Suika (yes, this makes four passes through the buffer.  If
	elisp has a way to do this in one pass I'd be interested in
	learning about it)
-- 
		wroberts@tvi.cc.nm.us
"Amazing what caffeine and no sense of self-preservation can do..."
	<a href="http://studentweb.tulane.edu/~wrobert2">lists</a>