Re: pgnus on a Windows box

[Shenghuo ZHU <zsh@cs.rochester.edu>]

>>>>> "Jack" == Jack Vinson <jvinson@chevax.ecs.umass.edu> writes:

>>>>> "ZSH" == Shenghuo ZHU <zsh@cs.rochester.edu> writes:
>>>>> "Jack" == Jack Vinson <jvinson@chevax.ecs.umass.edu> writes:
Jack> [snip]
Jack> When I open my old archives (from Gnus 5.6.55) pgnus complains.  If I
Jack> look at the file (nnfolder+archive) each line has a Ctrl-M appended
Jack> to the end. 
Jack> [snip]

ZSH> Try (setq nnmail-file-coding-system 'raw-text).

ZSH> But it may lead other errors.

Jack> Yes, it does.  I am not including the backtrace this time, but a different
Jack> error occurs when I use this coding system.  Drat.  

Jack> I've also noticed that old mail messages (nnml) that were saved before the
Jack> transition to Emacs 20.3 are a little strange.  Pgnus is not able to parse
Jack> the header information out of the file.  Actually, it only seems to be the
Jack> code associated with Message.  The summary buffer looks right, but replying
Jack> or following up to a message gives me a message buffer with an empty
Jack> Subject and no To line.  It has no problems with messages that have been
Jack> stored since the arrival of 20.3.

Try this patch and (setq nnmail-file-coding-system 'raw-text). Please
report whether it works or not.

-- 
Shenghuo

:- cut ---------------
--- ChangeLog	1998/11/19 20:22:24	1.1
+++ ChangeLog	1998/11/19 20:26:57
@@ -1,3 +1,9 @@
+Thu Nov 19 15:26:02 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+	* nnmail.el (nnmail-nov-file-coding-system): New variable.
+	* nnml.el (nnml-open-nov): Use nnmail-nov-file-coding-system.
+	(nnml-save-nov): Use nnmail-nov-file-coding-system.
+
 Thu Nov 19 04:48:42 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
 	* gnus.el: Pterodactyl Gnus v0.51 is released.

--- nnmail.el	1998/11/19 20:19:49	1.1
+++ nnmail.el	1998/11/19 20:20:20
@@ -496,6 +496,9 @@
 (defvar nnmail-file-coding-system 'binary
   "Coding system used in nnmail.")
 
+(defvar nnmail-nov-file-coding-system 'binary
+  "Coding system used in nov file.")
+
 (defun nnmail-find-file (file)
   "Insert FILE in server buffer safely."
   (set-buffer nntp-server-buffer)

--- nnml.el	1998/11/19 20:16:43	1.1
+++ nnml.el	1998/11/19 20:21:06
@@ -686,7 +686,8 @@
 		       nnml-nov-file-name))
 	  (erase-buffer)
 	  (when (file-exists-p nnml-nov-buffer-file-name)
-	    (nnheader-insert-file-contents nnml-nov-buffer-file-name)))
+	    (let ((nnheader-file-coding-system nnmail-nov-file-coding-system))
+	      (nnheader-insert-file-contents nnml-nov-buffer-file-name))))
 	(push (cons group buffer) nnml-nov-buffer-alist)
 	buffer)))
 
@@ -696,8 +697,9 @@
       (when (buffer-name (cdar nnml-nov-buffer-alist))
 	(set-buffer (cdar nnml-nov-buffer-alist))
 	(when (buffer-modified-p)
-	  (nnmail-write-region 1 (point-max) nnml-nov-buffer-file-name
-			       nil 'nomesg))
+	  (let ((nnmail-file-coding-system nnmail-nov-file-coding-system))
+	    (nnmail-write-region 1 (point-max) nnml-nov-buffer-file-name
+				 nil 'nomesg)))
 	(set-buffer-modified-p nil)
 	(kill-buffer (current-buffer)))
       (setq nnml-nov-buffer-alist (cdr nnml-nov-buffer-alist)))))