Re: nntp-encode-text corrupts text

[Ilya Goz <ivg@mobilon.ktk.ru>]

 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