Re: Yet another washing function.

[wmperry@aventail.com (William M. Perry)]

"St. Suika Roberts" <wrobert2@mailhost.tcs.tulane.edu> writes:

> 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))))))

  I would use subst-char-in-region:

(defun gnus-article-fix-quotes ()
  (interactive)
  (with-current-buffer gnus-article-buffer
    (let ((buffer-read-only nil)
          (inhibit-read-only t))
      (subst-char-in-region (point-min) (point-max) ?\221 ?`)
      (subst-char-in-region (point-min) (point-max) ?\222 ?')
      (subst-char-in-region (point-min) (point-max) ?\223 ?\")
      (subst-char-in-region (point-min) (point-max) ?\224 ?\"))))

-Bill P.