Re: Yet another washing function.

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

"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))))))
> ------------------------------ cut here ------------------------------
> 
> I was thinking `W W m' might be a good binding for it.

Hmm... I do something similar in mine:

(defun md5i-special-display-table ()
  (let ((bdt (make-display-table)))
    (aset bdt 13  [])                   ;Zap ^Ms
    (aset bdt 25  [])                   ;Zap ^Ys
    (aset bdt 133 [?. ?. ?.])           ;\205 = ...
    (aset bdt 145 [?`])                 ;\221 = `
    (aset bdt 146 [?'])                 ;\222 = '
    (aset bdt 147 [?\"])                ;\223 = "
    (aset bdt 148 [?\"])                ;\224 = "
    (aset bdt 149 [?*])                 ;\225 = *
    (aset bdt 150 [?- ?-])              ;\226 = --
    (aset bdt 151 [?- ?- ?-])           ;\227 = ---
    (aset bdt 153 [?( ?T ?m ?)])        ;\231 = (Tm)
    (setq buffer-display-table bdt)))

I then placed this in the gnus-article-display-hook.  (The list is not
complete, however, as I have added the entries as I have come across
them.)

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