Re: nntp-encode-text corrupts text

Re: nntp-encode-text corrupts text

[Simon Josefsson]

Ilya Goz <ivg@mobilon.ktk.ru> writes:

>  SJ> Could you try a more recent Emacs version?
>
> I'm using 21.2. Can anybody please confirm that it had been fixed in 21.3?
> I'd rather avoid a twenty-megabytes download...

I'm not sure it has been fixed in 21.3.  I remember that it was fixed
for CVS though.  The patch 21.2->21.3 is probably not very large,
perhaps you can get it instead.

Re: nntp-encode-text corrupts text

[Ilya Goz]

 Simon Josefsson <jas@extundo.com> 11:20 23/4/2003 writes:

 SJ> I'm not sure it has been fixed in 21.3.  

Okay, I've got my hands at 21.3. It has been fixed. 

Meanwhile, I put into my .emacs the following hack, which, strangely
enough, do the work:

(require 'nntp)
(defun nntp-encode-text ()
  "Encode the text in the current buffer."
  (save-excursion
    ;; Replace "." at beginning of line with "..".
    (goto-char (point-min))
;    (while (re-search-forward "^\\." nil t)
;     (insert "."))
    ;; work around bug in re-search-forward
    (while (not (eobp)) 
      (if (looking-at "^\\.") (insert "."))
      (forward-line 1))
    (goto-char (point-max))
    ;; Insert newline at the end of the buffer.
    (unless (bolp)
      (insert "\n"))
    ;; Insert `.' at end of buffer (end of text mark).
    (goto-char (point-max))
    (insert ".\n")
    (goto-char (point-min))
    (while (not (eobp))
      (end-of-line)
      (delete-char 1)
      (insert nntp-end-of-line))))

What would be a proper way to replace definition of the function?

-- 
Ilya V. Goz

Re: nntp-encode-text corrupts text

[Simon Josefsson]

Ilya Goz <ivg@mobilon.ktk.ru> writes:

> What would be a proper way to replace definition of the function?

I think defadvice can do this.